[mcclim-cvs] CVS mcclim

[dlichteblau]

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

Modified Files:
	mcclim.asd ports.lisp 
Log Message:
* Backends/gtkairo: New directory: Experimental GTK+ backend.

* mcclim.asd (clim-gtkairo): New system.  (clim-looks): Depend on
clim-gtkairo if the gtkairo feature has been set by the user.

* ports.lisp (*server-path-search-order*): s/gtk/gtkairo/


--- /project/mcclim/cvsroot/mcclim/mcclim.asd	2006/04/17 17:54:58	1.18
+++ /project/mcclim/cvsroot/mcclim/mcclim.asd	2006/04/17 18:40:27	1.19
@@ -258,6 +258,26 @@
 	       (:file "graft" :depends-on ("port" "package"))
 	       (:file "frame-manager" :depends-on ("medium" "port" "package"))))))
 
+(defsystem :clim-gtkairo
+    :depends-on (:clim :cffi)
+    :components
+    ((:module "Backends/gtkairo"
+	      :pathname #.(make-pathname :directory '(:relative "Backends" "gtkairo"))
+	      :serial t			;asf wird's ja richten
+	      :components
+	      ((:file "clim-fix")
+	       (:file "package")
+	       (:file "gtk-ffi")
+	       (:file "cairo-ffi")
+	       (:file "port")
+	       (:file "event")
+	       (:file "keysymdef")
+	       (:file "medium")
+	       (:file "pixmap")
+	       (:file "graft")
+	       (:file "frame-manager")
+	       (:file "gadgets")))))
+
 ;;; 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"
@@ -283,6 +303,8 @@
                  ;; cope with possible bugs.
                  ;; #+(or openmcl mcl)          :clim-beagle
 
+		 #+gtkairo :clim-gtkairo
+
 		 ;; null backend
 		 :clim-null
                  )
--- /project/mcclim/cvsroot/mcclim/ports.lisp	2006/03/27 10:44:34	1.51
+++ /project/mcclim/cvsroot/mcclim/ports.lisp	2006/04/17 18:40:27	1.52
@@ -25,7 +25,7 @@
 
 (defvar *default-server-path* nil)
 
-(defvar *server-path-search-order* '(:genera :ms-windows :gtk :clx :x11 :opengl :beagle :null))
+(defvar *server-path-search-order* '(:genera :ms-windows :gtkairo :clx :x11 :opengl :beagle :null))
 
 (defun find-default-server-path ()
   (loop for port in *server-path-search-order*