[Openmcl-cvs-notifications] r12629 - in /trunk/source/cocoa-ide: cocoa-listener.lisp console-window.lisp

[gb at clozure.com]

Author: gb
Date: Wed Aug 19 14:17:33 2009
New Revision: 12629

Log:
Use Courier font by default on Windows/Cocotron.  (It seems to be
a bitmap font and we're better able to get accurate metrics for it
than for vector fonts.)

Modified:
    trunk/source/cocoa-ide/cocoa-listener.lisp
    trunk/source/cocoa-ide/console-window.lisp

Modified: trunk/source/cocoa-ide/cocoa-listener.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/cocoa-ide/cocoa-listener.lisp (original)
+++ trunk/source/cocoa-ide/cocoa-listener.lisp Wed Aug 19 14:17:33 2009
@@ -10,7 +10,7 @@
                                                     #+darwin-target
 						    #@"Monaco"
                                                     #-darwin-target
-                                                    #@"Lucida Console"
+                                                    #@"Courier"
                                                     10.0))
 		   "Default font for listener input")
 (def-cocoa-default *listener-output-font* :font #'(lambda ()
@@ -19,7 +19,7 @@
                                                      #+darwin-target
 						     #@"Monaco"
                                                      #-darwin-target
-                                                     #@"Lucida Console"
+                                                     #@"Courier"
                                                      10.0))
 		   "Default font for listener output")
 =


Modified: trunk/source/cocoa-ide/console-window.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/cocoa-ide/console-window.lisp (original)
+++ trunk/source/cocoa-ide/console-window.lisp Wed Aug 19 14:17:33 2009
@@ -171,7 +171,7 @@
                                        (create-text-attributes
                                         :font (default-font
                                                   :name #+darwin-target "M=
onaco"
-                                                  #-darwin-target "Lucida =
Console"
+                                                  #-darwin-target "Courier"
                                                 :size 10)
                                         :color (#/redColor ns:ns-color))))
              (#/setFrameOrigin: win (ns:make-ns-point 20 20))