Ignore:
Timestamp:
Jan 21, 2010, 9:47:52 PM (11 years ago)
Author:
palter
Message:

Workaround the fact that Cocotron uses the wrong DPI when converting from point size to Windows logical units for fonts

Location:
trunk/source/cocoa-ide
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-editor.lisp

    r13245 r13402  
    1212  (defconstant large-number-for-text (cgfloat 1.0f7)))
    1313
     14;;; Compensates for the fact that Cocotron uses Mac font metrics and assumes
     15;;; the default Macintosh DPI (72) vs. that of Windows (96).
     16(defun font-size-kludge (size)
     17  #-cocotron size
     18  #+cocotron (* size (/ 96.0 72.0)))
     19   
    1420(def-cocoa-default *editor-font* :font #'(lambda ()
    1521                                           (#/fontWithName:size:
     
    1824                                            #@"Monaco"
    1925                                            #-darwin-target
    20                                             #@"Courier"
    21                                             10.0))
     26                                            #@"Courier New"
     27                                            (font-size-kludge 10.0)))
    2228                   "Default font for editor windows")
    2329
  • trunk/source/cocoa-ide/cocoa-listener.lisp

    r13053 r13402  
    1111                                                    #@"Monaco"
    1212                                                    #-darwin-target
    13                                                     #@"Courier"
    14                                                     10.0))
     13                                                    #@"Courier New"
     14                                                    (font-size-kludge 10.0)))
    1515                   "Default font for listener input")
    1616(def-cocoa-default *listener-output-font* :font #'(lambda ()
     
    2020                                                     #@"Monaco"
    2121                                                     #-darwin-target
    22                                                      #@"Courier"
    23                                                      10.0))
     22                                                     #@"Courier New"
     23                                                     (font-size-kludge 10.0)))
    2424                   "Default font for listener output")
    2525
Note: See TracChangeset for help on using the changeset viewer.