let win_from_win_name (str: string) (b: b)
  : win_ref option =
    let has_name (_, w) = (w.win_name = Str_name(str)) in
    begin match List.filter has_name b.browser_windows with
    | [] -> None
    | (wr, _) :: _ -> Some(wr)
    end