Matthew Fulmer uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mtf.295.mcz==================== Summary ====================
Name: Tools-mtf.295
Author: mtf
Time: 5 February 2011, 7:45:17.71 pm
UUID: bfade890-b172-4c71-b4dd-97862669ca27
Ancestors: Tools-laza.294
log user inturrupts same as errors
=============== Diff against Tools-laza.294 ===============
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']
+ ifFalse: [Smalltalk logSqueakError: aString inContext: debugger interruptedContext]].
- Smalltalk logError: aString inContext: debugger interruptedContext to:'LowSpaceDebug.log']].
Preferences eToyFriendly ifTrue: [World stopRunningAll].
^ debugger
openNotifierContents: nil
label: aString
!