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

Modified Files: medium.lisp Log Message: Fixed typo in rgb-image code. * Backends/CLX/medium.lisp (medium-draw-image-design*): s/height/width/

--- /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp 2007/01/07 19:32:28 1.79 +++ /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp 2007/04/01 17:23:22 1.80 @@ -1159,7 +1159,7 @@ ((medium clx-medium) (design climi::rgb-image-design) x y) (let* ((da (sheet-direct-mirror (medium-sheet medium))) (image (slot-value design 'climi::image)) - (width (climi::image-height image)) + (width (climi::image-width image)) (height (climi::image-height image))) (destructuring-bind (&optional pixmap mask) (slot-value design 'climi::medium-data)