Fixed bug with (re-)initialising instances of gobject-class and incorrectly taking...

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

diff --git a/gtk/gtk.objects.lisp b/gtk/gtk.objects.lisp
index a5c1f0a..5fc6c40 100644 (file)
--- a/gtk/gtk.objects.lisp
+++ b/gtk/gtk.objects.lisp
@@ -6,6 +6,10 @@
   (top :int :initform 0)
   (bottom :int :initform 0))
 
+(at-init () (foreign-funcall "gtk_border_get_type" :int))
+
+(export (boxed-related-symbols 'border))
+
 (define-foreign-type pointer-as-integer-foreign-type ()
   ()
   (:actual-type :pointer)