; TODO: gtk_get_default_language
+(defcfun gtk-events-pending :boolean)
+
+(export 'gtk-events-pending)
+
(defcfun gtk-main-iteration :boolean)
(export 'gtk-main-iteration)
; TODO: gtk_main_do_event
-(defcfun (grad-add "gtk_grab_add") :void
+(defcfun (grab-add "gtk_grab_add") :void
(widget g-object))
(export 'grab-add)
; TODO: gtk_key_snooper_remove
-(defcfun (current-event "gtk_get_current_event") (g-boxed-ptr event))
+(defcfun (current-event "gtk_get_current_event") (g-boxed-foreign event :return))
(export 'current-event)
-(defcfun (current-event-time gtk-get-current-event-time) :uint32)
+(defcfun (current-event-time "gtk_get_current_event_time") :uint32)
(export 'current-event-time)
(defcfun (event-widget "gtk_get_event_widget") g-object
- (event (g-boxed-ptr event)))
+ (event (g-boxed-foreign event)))
(export 'event-widget)
(defcfun (propagate-event "gtk_propagate_event") :void
(widget g-object)
- (event (g-boxed-ptr event)))
+ (event (g-boxed-foreign event)))
(export 'propagate-event)