X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.tooltip.lisp;fp=gtk%2Fgtk.tooltip.lisp;h=6ef1d98035265bb8fef0b911639483dcc4a5fc12;hb=5fe17678137c04ece910ae65a35ee58a0c7761c7;hp=5c3aa2395323cfbbf587244b084ad54020a3c4d2;hpb=8bbc2dd0cdb4a478de5a624b032f1fb8be0b0f75;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