From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Tue, 18 Aug 2009 19:34:30 +0000 (+0400)
Subject: gtk: export GtkBorder
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=1ebe0bd5ae7b341b81ebea0720d4a1aff4f64b1d;p=cl-gtk2.git

gtk: export GtkBorder
---

diff --git a/gtk/gtk.objects.lisp b/gtk/gtk.objects.lisp
index a5c1f0a..5fc6c40 100644
--- 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)