cvs diff: Diffing .
Index: mcclim.asd
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/mcclim.asd,v
retrieving revision 1.56
diff -u -u -r1.56 mcclim.asd
--- mcclim.asd	27 Apr 2007 21:37:14 -0000	1.56
+++ mcclim.asd	7 May 2007 18:06:15 -0000
@@ -440,7 +440,7 @@
     :depends-on (:clim :clim-postscript
                  ;; If we're on an implementation that ships CLX, use
                  ;; it. Same if the user has loaded CLX already.
-                 #+(and (or sbcl scl openmcl ecl clx allegro)
+                 #+(and (or sbcl scl ecl clx allegro)
 			(not (or gtkairo clim-graphic-forms)))
 		 :clim-clx
                  #+clim-graphic-forms             :clim-graphic-forms
@@ -450,7 +450,8 @@
 
                  ;; But until it's ready, it's no use forcing users to
                  ;; cope with possible bugs.
-                 ;; #+(or openmcl mcl)          :clim-beagle
+                 #+(and (not clx) (or openmcl mcl))
+		 :beagle
 
 		 #+gtkairo :clim-gtkairo
 
Index: Backends/beagle/beagle-backend.asd
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Backends/beagle/beagle-backend.asd,v
retrieving revision 1.7
diff -u -u -r1.7 beagle-backend.asd
--- Backends/beagle/beagle-backend.asd	12 Jun 2005 16:53:25 -0000	1.7
+++ Backends/beagle/beagle-backend.asd	7 May 2007 18:06:16 -0000
@@ -24,7 +24,7 @@
                 #:port-disable-sheet
 		#:port-motion-hints
                 #:port-force-output
-                #:%set-port-keyboard-focus
+                ;;#:%set-port-keyboard-focus
                 #:set-sheet-pointer-cursor
                 ;;
                 #:port-set-mirror-region
@@ -66,7 +66,7 @@
                 #:width                 ;dito
                 #:coordinate=
                 #:get-transformation
-                #:keyboard-input-focus
+                #:port-keyboard-input-focus
                 #:port-grab-pointer
                 #:port-ungrab-pointer
                 ;;