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)