Mentions légales du service

Skip to content
Snippets Groups Projects
Commit 0402a819 authored by Guillaume Melquiond's avatar Guillaume Melquiond
Browse files

Simplify gui code a bit.

parent aa59b0d3
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 39 additions and 132 deletions
src/ide/gmain.ml
+ 39
− 132
View file @ 0402a819
......@@ -1177,7 +1177,14 @@ let (_ : GMenu.image_menu_item) =
~label:"_Add file" ~callback:select_file
()
let refresh_provers = ref (fun () -> ())
let gui_items = ref []
let add_gui_item f =
f ();
gui_items := f :: !gui_items
let recreate_gui () =
List.iter (fun f -> f ()) (List.rev !gui_items)
let (_ : GMenu.image_menu_item) =
file_factory#add_image_item ~label:"_Preferences" ~callback:
......@@ -1190,7 +1197,7 @@ let (_ : GMenu.image_menu_item) =
Session.update_env_session_config e gconfig.config;
Session.unload_provers e
end;
!refresh_provers ();
recreate_gui ();
(*
Mprover.iter
(fun p pi ->
......@@ -1202,17 +1209,10 @@ let (_ : GMenu.image_menu_item) =
M.set_maximum_running_proofs nb sched)
()
let add_refresh_provers f _msg =
(*
Debug.dprintf debug "[Info] recording '%s' for refresh provers@." msg;
*)
let rp = !refresh_provers in
refresh_provers := (fun () -> rp (); f ())
(*
let (_ : GMenu.image_menu_item) =
file_factory#add_image_item ~label:"_Detect provers" ~callback:
(fun () -> Gconfig.run_auto_detection gconfig; !refresh_provers () )
(fun () -> Gconfig.run_auto_detection gconfig; recreate_gui () )
()
*)
......@@ -1412,16 +1412,18 @@ let (_ : GMenu.check_menu_item) = view_factory#add_check_item
(**************)
let () = add_refresh_provers (fun () ->
List.iter (fun item -> item#destroy ()) provers_box#all_children)
"remove from provers box"
let tools_menu = factory#add_submenu "_Tools"
let tools_factory = new GMenu.factory tools_menu ~accel_group
let () = add_refresh_provers (fun () ->
let () = add_gui_item (fun () ->
List.iter (fun item -> item#destroy ()) provers_box#all_children;
List.iter (fun item -> item#destroy ()) tools_menu#all_children)
"remove from tools menu"
let add_tool_separator () =
add_gui_item (fun () -> ignore(tools_factory#add_separator ()))
let add_tool_item label callback =
add_gui_item (fun () -> ignore(tools_factory#add_image_item ~label ~callback ()))
let () =
let add_item_provers () =
......@@ -1458,8 +1460,7 @@ let () =
in ())
provers
in
add_refresh_provers add_item_provers "Add in tools menu and provers box";
add_item_provers ()
add_gui_item add_item_provers
let split_selected_goals () =
apply_trans_on_selection split_transformation
......@@ -1476,19 +1477,6 @@ let sanitize_markup x =
let () =
let add_separator () =
ignore(tools_factory#add_separator
() : GMenu.menu_item) in
let add_item_split () =
ignore(tools_factory#add_image_item
~label:"Split in selection"
~callback:split_selected_goals
() : GMenu.image_menu_item) in
let add_item_inline () =
ignore(tools_factory#add_image_item
~label:"Inline in selection"
~callback:inline_selected_goals
() : GMenu.image_menu_item) in
let add_submenu_transform name get_trans () =
let submenu = tools_factory#add_submenu name in
let submenu = new GMenu.factory submenu ~accel_group in
......@@ -1504,22 +1492,6 @@ let () =
let trans = List.sort (fun (x,_) (y,_) -> String.compare x y) trans in
List.iter iter trans
in
let add_item_bisect () =
ignore(tools_factory#add_image_item
~label:"Bisect in selection"
~callback:apply_bisect_on_selection
() : GMenu.image_menu_item) in
let add_copy_past_item () =
ignore(tools_factory#add_image_item
~label:"Copy"
~callback:copy_on_selection
() : GMenu.image_menu_item);
ignore(tools_factory#add_image_item
~label:"Paste"
~callback:paste_on_selection
() : GMenu.image_menu_item) in
let add_splitting =
add_submenu_transform
"splitting transformations" Trans.list_transforms_l
......@@ -1539,30 +1511,17 @@ let () =
List.filter (fun (x,_) -> x >= "f") l)
in
add_refresh_provers add_separator "add separator in tools menu";
add_refresh_provers add_copy_past_item "add copy paste item";
add_refresh_provers add_separator "add separator in tools menu";
add_refresh_provers add_item_split "add split in tools menu";
add_refresh_provers add_item_inline "add inline in tools menu";
add_refresh_provers add_non_splitting_1
"add non splitting transformations (a-e) in tools menu";
add_refresh_provers add_non_splitting_2
"add non splitting transformations (f-z) in tools menu";
add_refresh_provers add_splitting
"add splitting transformations in tools menu";
add_refresh_provers add_separator "add separator for metas in tools menu";
add_refresh_provers add_item_bisect "add bisect in tools menu";
(** execute them *)
add_separator ();
add_copy_past_item ();
add_separator ();
add_item_split ();
add_item_inline ();
add_non_splitting_1 ();
add_non_splitting_2 ();
add_splitting ();
add_separator ();
add_item_bisect ()
add_tool_separator ();
add_tool_item "Copy" copy_on_selection;
add_tool_item "Paste" paste_on_selection;
add_tool_separator ();
add_tool_item "Split in selection" split_selected_goals;
add_tool_item "Inline in selection" inline_selected_goals;
add_gui_item add_non_splitting_1;
add_gui_item add_non_splitting_2;
add_gui_item add_splitting;
add_tool_separator ();
add_tool_item "Bisect in selection" apply_bisect_on_selection
let () =
let b = GButton.button ~packing:transf_box#add ~label:"Split" () in
......@@ -2042,48 +2001,12 @@ let edit_current_proof () =
info_window `INFO "Please select exactly one proof to edit"
let () =
let add_separator () =
ignore(tools_factory#add_separator
() : GMenu.menu_item) in
let add_item_edit () =
ignore (tools_factory#add_image_item
~label:"Edit current proof"
~callback:edit_current_proof
() : GMenu.image_menu_item) in
let add_item_replay () =
ignore (tools_factory#add_image_item
~label:"Replay selection"
~callback:replay_obsolete_proofs
() : GMenu.image_menu_item) in
let add_item_cancel () =
ignore (tools_factory#add_image_item
~label:"Mark as obsolete"
~callback:cancel_proofs
() : GMenu.image_menu_item) in
let add_item_archived () =
ignore (tools_factory#add_image_item
~label:"Mark as archive"
~callback:(set_archive_proofs true)
() : GMenu.image_menu_item) in
let add_item_unarchived () =
ignore (tools_factory#add_image_item
~label:"Remove from archive"
~callback:(set_archive_proofs false)
() : GMenu.image_menu_item) in
add_refresh_provers add_separator "add sep in tools menu";
add_refresh_provers add_item_edit "add edit in tools menu";
add_refresh_provers add_item_replay "add replay in tools menu";
add_refresh_provers add_item_cancel "add cancel in tools menu";
add_refresh_provers add_item_archived "add archive in tools menu";
add_refresh_provers add_item_unarchived "add unarchive in tools menu";
add_separator ();
add_item_edit ();
add_item_replay ();
add_item_cancel ();
add_item_archived ();
add_item_unarchived ()
add_tool_separator ();
add_tool_item "Edit current proof" edit_current_proof;
add_tool_item "Replay selection" replay_obsolete_proofs;
add_tool_item "Mark as obsolete" cancel_proofs;
add_tool_item "Mark as archived" (set_archive_proofs true);
add_tool_item "Remove from archive" (set_archive_proofs false)
let () =
let b = GButton.button ~packing:tools_box#add ~label:"Edit" () in
......@@ -2166,25 +2089,9 @@ let clean_selection () =
(get_selected_row_references ())
let () =
let add_separator () =
ignore(tools_factory#add_separator
() : GMenu.menu_item) in
let add_item_remove () =
ignore(tools_factory#add_image_item
~label:"Remove current proof"
~callback:confirm_remove_selection
() : GMenu.image_menu_item) in
let add_item_clean () =
ignore(tools_factory#add_image_item
~label:"Clean selection"
~callback:clean_selection
() : GMenu.image_menu_item) in
add_refresh_provers add_separator "add sep in tools menu";
add_refresh_provers add_item_remove "add remove in tools menu";
add_refresh_provers add_item_clean "add clean in tools menu";
add_separator ();
add_item_remove ();
add_item_clean ()
add_tool_separator ();
add_tool_item "Remove current proof" confirm_remove_selection;
add_tool_item "Clean selection" clean_selection
let () =
let b = GButton.button ~packing:cleaning_box#add ~label:"Remove" () in
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment