prima implementazione di demodulate, superposition_left e superposition_right

[helm.git] / helm / matita / matitaGtkMisc.mli

diff --git a/helm/matita/matitaGtkMisc.mli b/helm/matita/matitaGtkMisc.mli
index 23f820f86b21208b346f57534e41dab6289b6fc7..32b1fe53b945c600d801cac670348def88fee90c 100644 (file)
--- a/helm/matita/matitaGtkMisc.mli
+++ b/helm/matita/matitaGtkMisc.mli
@@ -39,6 +39,11 @@ val add_key_binding: Gdk.keysym -> (unit -> 'a) -> GBin.event_box -> unit
   * value *)
 val connect_button: #GButton.button -> (unit -> unit) -> unit
 
+
+(** Connect a callback to the toggled signal of a button, ignoring its return
+  * value *)
+val connect_toggle_button: #GButton.toggle_button -> (unit -> unit) -> unit
+
 (** Like connect_button above, but connects a callback to the activate signal of
   * a menu item *)
 val connect_menu_item: #GMenu.menu_item -> (unit -> unit) -> unit
@@ -68,6 +73,20 @@ class stringListModel:
     method easy_selection:  unit -> string list
   end
 
+  (** as above with Pixbuf associated to each row. Each time an insert is
+   * performed a string tag should be specified, the corresponding pixbuf in the
+   * tags associative list will be shown on the left of the inserted row *)
+class taggedStringListModel:
+  tags:((string * GdkPixbuf.pixbuf) list) ->
+  GTree.view ->
+  object
+    method list_store: GTree.list_store (** list_store forwarding *)
+
+    method easy_append:     tag:string -> string -> unit
+    method easy_insert:     int -> tag:string -> string -> unit
+    method easy_selection:  unit -> string list
+  end
+
 (** {2 Matita GUI components} *)
 
 class type gui =