let handle_load_in_win_event (wr: win_ref) (u: url) (b: b)
  : state * output_event list =
    assert (win_valid wr b);
    let (b', oes) = direct_win wr u b in
    let r = {
      running_state = b';
      running_task_queue = [];
    } in
    (Running(r), oes)