[mcclim-cvs] CVS mcclim/Backends/CLX

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory clnet:/tmp/cvs-serv28249

Modified Files:
	medium.lisp 
Log Message:
Fix scrambled pixmap masks on big-endian hosts.


--- /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp	2006/12/19 02:16:38	1.76
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp	2006/12/28 19:26:33	1.77
@@ -430,6 +430,8 @@
           ;; Create an xlib "image" and copy it to our pixmap.
           ;; I do this because I'm not smart enough to operate xlib:put-raw-image.
           (let ((image (xlib:create-image :bits-per-pixel (* 8 bytes-per-pixel) :depth depth
+                                          :bit-lsb-first-p t
+                                          :byte-lsb-first-p t
                                           :width w :height h
                                           :format :z-pixmap
                                           :data converted-data)))