[squeak-dev] The Trunk: Tools-bf.391.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Dec 16 12:07:39 UTC 2011
Bert Freudenberg uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-bf.391.mcz
==================== Summary ====================
Name: Tools-bf.391
Author: bf
Time: 16 December 2011, 1:07:07.748 pm
UUID: 0cb588ab-a21a-40f1-839d-6059e89573a3
Ancestors: Tools-cao.390
Workaround: disable logging of user-interrupt to ensure interruptability (real fix to come after 4.3 release)
=============== Diff against Tools-cao.390 ===============
Item was changed:
----- Method: Debugger class>>openInterrupt:onProcess: (in category 'opening') -----
openInterrupt: aString onProcess: interruptedProcess
"Open a notifier in response to an interrupt. An interrupt occurs when the user types the interrupt key (cmd-. on Macs, ctrl-c or alt-. on other systems) or when the low-space watcher detects that memory is low."
| debugger |
<primitive: 19> "Simulation guard"
debugger := self new.
debugger
process: interruptedProcess
controller: ((Smalltalk isMorphic not
and: [ScheduledControllers activeControllerProcess == interruptedProcess])
ifTrue: [ScheduledControllers activeController])
context: interruptedProcess suspendedContext.
debugger externalInterrupt: true.
+ Preferences logDebuggerStackToFile ifTrue:
+ [(aString includesSubString: 'Space') & (aString includesSubString: 'low')
+ ifTrue: [Smalltalk logError: aString inContext: debugger interruptedContext to: 'LowSpaceDebug.log']
+ "logging disabled for 4.3 release, see
+ http://lists.squeak.org/pipermail/squeak-dev/2011-December/162503.html"
+ "ifFalse: [Smalltalk logSqueakError: aString inContext: debugger interruptedContext]"].
+
- Preferences logDebuggerStackToFile ifTrue:
- [(aString includesSubString: 'Space') &
- (aString includesSubString: 'low') ifTrue: [
- Smalltalk logError: aString inContext: debugger interruptedContext to:'LowSpaceDebug.log']
- ifFalse: [Smalltalk logSqueakError: aString inContext: debugger interruptedContext]].
Preferences eToyFriendly ifTrue: [World stopRunningAll].
^ debugger
openNotifierContents: nil
label: aString
!
More information about the Squeak-dev
mailing list
|