Index: gadgets.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/gadgets.lisp,v
retrieving revision 1.99
diff -u -u -r1.99 gadgets.lisp
--- gadgets.lisp	30 Mar 2006 12:07:59 -0000	1.99
+++ gadgets.lisp	9 Apr 2006 16:33:38 -0000
@@ -2562,6 +2562,7 @@
   (let ((port (port gadget)))    
     (setf (previous-focus gadget) (port-keyboard-input-focus port))
     (setf (port-keyboard-input-focus port) gadget))
+  (handle-repaint gadget +everywhere+)	;FIXME: trigger initialization
   (let ((cursor (cursor (area gadget))))
     (letf (((cursor-state cursor) nil))
       (setf (cursor-appearance cursor) :solid))))
@@ -2571,6 +2572,7 @@
   (let ((port (port gadget)))
     (setf (port-keyboard-input-focus port) (previous-focus gadget))
     (setf (previous-focus gadget) nil))
+  (handle-repaint gadget +everywhere+)	;FIXME: trigger initialization
   (let ((cursor (cursor (area gadget))))
     (letf (((cursor-state cursor) nil))
       (setf (cursor-appearance cursor) :hollow))))
Index: mcclim.asd
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/mcclim.asd,v
retrieving revision 1.16
diff -u -u -r1.16 mcclim.asd
--- mcclim.asd	29 Mar 2006 10:43:37 -0000	1.16
+++ mcclim.asd	9 Apr 2006 16:33:38 -0000
@@ -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
                  )
Index: ports.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/ports.lisp,v
retrieving revision 1.51
diff -u -u -r1.51 ports.lisp
--- ports.lisp	27 Mar 2006 10:44:34 -0000	1.51
+++ ports.lisp	9 Apr 2006 16:33:38 -0000
@@ -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*