Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv30166

Modified Files: mcclim.asd Log Message: Beagle backend fixes * functionality not tested, but it loads under clozure cl snapshot * Patches by Greg Pfeil

Signed-off-by: Rudi Schlatte rudi@constantly.at

--- /project/mcclim/cvsroot/mcclim/mcclim.asd 2007/12/08 08:53:59 1.63 +++ /project/mcclim/cvsroot/mcclim/mcclim.asd 2007/12/18 10:54:21 1.64 @@ -82,6 +82,12 @@ (defsystem :clx :class requireable-system))

+;;; Required for the beagle backend (not activated by default) +#+clozure-common-lisp +(progn + (require :cocoa) + (require :objc-support)) + (defmacro clim-defsystem ((module &key depends-on) &rest components) `(progn (asdf:defsystem ,module @@ -377,6 +383,71 @@ (:file "graft" :depends-on ("port" "package")) (:file "frame-manager" :depends-on ("medium" "port" "package"))))))

+(defsystem :clim-beagle + :depends-on (clim) + :components + ((:module "Backends" + :components + ((:module "beagle" + :serial t + :components + ((:file "package") + (:module "native" + :components ((:file "lisp-bezier-path") + (:file "lisp-window") + (:file "lisp-window-delegate") + (:file "lisp-view" + :depends-on ("lisp-bezier-path")) + (:file "lisp-view-additional" + :depends-on ("lisp-view")) + (:file "lisp-scroller") + (:file "lisp-slider") + (:file "lisp-button") + (:file "lisp-image"))) + (:file "cocoa-util") + (:module "windowing" + :depends-on ("native") + :components ((:file "port") + (:file "frame-manager") + (:file "mirror") + (:file "graft"))) + (:module "native-panes" + :components ((:file "beagle-scroll-bar-pane") + (:file "beagle-slider-pane") + ;; Basic buttons - not collections of buttons + (:file "beagle-fundamental-button-pane") + ;; Button collections (radio + checkbox) + ;; (:file "beagle-button-collection-pane") + (:file "scroller-pane-fix"))) + (:module "output" + :depends-on ("windowing") + :components ((:file "medium") + (:file "fonts"))) + (:module "input" + :depends-on ("windowing") + :components ((:file "events") + (:file "keysymdef"))) + (:module "glimpse" + :components ((:file "glimpse") + (:file "glimpse-support") + (:file "glimpse-command-tables") + (:file "glimpse-present-process" + :depends-on ("glimpse" "glimpse-support")) + (:file "glimpse-present-window" + :depends-on ("glimpse" "glimpse-support")) + (:file "glimpse-modeless-commands" + :depends-on ("glimpse" "glimpse-support")) + (:file "glimpse-process-commands" + :depends-on ("glimpse" "glimpse-support")) + (:file "glimpse-window-commands" + :depends-on ("glimpse" "glimpse-support")))) + (:module "profile" + :components ((:file "profile"))) + (:module "tests" + :components ((:file "drawing-tests") + (:file "graft-tests")))))))) +) + (defsystem :clim-null :depends-on (:clim) :components