gtk/gtk.main-loop-events.lisp

   1 (in-package :gtk)
   2
   3 ; TODO: gtk_get_default_language
   4
   5 (defcfun gtk-main-iteration :boolean)
   6
   7 (export 'gtk-main-iteration)
   8
   9 (defcfun gtk-main-iteration-do :boolean
  10   (blocking :boolean))
  11
  12 (export 'gtk-main-iteration-do)
  13
  14 ; TODO: gtk_main_do_event
  15
  16 (defcfun (grad-add "gtk_grab_add") :void
  17   (widget g-object))
  18
  19 (export 'grab-add)
  20
  21 (defcfun (grab-current "gtk_grab_get_current") g-object)
  22
  23 (export 'grab-current)
  24
  25 (defcfun (grab-remove "gtk_grab_remove") :void
  26   (widget g-object))
  27
  28 (export 'grab-remove)
  29
  30 ; TODO: gtk_quit_add_destroy
  31
  32 ; TODO: gtk_quit_add
  33
  34 ; TODO: gtk_quit_add_full
  35
  36 ; TODO: gtk_quit_remove
  37
  38 ; TODO: gtk_quit_remove_by_data
  39
  40 ; TODO: gtk_key_snooper_install
  41
  42 ; TODO: gtk_key_snooper_remove
  43
  44 (defcfun (current-event "gtk_get_current_event") (g-boxed-ptr event))
  45
  46 (export 'current-event)
  47
  48 (defcfun (current-event-time "gtk_get_current_event_time") :uint32)
  49
  50 (export 'current-event-time)
  51
  52 (defcfun (event-widget "gtk_get_event_widget") g-object
  53   (event (g-boxed-ptr event)))
  54
  55 (export 'event-widget)
  56
  57 (defcfun (propagate-event "gtk_propagate_event") :void
  58   (widget g-object)
  59   (event (g-boxed-ptr event)))
  60
  61 (export 'propagate-event)
  62