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