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)