'From etoys4.0 of 5 November 2008 [latest update: #2196] on 23 November 2008 at 11:13:47 pm'! "Change Set: altDot-sw Date: 23 November 2008 Author: Scott Wallace TRAC 8879 -- make alt-dot pause all ticking scripts even when eToyFriendly flag is off Cross-published from etoys4.0 update 2199altDot-sw. "! !Debugger class methodsFor: 'opening' stamp: 'sw 11/23/2008 23:12'! 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 | "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']]. Smalltalk isMorphic ifTrue: [ActiveWorld ifNotNil: [ActiveWorld stopRunningAll]]. ^ debugger openNotifierContents: nil label: aString ! !