d0f6c948 |
1 | (in-package "GTK") |
2 | |
656c1401 |
3 | (eval-when (:compile-toplevel :load-toplevel :execute) |
4 | (defvar *gtk-files* |
5 | (list |
6 | #p"clg:gtk;gtktypes.lisp" |
7 | #p"clg:gtk;gtkwidget.lisp" |
8 | #p"clg:gtk;gtkcontainer.lisp" |
9 | #p"clg:gtk;gtk.lisp" |
10 | #p"clg:gtk;gtktree.lisp" |
11 | #p"clg:gtk;gtktext.lisp" |
12 | #p"clg:gtk;gtkaction.lisp" |
13 | #p"clg:gtk;gtkselection.lisp" |
14 | #p"clg:gtk;gtkutils.lisp" |
15 | #p"clg:gtk;gtkstyle.lisp")) |
16 | |
17 | (defexport define-style-color-accessor (name type) |
18 | (declare (ignore type)) |
19 | name) |
20 | |
21 | (defexport define-style-gc-reader (name type) |
22 | (declare (ignore type)) |
23 | name)) |
24 | |
d0f6c948 |
25 | ;;; Autogenerating exported symbols |
656c1401 |
26 | (export-from-files #.*gtk-files*) |
27 | |
28 | |
29 | ;;; Now re-export some of the symbols from the CLG package |
30 | (with-export-handlers |
31 | (export-handler-makunbound 'defvar) |
32 | (export-handler-makunbound 'deftype) |
33 | |
34 | (defexport defclass (class superclasses &optional slotdefs &rest options) |
35 | (declare (ignore superclasses options)) |
36 | (export-defclass-form class slotdefs nil)) |
37 | |
38 | (export-from-files #.*gtk-files* "CLG")) |