Changeset 7579


Ignore:
Timestamp:
Oct 31, 2007, 7:49:17 PM (12 years ago)
Author:
rme
Message:

De-kludge defining font defaults a little bit.

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

Legend:

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

    r7577 r7579  
    2020         (initial-values (cocoa-defaults-initial-values))
    2121         (dict (#/mutableCopy initial-values)))
    22     ;; The lispy def-cocoa-default macro doesn't work with
    23     ;; Objective-C objects, so initialize them here by hand.
    24     ;; This is not nice.  We have to do something better.
    25     (#/setObject:forKey: dict
    26                          (#/archivedDataWithRootObject:
    27                           ns:ns-archiver
    28                           (#/fontWithName:size: ns:ns-font #@"Monaco" 10.0))
    29                          #@"editorFont")
    30     (#/setObject:forKey: dict
    31                          (#/archivedDataWithRootObject:
    32                           ns:ns-archiver
    33                           (#/fontWithName:size: ns:ns-font #@"Monaco" 10.0))
    34                          #@"listenerInputFont")
    35     (#/setObject:forKey: dict
    36                          (#/archivedDataWithRootObject:
    37                           ns:ns-archiver
    38                           (#/fontWithName:size: ns:ns-font #@"Monaco" 10.0))
    39                          #@"listenerOutputFont")
    4022    (#/registerDefaults: domain dict)
    4123    (#/release dict)
  • trunk/ccl/cocoa-ide/cocoa-defaults.lisp

    r7576 r7579  
    130130                                        ns:ns-archiver
    131131                                        (apply #'color-values-to-nscolor value)))
     132                               (:font (#/archivedDataWithRootObject:
     133                                       ns:ns-archiver
     134                                       (funcall value)))
    132135                               (:bool (if value #@"YES" #@"NO"))
    133136                               (t
  • trunk/ccl/cocoa-ide/cocoa-editor.lisp

    r7576 r7579  
    1818  (defconstant large-number-for-text (float 1.0f7 +cgfloat-zero+)))
    1919
    20 ;;; XXX -- initialized in +[LispApplicationDelegate initialize]
    21 (def-cocoa-default *editor-font* :font "foo"
     20(def-cocoa-default *editor-font* :font #'(lambda ()
     21                                           (#/fontWithName:size:
     22                                            ns:ns-font
     23                                            #@"Monaco" 10.0))
    2224                   "Default font for editor windows")
    2325
  • trunk/ccl/cocoa-ide/cocoa-listener.lisp

    r7576 r7579  
    77  (require "PTY"))
    88
    9 ;;; XXX -- initialized in +[LispApplicationDelegate initialize]
    10 (def-cocoa-default *listener-input-font* :font "foo"
     9(def-cocoa-default *listener-input-font* :font #'(lambda ()
     10                                                   (#/fontWithName:size:
     11                                                    ns:ns-font
     12                                                    #@"Monaco" 10.0))
    1113                   "Default font for listener input")
    12 (def-cocoa-default *listener-output-font* :font "foo"
     14(def-cocoa-default *listener-output-font* :font #'(lambda ()
     15                                                    (#/fontWithName:size:
     16                                                     ns:ns-font
     17                                                     #@"Monaco" 10.0))
    1318                   "Default font for listener output")
    1419
Note: See TracChangeset for help on using the changeset viewer.