`sig
type menu_entry =
[ `C of string * bool * (bool -> unit)
| `I of string * (unit -> unit)
| `M of string * GToolbox.menu_entry list
| `R of (string * bool * (bool -> unit)) list
| `S ]
val build_menu : GMenu.menu -> entries:GToolbox.menu_entry list -> unit
val popup_menu :
entries:GToolbox.menu_entry list -> button:int -> time:int32 -> unit
val question_box :
?parent:#GWindow.window_skel ->
title:string ->
buttons:string list ->
?default:int -> ?icon:#GObj.widget -> string -> int
val message_box :
?parent:#GWindow.window_skel ->
title:string -> ?icon:#GObj.widget -> ?ok:string -> string -> unit
val input_string :
?parent:#GWindow.window_skel ->
title:string ->
?ok:string -> ?cancel:string -> ?text:string -> string -> string option
val input_text :
?parent:#GWindow.window_skel ->
title:string ->
?ok:string -> ?cancel:string -> ?text:string -> string -> string option
val select_file :
title:string ->
?dir:string Stdlib.ref -> ?filename:string -> unit -> string option
type 'a tree = [ `L of 'a | `N of 'a * 'a GToolbox.tree list ]
class ['a] tree_selection :
tree:'a GToolbox.tree ->
label:('a -> string) ->
info:('a -> string) ->
?packing:(GObj.widget -> unit) ->
?show:bool ->
unit ->
object
val obj : Gtk.widget Gtk.obj
val mutable selection : 'a option
method as_widget : Gtk.widget Gtk.obj
method clear_selection : unit -> unit
method coerce : GObj.widget
method destroy : unit -> unit
method drag : GObj.drag_ops
method get_oid : int
method misc : GObj.misc_ops
method selection : 'a option
method wtree : GBroken.tree
method wview : GText.view
end
val tree_selection_dialog :
?parent:#GWindow.window_skel ->
tree:'a GToolbox.tree ->
label:('a -> string) ->
info:('a -> string) ->
title:string ->
?ok:string ->
?cancel:string ->
?width:int -> ?height:int -> ?show:bool -> unit -> 'a option
type key_combination = [ `A | `C | `S ] list * char
type 'a shortcut_specification = {
name : string;
keys : GToolbox.key_combination list;
message : 'a;
}
val create_shortcuts :
window:#GWindow.window_skel ->
shortcuts:'a GToolbox.shortcut_specification list ->
callback:('a -> unit) -> unit
val autosize_clist : 'a GList.clist -> unit
end`