X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaGtkMisc.mli;h=d18ff281d7f29e7a82cb0188bc5b7da775c83c86;hb=c0f06261e5626228e4681de9973b6412524f09a2;hp=46e5845964fa1284ad2edd11a89c03d415e7aea2;hpb=ef9ec8cb57d15426a96fe40d056eb07804753bb9;p=helm.git diff --git a/helm/matita/matitaGtkMisc.mli b/helm/matita/matitaGtkMisc.mli index 46e584596..d18ff281d 100644 --- a/helm/matita/matitaGtkMisc.mli +++ b/helm/matita/matitaGtkMisc.mli @@ -1,4 +1,4 @@ -(* Copyright (C) 2004, HELM Team. +(* Copyright (C) 2004-2005, HELM Team. * * This file is part of HELM, an Hypertextual, Electronic * Library of Mathematics, developed at the Computer Science @@ -27,15 +27,34 @@ (** 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 val add_key_binding: Gdk.keysym -> (unit -> 'a) -> GBin.event_box -> unit -val connect_button: GButton.button -> (unit -> unit) -> unit +(** Connect a callback to the clicked signal of a button, ignoring its return + * 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 (** connect a unit -> unit callback to a particular key press event. Event can * be specified using its keysym and a list of modifiers which must be in @@ -62,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 = @@ -74,12 +107,6 @@ class type gui = (** {3 Dialogs} *) - (** @raise MatitaTypes.Cancel *) -val interactive_user_uri_choice: gui:#gui -> MatitaTypes.choose_uris_callback - - (** @raise MatitaTypes.Cancel *) -val interactive_interp_choice: gui:#gui -> MatitaTypes.choose_interp_callback - (** @return true if user hit "ok" button, false if user hit "cancel" button * @param cancel if set to true a cancel button is shown to the user, otherwise * it is not (and indeed the function will return true). Defaults to true *)