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)
