X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.text.lisp;h=69c365c1888aeaf57c800e8baef5081a69b2ce27;hb=96aa7293addaacdfe29ce32e60e2feac7df6ffce;hp=73a49853f532542f5eedad4e731c9016239f9c4c;hpb=3baf6bce24973d10801ce5a7eaddcb4bd30c3c5c;p=cl-gtk2.git

diff --git a/gtk/gtk.text.lisp b/gtk/gtk.text.lisp
index 73a4985..69c365c 100644
--- a/gtk/gtk.text.lisp
+++ b/gtk/gtk.text.lisp
@@ -14,6 +14,8 @@
 (defmethod translate-to-foreign (value (type unichar))
   (char-code value))
 
+(at-init () (foreign-funcall "gtk_text_iter_get_type" :int))
+
 (define-g-boxed-opaque text-iter "GtkTextIter"
   :alloc (gtk-text-iter-alloc))