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)))