[mcclim-cvs] CVS mcclim/Backends/CLX

[ahefner]

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

Modified Files:
	medium.lisp 
Log Message:
Really fix scrambled pixmap masks.


--- /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp	2006/12/28 19:26:33	1.77
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp	2006/12/28 19:30:40	1.78
@@ -430,8 +430,6 @@
           ;; 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)))
@@ -450,6 +448,8 @@
 
     ;; We can use image upload for the mask in either case.
     (let ((mask-image (xlib:create-image :bits-per-pixel 1 :depth 1
+                                         :bit-lsb-first-p t
+                                         :byte-lsb-first-p t                                          
                                          :width w :height h
                                          :data mask-data)))
       (xlib:put-image mask mask-gc mask-image