(:export "CONTAINER-CHILD-CLASS" "CONTAINER-CHILD" "CONTAINER-CHILD-CLASS")
;; Signal names that need to be explicit exported
(:export "TOGGLED")
- ;; Symbols re-exported from glib
+ ;; Symbols re-exported from glib -- will not be exported from
+ ;; this package in the future
+ (:export "SIGNAL-EMIT-STOP" "SIGNAL-CONNECT" "SIGNAL-DISCONNECT"
+ "SIGNAL-HANDLER-BLOCK" "SIGNAL-HANDLER-UNBLOCK"
+ "TIMEOUT-ADD" "TIMEOUT-REMOVE" "IDLE-ADD" "IDLE-REMOVE"))
+
+
+(defpackage "CLG"
+ (:use "GLIB" "GTK")
+ ;; Symbols re-exported from the GTK package
+ (:export "TOGGLE" "CONTAINRE-CHILD")
+ ;; Symbols re-exported from GLIB package
(:export "SIGNAL-EMIT-STOP" "SIGNAL-CONNECT" "SIGNAL-DISCONNECT"
"SIGNAL-HANDLER-BLOCK" "SIGNAL-HANDLER-UNBLOCK"
"TIMEOUT-ADD" "TIMEOUT-REMOVE" "IDLE-ADD" "IDLE-REMOVE"))
(in-package "GTK")
+(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))
+
;;; 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;gtktext.lisp")
-(export-from-file #p"clg:gtk;gtkaction.lisp")
-(export-from-file #p"clg:gtk;gtkselection.lisp")
-(export-from-file #p"clg:gtk;gtkutils.lisp")
-(export-from-file #p"clg:gtk;gtkstyle.lisp")
+(export-from-files #.*gtk-files*)
+
+
+;;; 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-files #.*gtk-files* "CLG"))