let page_win (pr: page_ref) (b: b)
  : win_ref option =
    let has_pr (_, w) = (w.win_page = pr) in
    begin match List.filter has_pr b.browser_windows with
    | [ (wr, _) ] -> Some(wr)
    | _ -> None
    end