From 1ebe0bd5ae7b341b81ebea0720d4a1aff4f64b1d Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Tue, 18 Aug 2009 23:34:30 +0400 Subject: [PATCH] gtk: export GtkBorder --- gtk/gtk.objects.lisp | 4 ++++ 1 file changed, 4 insertions(+) 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) -- 1.7.10.4