Use new GBoxed in GDK and GTK

[cl-gtk2.git] / gtk / gtk.main-loop-events.lisp

diff --git a/gtk/gtk.main-loop-events.lisp b/gtk/gtk.main-loop-events.lisp
index b14cfce..1a34532 100644 (file)
--- a/gtk/gtk.main-loop-events.lisp
+++ b/gtk/gtk.main-loop-events.lisp
@@ -41,7 +41,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 +50,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)