Changeset 7575


Ignore:
Timestamp:
Oct 31, 2007, 4:46:37 PM (14 years ago)
Author:
rme
Message:

Initialize the defaults that are NSFont objects in
+initialize?.

Location:
trunk/ccl/cocoa-ide
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/app-delegate.lisp

    r7556 r7575  
    1616                                  (make-instance 'font-to-name-transformer)
    1717                                  #@"FontToName")
     18
     19  ;; These defaults are Obj-C objects, so they need to be
     20  ;; initialized here.
     21  (def-cocoa-default *editor-font* :font (#/fontWithName:size:
     22                                          ns:ns-font #@"Monaco" 10.0)
     23                     "Default font for editor windows")
     24  (def-cocoa-default *listener-input-font* :font (#/fontWithName:size:
     25                                                  ns:ns-font #@"Monaco" 10.0)
     26                     "Default font for listener input")
     27  (def-cocoa-default *listener-output-font* :font (#/fontWithName:size:
     28                                                   ns:ns-font #@"Monaco" 10.0)
     29                     "Default font for listener output")
     30
    1831  (let* ((domain (#/standardUserDefaults ns:ns-user-defaults))
    1932         (initial-values (cocoa-defaults-initial-values)))
  • trunk/ccl/cocoa-ide/cocoa-editor.lisp

    r7564 r7575  
    1818  (defconstant large-number-for-text (float 1.0f7 +cgfloat-zero+)))
    1919
    20 
    21 (def-cocoa-default *editor-font* :font (#/fontWithName:size:
    22                                         ns:ns-font #@"Monaco" 10.0)
    23                    "Default font for editor windows")
    2420
    2521(def-cocoa-default *editor-rows* :int 24 "Initial height of editor windows, in characters")
  • trunk/ccl/cocoa-ide/cocoa-listener.lisp

    r7565 r7575  
    66  (require "COCOA-EDITOR")
    77  (require "PTY"))
    8 
    9 (def-cocoa-default *listener-input-font* :font (#/fontWithName:size:
    10                                                 ns:ns-font #@"Monaco" 10.0)
    11                    "Default font for listener input")
    12 (def-cocoa-default *listener-output-font* :font (#/fontWithName:size:
    13                                                  ns:ns-font #@"Monaco" 10.0)
    14                    "Default font for listener output")
    158
    169(def-cocoa-default *listener-rows* :int 16 "Initial height of listener windows, in characters")
Note: See TracChangeset for help on using the changeset viewer.