X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.main-loop-events.lisp;h=e3d910f6d3458feec1179fa0c1f34055b09c91a5;hb=586cdfb30c25058e139fff0484af8761f8735746;hp=b14cfce611ac856591595196ace34fff578a2a48;hpb=63fbed86c67daf990991d31d7f6f0c90fa9cb499;p=cl-gtk2.git

diff --git a/gtk/gtk.main-loop-events.lisp b/gtk/gtk.main-loop-events.lisp
index b14cfce..e3d910f 100644
--- a/gtk/gtk.main-loop-events.lisp
+++ b/gtk/gtk.main-loop-events.lisp
@@ -2,6 +2,10 @@
 
 ; TODO: gtk_get_default_language
 
+(defcfun gtk-events-pending :boolean)
+
+(export 'gtk-events-pending)
+
 (defcfun gtk-main-iteration :boolean)
 
 (export 'gtk-main-iteration)
@@ -13,7 +17,7 @@
 
 ; 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)
@@ -41,7 +45,7 @@
 
 ; 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)
 
@@ -50,13 +54,13 @@
 (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)