X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.tooltip.lisp;h=6ef1d98035265bb8fef0b911639483dcc4a5fc12;hb=9f4a86e68709db2385207633cbecd315688c87c5;hp=5c3aa2395323cfbbf587244b084ad54020a3c4d2;hpb=e9622209ae8a02f82c2813ea7d358d711e1ba2d0;p=cl-gtk2.git

diff --git a/gtk/gtk.tooltip.lisp b/gtk/gtk.tooltip.lisp
index 5c3aa23..6ef1d98 100644
--- a/gtk/gtk.tooltip.lisp
+++ b/gtk/gtk.tooltip.lisp
@@ -54,6 +54,6 @@
 
 (defcfun (tooltip-set-tip-area "gtk_tooltip_set_tip_area") :void
   (tooltip g-object)
-  (rectangle (g-boxed-ptr rectangle)))
+  (rectangle (g-boxed-foreign rectangle)))
 
 (export 'tooltip-set-tip-area)
\ No newline at end of file