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

Modified Files: x11.lisp Log Message: Move a number of global variables from the CL-USER to the GUI package.

Date: Sun Jul 10 12:57:23 2005 Author: emarsden

Index: closure/src/renderer/x11.lisp diff -u closure/src/renderer/x11.lisp:1.6 closure/src/renderer/x11.lisp:1.7 --- closure/src/renderer/x11.lisp:1.6 Sun Mar 13 19:03:25 2005 +++ closure/src/renderer/x11.lisp Sun Jul 10 12:57:23 2005 @@ -952,9 +952,8 @@ (defclass x11-device () ((font-database :initform nil) (display :initarg :display) - (dpi :initarg :dpi :initform cl-user::*closure-dpi*) - (scale-font-desc-cache :initform (make-hash-table :test #'equal)) - )) + (dpi :initarg :dpi :initform gui:*closure-dpi*) + (scale-font-desc-cache :initform (make-hash-table :test #'equal))))

(defmethod r2::device-dpi ((self x11-device)) (slot-value self 'dpi))