[Openmcl-cvs-notifications] r12546 - /trunk/source/cocoa-ide/hemlock-text.lisp

[rme at clozure.com]

Author: rme
Date: Thu Aug  6 14:10:02 2009
New Revision: 12546

Log:
Don't use a baked-in default font, but using just *editor-font* is wrong to=
o.

Modified:
    trunk/source/cocoa-ide/hemlock-text.lisp

Modified: trunk/source/cocoa-ide/hemlock-text.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/hemlock-text.lisp (original)
+++ trunk/source/cocoa-ide/hemlock-text.lisp Thu Aug  6 14:10:02 2009
@@ -340,11 +340,11 @@
                  (#/dictionaryWithObjectsAndKeys: ns:ns-dictionary
 						  *default-paragraph-style*
 						  #&NSParagraphStyleAttributeName
-						  (#/fontWithName:size: ns:ns-font #@"Inconsolata" 14.0)
+						  *editor-font*
 						  #&NSFontAttributeName
 						  +null-ptr+)))
   (let* ((dict (#/dictionaryWithCapacity: ns:ns-mutable-dictionary 8))
-         (default-font (#/fontWithName:size: ns:ns-font #@"Monaco" 10))
+         (default-font *editor-font*)	;what about listeners?
          (fm (#/sharedFontManager ns:ns-font-manager))
          (traits 0)
          (font +null-ptr+)