Changeset 7348

Timestamp:

Oct 4, 2007, 3:04:12 PM (14 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:

• OpenMCL.app/Contents/Resources/English.lproj/preferences.nib/info.nib (modified) (1 diff)
• OpenMCL.app/Contents/Resources/English.lproj/preferences.nib/keyedobjects.nib (modified) (previous)
• cocoa-listener.lisp (modified) (1 diff)
• hemlock/src/listener.lisp (modified) (1 diff)

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

@@ -4 +4 @@
 <dict>
         <key>IBDocumentLocation</key>
-        <string>69 10 356 240 0 0 1280 1002 </string>
+        <string>69 44 356 240 0 0 1280 1002 </string>
         <key>IBFramework Version</key>
         <string>446.1</string>
         <key>IBOldestOS</key>
         <integer>5</integer>
+        <key>IBOpenObjects</key>
+        <array>
+                <integer>1</integer>
+        </array>
         <key>IBSystem Version</key>
-        <string>8P135</string>
+        <string>8R218</string>
         <key>IBUsesTextArchiving</key>
         <true/>

trunk/ccl/cocoa-ide/cocoa-listener.lisp

@@ -15 +15 @@
 
 (def-cocoa-default *listener-background-color* :color '(1.0 1.0 1.0 1.0) "Listener default background color")
+
+(def-cocoa-default *read-only-listener* :bool t "Do not allow editing old listener output")
 
 ;;; Setup the server end of a pty pair.

trunk/ccl/cocoa-ide/hemlock/src/listener.lisp

@@ -103 +103 @@
       )
     (let* ((input-mark (variable-value 'buffer-input-mark :buffer buffer)))
-      (setf (hi::buffer-protected-region buffer)
-            (region (buffer-start-mark buffer) input-mark))
+      (when ccl::*read-only-listener*
+        (setf (hi::buffer-protected-region buffer)
+              (region (buffer-start-mark buffer) input-mark)))
       (move-mark input-mark point)
       (append-font-regions buffer))))