[Pkg] The Trunk: Tools-bf.391.mcz

[commits at source.squeak.org]

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
  !