[mcclim-cvs] CVS mcclim/Backends/CLX

[dlichteblau]

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)