[mcclim-cvs] CVS update: mcclim/Backends/CLX/port.lisp

[Robert Strandh]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory common-lisp.net:/tmp/cvs-serv17031

Modified Files:
	port.lisp 
Log Message:
Fix for method X-pixel.  It now uses the screen of the port as opposed
to the first screen of the display. 

Thanks to Martin Rydström for this patch.


Date: Tue Dec 28 11:06:21 2004
Author: rstrandh

Index: mcclim/Backends/CLX/port.lisp
diff -u mcclim/Backends/CLX/port.lisp:1.100 mcclim/Backends/CLX/port.lisp:1.101
--- mcclim/Backends/CLX/port.lisp:1.100	Sat Dec 11 22:15:22 2004
+++ mcclim/Backends/CLX/port.lisp	Tue Dec 28 11:06:21 2004
@@ -1063,8 +1063,7 @@
     (or (gethash color table)
 	(setf (gethash color table)
 	      (multiple-value-bind (r g b) (color-rgb color)
-		(xlib:alloc-color (xlib:screen-default-colormap
-				   (first (xlib:display-roots (clx-port-display port))))
+		(xlib:alloc-color (xlib:screen-default-colormap (clx-port-screen port))
 				  (xlib:make-color :red r :green g :blue b)))))))
 
 (defmethod port-mirror-width ((port clx-port) sheet)