3 ; TODO: gtk_get_default_language
5 (defcfun gtk-events-pending :boolean)
7 (export 'gtk-events-pending)
9 (defcfun gtk-main-iteration :boolean)
11 (export 'gtk-main-iteration)
13 (defcfun gtk-main-iteration-do :boolean
16 (export 'gtk-main-iteration-do)
18 ; TODO: gtk_main_do_event
20 (defcfun (grad-add "gtk_grab_add") :void
25 (defcfun (grab-current "gtk_grab_get_current") g-object)
27 (export 'grab-current)
29 (defcfun (grab-remove "gtk_grab_remove") :void
34 ; TODO: gtk_quit_add_destroy
38 ; TODO: gtk_quit_add_full
40 ; TODO: gtk_quit_remove
42 ; TODO: gtk_quit_remove_by_data
44 ; TODO: gtk_key_snooper_install
46 ; TODO: gtk_key_snooper_remove
48 (defcfun (current-event "gtk_get_current_event") (g-boxed-foreign event :return))
50 (export 'current-event)
52 (defcfun (current-event-time "gtk_get_current_event_time") :uint32)
54 (export 'current-event-time)
56 (defcfun (event-widget "gtk_get_event_widget") g-object
57 (event (g-boxed-foreign event)))
59 (export 'event-widget)
61 (defcfun (propagate-event "gtk_propagate_event") :void
63 (event (g-boxed-foreign event)))
65 (export 'propagate-event)