Commit 087ba995 authored by MARCHE Claude's avatar MARCHE Claude
Browse files

multi-selection

parent a8b9d234
......@@ -263,8 +263,11 @@ module Model = struct
let model_filter = GTree.model_filter model in
model_filter#set_visible_column visible_column;
let view = GTree.view ~model:model_filter ~packing () in
let _ = view#selection#set_mode `SINGLE in
let _ = view#set_rules_hint true in
(*
let () = view#selection#set_mode `SINGLE in
*)
let () = view#selection#set_mode `MULTIPLE in
let () = view#set_rules_hint true in
ignore (view#append_column view_name_column);
ignore (view#append_column view_status_column);
ignore (view#append_column view_time_column);
......@@ -1441,7 +1444,9 @@ let edit_current_proof () =
match goals_view#selection#get_selected_rows with
| [] -> ()
| [r] -> edit_selected_row r
| _ -> assert false (* multi-selection is disabled *)
| _ ->
info_window `INFO "Please select exactly one proof to edit"
let add_item_edit () =
ignore (tools_factory#add_image_item
......
......@@ -6,7 +6,7 @@ theory TestInt
goal Test0_5 : true -> false
goal Test1: 2+2 = 5
goal Test1: 2+2 = 4
goal Test2: forall x:int. x*x >= 0
......@@ -18,7 +18,7 @@ theory TestInt
goal Test6: 2+3 = 5 and (forall x:int. x*x >= 0)
goal Test7: 0 = 1 /\ 2 = 3 /\ 4 = 5 /\ 6 = 7
goal Test7: 0 = 2 /\ 2 = 3 /\ 4 = 5 /\ 6 = 7
(*
goal Test8: 3+3=7
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment