+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (defvar *gtk-files*
+ (list
+ #p"clg:gtk;gtktypes.lisp"
+ #p"clg:gtk;gtkwidget.lisp"
+ #p"clg:gtk;gtkcontainer.lisp"
+ #p"clg:gtk;gtk.lisp"
+ #p"clg:gtk;gtktree.lisp"
+ #p"clg:gtk;gtktext.lisp"
+ #p"clg:gtk;gtkaction.lisp"
+ #p"clg:gtk;gtkselection.lisp"
+ #p"clg:gtk;gtkutils.lisp"
+ #p"clg:gtk;gtkstyle.lisp"))
+
+ (defexport define-style-color-accessor (name type)
+ (declare (ignore type))
+ name)
+
+ (defexport define-style-gc-reader (name type)
+ (declare (ignore type))
+ name))
+