Typo.

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

diff --git a/gtk/gtk.text.lisp b/gtk/gtk.text.lisp
index 73a4985..c1104ec 100644 (file)
--- 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))
 
@@ -69,6 +71,7 @@
   (dummy12 :int)
   (dummy13 :int)
   (dummy14 :pointer))
+(defctype %text-iter (:struct %text-iter))
 
 (defcfun gtk-text-iter-copy :pointer
   (iter :pointer))