Update of /project/closure/cvsroot/closure/src/gui In directory clnet:/tmp/cvs-serv24717/src/gui Modified Files: dce-and-pce.lisp Log Message: Fixed call to make-rgb-image-design. --- /project/closure/cvsroot/closure/src/gui/dce-and-pce.lisp 2007/12/16 17:13:02 1.6 +++ /project/closure/cvsroot/closure/src/gui/dce-and-pce.lisp 2008/01/09 23:19:04 1.7 @@ -149,8 +149,8 @@ (return (pce-design k))))) (defun really-make-design-from-aimage (medium aimage width height) - (climi::make-rgb-image-design medium - (imagelib::aimage-rgb-image + (declare (ignore medium)) + (climi::make-rgb-image-design (imagelib::aimage-rgb-image (imagelib:scale-aimage aimage width height)))) (defun reset-caches ()