let win_assoc (wr: win_ref) (b: b)
  : win option =
      begin try Some(List.assoc wr b.browser_windows) with
      | Not_found -> None
      end