Ensure that BORDER is defined at compile time.

Otherwise ENTRY ends up with an undefined type for its slot.
rswarbrick · Apr 29, 2012 · 4542fb1 · 4542fb1
1 parent 476522a
commit 4542fb1
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/gtk/gtktypes.lisp b/gtk/gtktypes.lisp
@@ -84,6 +84,9 @@
     :type int))
   (:metaclass boxed-class))
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (register-type 'border '|gtk_border_get_type|))
+
 (defclass stock-item (struct)
   ((id
     :allocation :alien