[mcclim-cvs] CVS mcclim/Apps/Listener

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory clnet:/tmp/cvs-serv2033/Apps/Listener

Modified Files:
	dev-commands.lisp 
Log Message:
Changed MCCLIM-IMAGES:LOAD-IMAGE to create an instance of an image
class containing size information. Fixex JPEG reading.


--- /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp	2008/01/09 17:19:47	1.44
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp	2008/01/11 06:00:04	1.45
@@ -1424,7 +1424,7 @@
   (if (probe-file image-pathname)
       (handler-case 
           (with-room-for-graphics ()
-            (draw-design *standard-output* (mcclim-images:load-image image-pathname)))
+            (mcclim-images:draw-image *standard-output* (mcclim-images:load-image image-pathname)))
         (mcclim-images:unsupported-image-format (c)
           (format t "Image format ~A not recognized" (mcclim-images:image-format c))))
       (format t "No such file: ~A" image-pathname)))