chiark - git - mdw - clg/blob - gtk/export.lisp

   1 (in-package "GTK")
   2
   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
  25 ;;; Autogenerating exported symbols
  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"))