diff options
| author |  pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-05-23 14:41:24 +0000 |
|---|---|---|
| committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-05-23 14:41:24 +0000 |
| commit | 8837c2365c382adb0a74bfedabb1659eeb472adc (patch) | |
| tree | 88761584df9487ab39fe2bc2627c029d67acc229 /ide/wg_Notebook.ml | |
| parent | 24473ef1954c856907ba8907a4d2c910505125a1 (diff) | |
Revert copy/pasted function in to minilib thanks to clib.cma
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15352 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/wg_Notebook.ml')
| -rw-r--r-- | ide/wg_Notebook.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ide/wg_Notebook.ml b/ide/wg_Notebook.ml index 499d56bd9..048cc6e24 100644 --- a/ide/wg_Notebook.ml +++ b/ide/wg_Notebook.ml @@ -16,14 +16,14 @@ object(self) (* XXX - Temporary hack to compile with archaic lablgtk *) ignore (super#append_page ?tab_label ?menu_label page); let real_pos = super#page_num page in - let lower,higher = Minilib.list_chop real_pos term_list in + let lower,higher = Util.list_chop real_pos term_list in term_list <- lower@[term]@higher; real_pos (* XXX - Temporary hack to compile with archaic lablgtk method insert_term ?(build=default_build) ?pos (term:'a) = let tab_label,menu_label,page = build term in let real_pos = super#insert_page ?tab_label ?menu_label ?pos page in - let lower,higher = Minilib.list_chop real_pos term_list in + let lower,higher = Util.list_chop real_pos term_list in term_list <- lower@[term]@higher; real_pos *) @@ -32,26 +32,26 @@ object(self) (* XXX - Temporary hack to compile with archaic lablgtk *) ignore (super#prepend_page ?tab_label ?menu_label page); let real_pos = super#page_num page in - let lower,higher = Minilib.list_chop real_pos term_list in + let lower,higher = Util.list_chop real_pos term_list in term_list <- lower@[term]@higher; real_pos method set_term (term:'a) = let tab_label,menu_label,page = make_page term in let real_pos = super#current_page in - term_list <- Minilib.list_map_i (fun i x -> if i = real_pos then term else x) 0 term_list; + term_list <- Util.list_map_i (fun i x -> if i = real_pos then term else x) 0 term_list; super#set_page ?tab_label ?menu_label page method get_nth_term i = List.nth term_list i method term_num p = - Minilib.list_index0 p term_list + Util.list_index0 p term_list method pages = term_list method remove_page index = - term_list <- Minilib.list_filter_i (fun i x -> if i = index then kill_page x; i <> index) term_list; + term_list <- Util.list_filter_i (fun i x -> if i = index then kill_page x; i <> index) term_list; super#remove_page index method current_term = |