Changeset 7562


Ignore:
Timestamp:
Oct 31, 2007, 2:46:50 AM (12 years ago)
Author:
rme
Message:

Define two new listener font defaults. Not used yet.

File:
1 edited

Legend:

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

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