Update of /project/closure/cvsroot/closure/src/renderer In directory common-lisp.net:/tmp/cvs-serv23543/src/renderer

Modified Files: clim-device.lisp Log Message: Add zoom support to the renderer, accessible via the commands com-zoom-in, com-zoom-out and com-zoom-100%.

Date: Sun Mar 13 22:15:09 2005 Author: emarsden

Index: closure/src/renderer/clim-device.lisp diff -u closure/src/renderer/clim-device.lisp:1.8 closure/src/renderer/clim-device.lisp:1.9 --- closure/src/renderer/clim-device.lisp:1.8 Sun Mar 13 20:24:16 2005 +++ closure/src/renderer/clim-device.lisp Sun Mar 13 22:15:09 2005 @@ -31,8 +31,7 @@ (defclass clim-device () ((medium :accessor clim-device-medium :initarg :medium) (font-database :initform nil) - (zoom-factor :initform 1.2 :initarg :zoom-factor) - )) + (zoom-factor :initform closure::*zoom-factor* :initarg :zoom-factor)))

(defmethod device-dpi ((device clim-device)) (with-slots (zoom-factor) device