let handle_load_in_new_win_event
    (wo: win_opener) (wn: win_name) (u: url) (b: b)
  : state * output_event list =
    let (_, b', oes) = open_win wn u wo b in
    let r = {
      running_state = b';
      running_task_queue = [];
    } in
    (Running(r), oes)