X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaGtkMisc.mli;h=d18ff281d7f29e7a82cb0188bc5b7da775c83c86;hb=ded3a0b12793fc8e463a4a3be9f62f54f734897e;hp=993dff4c37c0f74b82dace32a85b8c117b7d70c1;hpb=de4483296d06aac3df4da10d5401b1f97c4350ab;p=helm.git diff --git a/helm/matita/matitaGtkMisc.mli b/helm/matita/matitaGtkMisc.mli index 993dff4c3..d18ff281d 100644 --- a/helm/matita/matitaGtkMisc.mli +++ b/helm/matita/matitaGtkMisc.mli @@ -27,9 +27,17 @@ (** given a window and a check menu item it links the two so that the former * is only hidden on delete and the latter toggle show/hide of the former *) -val toggle_visibility: - win:GWindow.window -> check:GMenu.check_menu_item -> unit +val toggle_window_visibility: + window:GWindow.window -> check:GMenu.check_menu_item -> unit + + (** given a window and a check menu item it links the two so that the former + * is only hidden on delete and the latter toggle show/hide of the former *) +val toggle_widget_visibility: + widget:GObj.widget -> check:GMenu.check_menu_item -> unit +val toggle_callback: + callback:(bool -> unit) -> check:GMenu.check_menu_item -> unit + val toggle_win: ?check:GMenu.check_menu_item -> GWindow.window -> unit -> unit @@ -73,6 +81,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 =