From 01c3ff920c1273958dc8a1f3b6e09ca3a5c75a3a Mon Sep 17 00:00:00 2001 From: monate Date: Fri, 14 Mar 2003 17:51:28 +0000 Subject: coqide: maj preferences du wizzard git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3774 85f007b7-540e-0410-9357-904b9bb8a0f7 --- ide/utils/editable_cells.ml | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 ide/utils/editable_cells.ml (limited to 'ide/utils') diff --git a/ide/utils/editable_cells.ml b/ide/utils/editable_cells.ml new file mode 100644 index 000000000..edc9d2b06 --- /dev/null +++ b/ide/utils/editable_cells.ml @@ -0,0 +1,36 @@ +let create l = + let hbox = GPack.hbox () in + let columns = new GTree.column_list in + let command_col = columns#add GTree.Data.string in + let coq_col = columns#add GTree.Data.string in + let store = GTree.list_store columns + in +(* populate the store *) + let _ = List.iter (fun (x,y) -> + let row = store#append () in + store#set ~row ~column:command_col x; + store#set ~row ~column:coq_col y) + l + in + let view = GTree.view ~model:store ~packing:hbox#pack () in + + let renderer = GTree.cell_renderer_text () in + GtkText.Tag.set_property renderer (`EDITABLE true); + let first = + GTree.view_column ~title:"Coq Command to try" + ~renderer:(renderer,["text",command_col]) + () + in ignore (view#append_column first); + let second = + GTree.view_column ~title:"Coq Command to insert" + ~renderer:(renderer,["text",coq_col]) + () + in ignore (view#append_column second); + + let vbox = GPack.button_box `VERTICAL ~packing:hbox#pack () in + let up = GButton.button ~label:"Up" ~packing:(vbox#pack ~expand:true ~fill:false) () in + let down = GButton.button ~label:"Down" ~packing:(vbox#pack ~expand:true ~fill:false) () in + let add = GButton.button ~label:"Add" ~packing:(vbox#pack ~expand:true ~fill:false) () in + let remove = GButton.button ~label:"Remove" ~packing:(vbox#pack ~expand:true ~fill:false) () in + hbox + -- cgit v1.2.3