3 ; TODO: gtk_get_default_language
5 (defcfun gtk-main-iteration :boolean)
7 (export 'gtk-main-iteration)
9 (defcfun gtk-main-iteration-do :boolean
12 (export 'gtk-main-iteration-do)
14 ; TODO: gtk_main_do_event
16 (defcfun (grad-add "gtk_grab_add") :void
21 (defcfun (grab-current "gtk_grab_get_current") g-object)
23 (export 'grab-current)
25 (defcfun (grab-remove "gtk_grab_remove") :void
30 ; TODO: gtk_quit_add_destroy
34 ; TODO: gtk_quit_add_full
36 ; TODO: gtk_quit_remove
38 ; TODO: gtk_quit_remove_by_data
40 ; TODO: gtk_key_snooper_install
42 ; TODO: gtk_key_snooper_remove
44 (defcfun (current-event "gtk_get_current_event") (g-boxed-foreign event :return))
46 (export 'current-event)
48 (defcfun (current-event-time "gtk_get_current_event_time") :uint32)
50 (export 'current-event-time)
52 (defcfun (event-widget "gtk_get_event_widget") g-object
53 (event (g-boxed-foreign event)))
55 (export 'event-widget)
57 (defcfun (propagate-event "gtk_propagate_event") :void
59 (event (g-boxed-foreign event)))
61 (export 'propagate-event)