lablgtk3-extras 3.0.1 (latest)

Convenient functions to handle key press events in Lablgtk widgets.

type modifier = Gdk.Tags.modifier

val set_default_modifiers : modifier list -> unit

Set the default modifier list. The first default value is [].

val set_default_mask : modifier list -> unit

Set the default modifier mask. The first default value is [`MOD2 ; `MOD3 ; `MOD4 ; `MOD5 ; `LOCK]. The mask defines the modifiers not taken into account when looking for the handler of a key press event.

Setting handlers for simple key press events.

val add : 
  < connect : < destroy : callback:(unit -> unit) -> GtkSignal.id.. >
    ; event : GObj.event_ops
    ; get_oid : int.. > ->
  ?cond:(unit -> bool) ->
  ?mods:modifier list ->
  ?mask:modifier list ->
  Gdk.keysym ->
  (unit -> unit) ->
  unit

add widget key callback associates the callback function to the event "key_press" with the given key for the given widget.

parameter remove
when true, the previous handlers for the given key and modifier list are not kept.

parameter cond
this function is a guard: the callback function is not called if the cond function returns false. The default cond function always returns true.

parameter mods
the list of modifiers. If not given, the default modifiers are used. You can set the default modifiers with function Okey.set_default_modifiers.

parameter mask
the list of modifiers which must not be taken into account to trigger the given handler. mods and mask must not have common modifiers. If not given, the default mask is used. You can set the default modifiers mask with function Okey.set_default_mask.

val add_list : 
  < connect : < destroy : callback:(unit -> unit) -> GtkSignal.id.. >
    ; event : GObj.event_ops
    ; get_oid : int.. > ->
  ?cond:(unit -> bool) ->
  ?mods:modifier list ->
  ?mask:modifier list ->
  Gdk.keysym list ->
  (unit -> unit) ->
  unit

It calls Okey.add for each given key.

val set : 
  < connect : < destroy : callback:(unit -> unit) -> GtkSignal.id.. >
    ; event : GObj.event_ops
    ; get_oid : int.. > ->
  ?cond:(unit -> bool) ->
  ?mods:modifier list ->
  ?mask:modifier list ->
  Gdk.keysym ->
  (unit -> unit) ->
  unit

Like Okey.add but the previous handlers for the given modifiers and key are not kept.

val set_list : 
  < connect : < destroy : callback:(unit -> unit) -> GtkSignal.id.. >
    ; event : GObj.event_ops
    ; get_oid : int.. > ->
  ?cond:(unit -> bool) ->
  ?mods:modifier list ->
  ?mask:modifier list ->
  Gdk.keysym list ->
  (unit -> unit) ->
  unit

It calls Okey.set for each given key.

val remove_widget : 
  < connect : < destroy : callback:(unit -> unit) -> GtkSignal.id.. >
    ; event : GObj.event_ops
    ; get_oid : int.. > ->
  unit ->
  unit

Remove the handlers associated to the given widget. This is automatically done when a widget is destroyed but you can do it yourself.

Setting handlers for combination of key press events, a la emacs

type handler

type keyhit_spec

type keyhit_state = (modifier list * Gdk.keysym) list

val ignored_keys : Gdk.keysym list ref

The keys which are ignored when they are pressed alone.

type handler_tree_node =

| Handler of handler
| Node of handler_tree list

and handler_tree = {

mutable hst_spec : keyhit_spec;
mutable hst_v : handler_tree_node;

}

val set_handler_trees : 
  ?stop:(modifier list * Gdk.keysym) ->
  (unit -> handler_tree list) ->
  ?f_display_state:(after_handler:bool -> keyhit_state -> unit) ->
  < misc : GObj.misc_ops ; event : GObj.event_ops.. > ->
  unit

val handler : ?cond:(unit -> bool) -> (unit -> unit) -> handler

val keyhit_spec : 
  ?mods:modifier list ->
  ?mask:modifier list ->
  Gdk.keysym ->
  keyhit_spec

val handler_tree : 
  ?mods:modifier list ->
  ?mask:modifier list ->
  Gdk.keysym ->
  handler_tree_node ->
  handler_tree

val reset_state : < misc : GObj.misc_ops.. > -> unit

val trees_of_list : (keyhit_state * (unit -> unit)) list -> handler_tree list

package lablgtk3-extras

Setting handlers for simple key press events.

Setting handlers for combination of key press events, a la emacs