[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