gtk/gtk.main-loop-events.lisp

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