Update of /project/mcclim/cvsroot/mcclim/Backends/CLX In directory clnet:/tmp/cvs-serv2959/Backends/CLX
Modified Files: image.lisp Log Message: card8 in the CLX image code is an undefined type. For want of anything better or inspiration, use xlib:card8 instead.
--- /project/mcclim/cvsroot/mcclim/Backends/CLX/image.lisp 2006/03/23 08:45:26 1.21 +++ /project/mcclim/cvsroot/mcclim/Backends/CLX/image.lisp 2006/12/17 19:42:51 1.22 @@ -84,7 +84,7 @@ ((pixels :initarg :pixels :type (simple-array (unsigned-byte 24) (* *)) :reader image-pixels) - (max-level :initarg :max-level :type card-8 :reader image-max-level))) + (max-level :initarg :max-level :type xlib:card8 :reader image-max-level)))
(defun make-truecolor-image (pixels max-value) (make-instance 'truecolor-image :pixels pixels :max-level max-value))