Fix some compilation warnings

[cl-gtk2.git] / gtk / gtk.label.lisp

diff --git a/gtk/gtk.label.lisp b/gtk/gtk.label.lisp
index 675b4ae..bd84e4c 100644 (file)
--- a/gtk/gtk.label.lisp
+++ b/gtk/gtk.label.lisp
@@ -7,7 +7,7 @@
 
 (defun gtk-label-get-layout-offsets (label)
   (with-foreign-objects ((x :int) (y :int))
-    (gtk-label-get-layout-offsets label x y)
+    (%gtk-label-get-layout-offsets label x y)
     (list (mem-ref x :int) (mem-ref y :int))))
 
 (defcfun (label-select-region "gtk_label_select_region") :void