match self#currentCicUri with
| Some uri -> self#load (`Metadata (`Deps (`Back, uri)))
| None -> ());
+ connect_menu_item win#browserCloseMenuItem (fun () ->
+ let my_id = Oo.id self in
+ cicBrowsers := List.filter (fun b -> Oo.id b <> my_id) !cicBrowsers;
+ win#toplevel#misc#hide(); win#toplevel#destroy ());
(* remove hbugs *)
(*
connect_menu_item win#hBugsTutorsMenuItem (fun () ->
method private tex () =
let text = String.concat "\n"
- (List.map (fun (k,vs) -> k ^ "\t" ^ String.concat ", " vs)
+ (List.map (fun (k,vs) ->
+ let vs =
+ List.sort (fun a b -> String.length a - String.length b) vs
+ in
+ let vs =
+ if List.length vs < 4 then vs else
+ let vs, _ = HExtlib.split_nth 4 vs in vs
+ in
+ k ^ "\t" ^ String.concat ", " vs)
(Utf8Macro.pp_table ()))
in
self#_loadText text