let build_win
(wn: win_name) (u: url) (wo: win_opener) (doc: node_ref option) (b: b)
: win * b =
let a = {
act_parent = None;
act_vars = [];
} in
let (ar, b') = act_new a b in
let p = {
page_location = u;
page_document = doc;
page_environment = ar;
page_script_queue = [];
} in
let (pr, b'') = page_new p b' in
let w = {
win_name = wn;
win_opener = wo;
win_page = pr;
} in
(w, b'')