[mcclim-cvs] CVS mcclim/Apps/Listener
thenriksen
thenriksen at common-lisp.net
Mon Jan 14 06:52:01 UTC 2008
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
More information about the Mcclim-cvs
mailing list