[closure-cvs] CVS closure/src/gui

[dlichteblau]

Update of /project/closure/cvsroot/closure/src/gui
In directory clnet:/tmp/cvs-serv16686

Modified Files:
	dce-and-pce.lisp 
Log Message:
Don't attempt to re-use an image design on a different medium.

 - new slot medium on PC
 - in make-design-from-aimage, match on the medium


--- /project/closure/cvsroot/closure/src/gui/dce-and-pce.lisp	2007/01/07 19:33:02	1.5
+++ /project/closure/cvsroot/closure/src/gui/dce-and-pce.lisp	2007/12/16 17:13:02	1.6
@@ -117,7 +117,8 @@
   width
   height
   design
-  refcount)
+  refcount
+  medium)
 
 (defun make-design-from-aimage (medium aimage width height)
   (dolist (k *pixmap-cache*
@@ -137,7 +138,8 @@
               res))
     (when (and (eq (pce-aimage k) aimage)
                (eql (pce-width k) width)
-               (eql (pce-height k) height))
+               (eql (pce-height k) height)
+               (eql (pce-medium k) medium))
       (when *debug-pixmap-cache-p*
         (format T "~&;; ++ ~A ~Dx~D "
                 (getf (imagelib:aimage-plist aimage) :url)