[mcclim-cvs] CVS mcclim

[rschlatte]

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 at 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