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

Modified Files: dev-commands.lisp Log Message: Added Display Image command to Listener.

Note that, by default, it only loads the libraries for XPM reading.

--- /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp 2007/09/04 20:45:54 1.43 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp 2008/01/09 17:19:47 1.44 @@ -1417,6 +1417,18 @@ ((object 'pathname :prompt "pathname")) (show-file object))

+(define-command (com-display-image :name t :command-table filesystem-commands + :menu t) + ((image-pathname 'pathname + :default (user-homedir-pathname) :insert-default t)) + (if (probe-file image-pathname) + (handler-case + (with-room-for-graphics () + (draw-design *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))) + (define-command (com-edit-definition :name "Edit Definition" :command-table lisp-commands :menu t