Add some type initializers to classes to remove some warnings

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

diff --git a/gtk/gtk.text.lisp b/gtk/gtk.text.lisp
index 73a4985..69c365c 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))