[closure-cvs] CVS update: closure/src/renderer/clim-device.lisp

[Eric Marsden]

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