[mcclim-cvs] CVS mcclim

[crhodes]

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

Modified Files:
	mcclim.asd 
Log Message:
Add highly experimental Null backend.

The idea is that the null backend implements all the mcclim machinery 
for a backend, but doesn't side-effect the rest of the world; this 
should make it possible to write test cases for mcclim-internal 
invariants, and potentially also mcclim applications, by running them 
under this backend.  This utopia is quite a way off, however; what 
actually works at present is not much more than:
  (setf clim:*default-server-path* :null)
  (let ((stream (clim:open-window-stream)
    (clim:draw-rectangle* stream 10 10 100 200)
    (clim:stream-output-history stream))
but it's a start.

(Additionally, the Null backend could be used as a starting point for 
implementing other backends.)


--- /project/mcclim/cvsroot/mcclim/mcclim.asd	2006/03/23 16:59:47	1.14
+++ /project/mcclim/cvsroot/mcclim/mcclim.asd	2006/03/24 11:45:03	1.15
@@ -246,6 +246,18 @@
                (:file "graft" :depends-on ("port" "package"))
                (:file "frame-manager" :depends-on ("medium" "port" "package"))))))
 
+(defsystem :clim-null
+    :depends-on (:clim)
+    :components
+    ((:module "Backends/Null"
+	      :pathname #.(make-pathname :directory '(:relative "Backends" "Null"))
+	      :components
+	      ((:file "package")
+	       (:file "port" :depends-on ("package"))
+	       (:file "medium" :depends-on ("port" "package"))
+	       (:file "graft" :depends-on ("port" "package"))
+	       (:file "frame-manager" :depends-on ("medium" "port" "package"))))))
+
 ;;; TODO/asf: I don't have the required libs to get :clim-opengl to load. tough.
 (clim-defsystem (:clim-opengl :depends-on (:clim))
    "Backends/OpenGL/opengl-x-frame-manager"
@@ -270,6 +282,9 @@
                  ;; But until it's ready, it's no use forcing users to
                  ;; cope with possible bugs.
                  ;; #+(or openmcl mcl)          :clim-beagle
+
+		 ;; null backend
+		 :clim-null
                  )
     :components ((:file "Looks/pixie"
                         :pathname #.(make-pathname :directory '(:relative "Looks") :name "pixie" :type "lisp"))))