Changeset 7348


Ignore:
Timestamp:
Oct 4, 2007, 3:04:12 PM (12 years ago)
Author:
gz
Message:

Add a "read only listener" preference (defaultly true) to allow listener buffers to be editable.

It currently only works on listeners created after you change the preference. It would be nice to have it toggle existing listeners when you change the preference, but I don't know how to intercept the changing of the value.

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

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/OpenMCL.app/Contents/Resources/English.lproj/preferences.nib/info.nib

    r6845 r7348  
    44<dict>
    55        <key>IBDocumentLocation</key>
    6         <string>69 10 356 240 0 0 1280 1002 </string>
     6        <string>69 44 356 240 0 0 1280 1002 </string>
    77        <key>IBFramework Version</key>
    88        <string>446.1</string>
    99        <key>IBOldestOS</key>
    1010        <integer>5</integer>
     11        <key>IBOpenObjects</key>
     12        <array>
     13                <integer>1</integer>
     14        </array>
    1115        <key>IBSystem Version</key>
    12         <string>8P135</string>
     16        <string>8R218</string>
    1317        <key>IBUsesTextArchiving</key>
    1418        <true/>
  • trunk/ccl/cocoa-ide/cocoa-listener.lisp

    r7140 r7348  
    1515
    1616(def-cocoa-default *listener-background-color* :color '(1.0 1.0 1.0 1.0) "Listener default background color")
     17
     18(def-cocoa-default *read-only-listener* :bool t "Do not allow editing old listener output")
    1719
    1820;;; Setup the server end of a pty pair.
  • trunk/ccl/cocoa-ide/hemlock/src/listener.lisp

    r7122 r7348  
    103103      )
    104104    (let* ((input-mark (variable-value 'buffer-input-mark :buffer buffer)))
    105       (setf (hi::buffer-protected-region buffer)
    106             (region (buffer-start-mark buffer) input-mark))
     105      (when ccl::*read-only-listener*
     106        (setf (hi::buffer-protected-region buffer)
     107              (region (buffer-start-mark buffer) input-mark)))
    107108      (move-mark input-mark point)
    108109      (append-font-regions buffer))))
Note: See TracChangeset for help on using the changeset viewer.