X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/6dfb20397142408cc4adfa437bb12d8aa300270e..72d9260f8258b525339c7241da0631ceaf9f3842:/gtk/gtktypes.lisp

diff --git a/gtk/gtktypes.lisp b/gtk/gtktypes.lisp
index 1155977..2bd3f9b 100644
--- a/gtk/gtktypes.lisp
+++ b/gtk/gtktypes.lisp
@@ -84,6 +84,9 @@ (defclass border (boxed)
     :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