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)