Changeset 7348
- Timestamp:
- Oct 4, 2007, 3:04:12 PM (12 years ago)
- 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 4 4 <dict> 5 5 <key>IBDocumentLocation</key> 6 <string>69 10356 240 0 0 1280 1002 </string>6 <string>69 44 356 240 0 0 1280 1002 </string> 7 7 <key>IBFramework Version</key> 8 8 <string>446.1</string> 9 9 <key>IBOldestOS</key> 10 10 <integer>5</integer> 11 <key>IBOpenObjects</key> 12 <array> 13 <integer>1</integer> 14 </array> 11 15 <key>IBSystem Version</key> 12 <string>8 P135</string>16 <string>8R218</string> 13 17 <key>IBUsesTextArchiving</key> 14 18 <true/> -
trunk/ccl/cocoa-ide/cocoa-listener.lisp
r7140 r7348 15 15 16 16 (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") 17 19 18 20 ;;; Setup the server end of a pty pair. -
trunk/ccl/cocoa-ide/hemlock/src/listener.lisp
r7122 r7348 103 103 ) 104 104 (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))) 107 108 (move-mark input-mark point) 108 109 (append-font-regions buffer))))
Note: See TracChangeset
for help on using the changeset viewer.