X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/dde333582e1dac8e2a464552588791a13a45211e..406aa97b03d3f732c280b04e3f6c12cfc66e338f:/gtk/export.lisp

diff --git a/gtk/export.lisp b/gtk/export.lisp
index fd686c0..70aee9c 100644
--- a/gtk/export.lisp
+++ b/gtk/export.lisp
@@ -1,11 +1,25 @@
 (in-package "GTK")
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (defexport define-style-color-accessor (name type)
+    (declare (ignore type))
+    name)
+
+  (defexport define-style-gc-reader (name type)
+    (declare (ignore type))
+    name))
+
 ;;; Autogenerating exported symbols
-(export-from-file #p"clg:gtk;gtktypes.lisp")
-(export-from-file #p"clg:gtk;gtkwidget.lisp")
-(export-from-file #p"clg:gtk;gtkcontainer.lisp")
-(export-from-file #p"clg:gtk;gtk.lisp")
-(export-from-file #p"clg:gtk;gtktree.lisp")
-(export-from-file #p"clg:gtk;gtkaction.lisp")
-(export-from-file #p"clg:gtk;gtkutils.lisp")
-(export-from-file #p"clg:gtk;gtkstyle.lisp")
+(export-from-system)
+
+
+;;; Now re-export some of the symbols from the CLG package
+(with-export-handlers 
+ (export-handler-makunbound 'defvar)
+ (export-handler-makunbound 'deftype)
+ 
+ (defexport defclass (class superclasses &optional slotdefs &rest options)
+   (declare (ignore superclasses options))
+   (export-defclass-form class slotdefs nil))
+
+ (export-from-system "CLG"))