X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaGtkMisc.mli;h=32b1fe53b945c600d801cac670348def88fee90c;hb=f1a2aec37db8f0a4da540a027cf91554e27ba88c;hp=23f820f86b21208b346f57534e41dab6289b6fc7;hpb=de9a83f286eee12117fb478ea2db18f7faebac9a;p=helm.git

diff --git a/helm/matita/matitaGtkMisc.mli b/helm/matita/matitaGtkMisc.mli
index 23f820f86..32b1fe53b 100644
--- 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 =