[mcclim-cvs] CVS mcclim

[ahefner]

Update of /project/mcclim/cvsroot/mcclim
In directory cl-net:/tmp/cvs-serv22219

Modified Files:
	graphics.lisp 
Log Message:
make-pattern-from-bitmap-file: Fix width/height - image matrices are
row-major.


--- /project/mcclim/cvsroot/mcclim/graphics.lisp	2008/04/14 16:46:37	1.61
+++ /project/mcclim/cvsroot/mcclim/graphics.lisp	2008/10/23 00:23:06	1.62
@@ -1016,7 +1016,8 @@
     (medium (design rgb-image-design) &rest options
      &key (x 0) (y 0) &allow-other-keys)
   (with-medium-options (medium options)
-    (medium-draw-image-design* medium design x y)))
+    (medium-draw-image-design* medium design x y))
+  (values))
 
 ;;;;
 
@@ -1203,8 +1204,8 @@
     (if read-designs
         (make-pattern res (or designs read-designs))
         (make-instance 'rgb-pattern :image (make-instance 'rgb-image
-                                            :width (array-dimension res 0)
-                                            :height (array-dimension res 1)
+                                            :width (array-dimension res 1)
+                                            :height (array-dimension res 0)
                                             :data res)))))
 
 (define-bitmap-file-reader :xpm (pathname)