Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory clnet:/tmp/cvs-serv8448/Apps/Listener
Modified Files: icons.lisp Log Message: Fixed the Listener to use MCCLIM-IMAGES for drawing rather than DRAW-PATTERN*.
--- /project/mcclim/cvsroot/mcclim/Apps/Listener/icons.lisp 2008/01/06 15:32:11 1.6 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/icons.lisp 2008/01/14 06:52:00 1.7 @@ -58,10 +58,8 @@
(defun draw-icon (stream pattern &key (extra-spacing 0) ) (let ((stream (if (eq stream t) *standard-output* stream))) - (multiple-value-bind (x y) - (stream-cursor-position stream) - (draw-pattern* stream pattern x y) - (stream-increment-cursor-position stream (+ (pattern-width pattern) extra-spacing) 0)))) + (mcclim-images:draw-image stream pattern) + (stream-increment-cursor-position stream (+ (mcclim-images:image-width pattern) extra-spacing) 0)))
(defun precache-icons () (let ((pathnames (remove-if #'directoryp