projects
/
cl-gtk2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
; 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)
(export 'current-event)
@@
-50,13
+50,13
@@
(export 'current-event-time)
(defcfun (event-widget "gtk_get_event_widget") g-object
(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)
(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)
(export 'propagate-event)