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)))