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

Eric Marsden emarsden at common-lisp.net
Sun Jul 10 10:57:24 UTC 2005


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))




More information about the Closure-cvs mailing list