X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.window.lisp;h=e5ee0a958a46860b99a0bf929c3c6953154d3552;hb=5fe17678137c04ece910ae65a35ee58a0c7761c7;hp=39a9e57b1d0aae43c0857a4cb8ed8faec836af3a;hpb=8bbc2dd0cdb4a478de5a624b032f1fb8be0b0f75;p=cl-gtk2.git

diff --git a/gtk/gtk.window.lisp b/gtk/gtk.window.lisp
index 39a9e57..e5ee0a9 100644
--- a/gtk/gtk.window.lisp
+++ b/gtk/gtk.window.lisp
@@ -25,7 +25,7 @@
 (defcfun (window-set-geometry-hints "gtk_window_set_geometry_hints") :void
   (window (g-object gtk-window))
   (geometry-widget (g-object widget))
-  (geometry geometry)
+  (geometry (g-boxed-foreign geometry))
   (geometry-mask window-hints))
 
 (export 'window-set-geometry-hints)
@@ -57,13 +57,13 @@
 
 (defcfun (window-activate-key "gtk_window_activate_key") :boolean
   (window (g-object gtk-window))
-  (event (g-boxed-ptr event-key)))
+  (event (g-boxed-foreign event)))
 
 (export 'window-activate-key)
 
 (defcfun (window-propagate-key-event "gtk_window_propagate_key_event") :boolean
   (window (g-object gtk-window))
-  (event (g-boxed-ptr event-key)))
+  (event (g-boxed-foreign event)))
 
 (export 'window-propagate-key-event)