sig
val cast : 'a Gobject.obj -> Gtk.action Gobject.obj
module P :
sig
val hide_if_empty : ([> `action ], bool) Gobject.property
val is_important : ([> `action ], bool) Gobject.property
val label : ([> `action ], string) Gobject.property
val icon_name : ([> `action ], string) Gobject.property
val name : ([> `action ], string) Gobject.property
val sensitive : ([> `action ], bool) Gobject.property
val short_label : ([> `action ], string) Gobject.property
val stock_id : ([> `action ], GtkStock.id) Gobject.property
val tooltip : ([> `action ], string) Gobject.property
val visible : ([> `action ], bool) Gobject.property
val visible_horizontal : ([> `action ], bool) Gobject.property
val visible_vertical : ([> `action ], bool) Gobject.property
end
module S : sig val activate : ([> `action ], unit -> unit) GtkSignal.t end
val create :
?name:string -> Gtk.action Gobject.param list -> Gtk.action Gobject.obj
external is_sensitive : [> `action ] Gobject.obj -> bool
= "ml_gtk_action_is_sensitive"
external is_visible : [> `action ] Gobject.obj -> bool
= "ml_gtk_action_is_visible"
external activate : [> `action ] Gobject.obj -> unit
= "ml_gtk_action_activate"
external connect_proxy :
[> `action ] Gobject.obj -> Gtk.widget Gtk.obj -> unit
= "ml_gtk_action_connect_proxy"
external disconnect_proxy :
[> `action ] Gobject.obj -> Gtk.widget Gtk.obj -> unit
= "ml_gtk_action_disconnect_proxy"
external get_proxies : [> `action ] Gobject.obj -> Gtk.widget Gtk.obj list
= "ml_gtk_action_get_proxies"
external connect_accelerator : [> `action ] Gobject.obj -> unit
= "ml_gtk_action_connect_accelerator"
external disconnect_accelerator : [> `action ] Gobject.obj -> unit
= "ml_gtk_action_disconnect_accelerator"
external set_accel_path : [> `action ] Gobject.obj -> string -> unit
= "ml_gtk_action_set_accel_path"
external set_accel_group :
[> `action ] Gobject.obj -> Gtk.accel_group -> unit
= "ml_gtk_action_set_accel_group"
external block_activate_from :
[> `action ] Gobject.obj -> Gtk.widget Gtk.obj -> unit
= "ml_gtk_action_block_activate_from"
external unblock_activate_from :
[> `action ] Gobject.obj -> Gtk.widget Gtk.obj -> unit
= "ml_gtk_action_unblock_activate_from"
end