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*