let direct_win (wr: win_ref) (u: url) (b: b)
  : b * output_event list =
    assert (win_valid wr b);
    let b' = close_doc_request_connections wr b in
    begin match u with
    | Blank_url ->
        let uw = win_to_user_window wr b' in
        let w = win_assoc_valid wr b' in
        let b'1 = page_remove w.win_page b' in
        let (w', b'2) = build_win w.win_name Blank_url w.win_opener None b'1 in
        let b'3 = win_update wr w' b'2 in
        let oe = UI_page_loaded_event(uw, Blank_url, None) in
        (b'3, [ oe ])
    | _ ->
        fetch_url u wr b
    end