Changeset 7580


Ignore:
Timestamp:
Nov 1, 2007, 5:26:21 PM (12 years ago)
Author:
rme
Message:

Let user select different fonts for listener input and output.

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

Legend:

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

    r7579 r7580  
    324324                  (textview-background-color self)
    325325                  (user-input-style self)))
     326         (listener-styles (#/arrayWithObjects: ns:ns-mutable-array
     327                                               (rme-create-text-attributes
     328                                                :font *listener-input-font*)
     329                                               (rme-create-text-attributes
     330                                                :font *listener-output-font*)
     331                                               +null-ptr+))
    326332         (controller (make-instance
    327333                      'hemlock-listener-window-controller
    328334                      :with-window window))
    329335         (listener-name (hi::buffer-name (hemlock-document-buffer self))))
     336    (with-slots (styles) textstorage
     337      ;; We probably should be more disciplined about
     338      ;; Cocoa memory management.  Having retain/release in
     339      ;; random places all over the code is going to get
     340      ;; unwieldy.
     341      (#/release styles)
     342      (setf styles (#/retain listener-styles)))
    330343    ;; Disabling background layout on listeners is an attempt to work
    331344    ;; around a bug.  The bug's probably gone ...
  • trunk/ccl/cocoa-ide/ide-contents/Resources/English.lproj/preferences.nib/info.nib

    r7567 r7580  
    88        <integer>5</integer>
    99        <key>IBOpenObjects</key>
    10         <array/>
     10        <array>
     11                <integer>1500857</integer>
     12        </array>
    1113        <key>IBSystem Version</key>
    1214        <string>9A581</string>
Note: See TracChangeset for help on using the changeset viewer.