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