The Trunk: Morphic-tpr.1392.mcz

tim Rowledge uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-tpr.1392.mcz

==================== Summary ====================

Name: Morphic-tpr.1392
Author: tpr
Time: 1 February 2018, 3:57:56.837746 pm
UUID: aba8b7c8-c8f4-4293-bcda-18c504122d6b
Ancestors: Morphic-mt.1391

Preliminary support for changes involved in removing the Project>>dispatchTo:addPrefixAndSend:withArguments: method.

=============== Diff against Morphic-mt.1391 ===============

Item was removed:
- ----- Method: Debugger class>>morphicContext: (in category '*Morphic-instance creation') -----
- morphicContext: aContext
- "Answer an instance of me for debugging the active process starting with the given context."
-
- ^ self new
- process: Processor activeProcess
- controller: nil
- context: aContext!

Item was removed:
- ----- Method: Debugger class>>morphicOpenContext:label:contents: (in category '*Morphic-opening') -----
- morphicOpenContext: aContext label: aString contents: contentsStringOrNil
- "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger."
- "Simulation guard"
- <primitive: 19>
- ErrorRecursionGuard critical:
- [ ErrorRecursion not & Preferences logDebuggerStackToFile ifTrue:
- [ Smalltalk
- logSqueakError: aString
- inContext: aContext ].
- ErrorRecursion ifTrue:
- [ ErrorRecursion := false.
- self primitiveError: aString ].
- ErrorRecursion := true.
- self
- informExistingDebugger: aContext
- label: aString.
- (Debugger morphicContext: aContext)
- openNotifierContents: contentsStringOrNil
- label: aString.
- ErrorRecursion := false].
- Processor activeProcess suspend !

Item was removed:
- ----- Method: Debugger class>>morphicOpenInterrupt:onProcess: (in category '*Morphic-opening') -----
- morphicOpenInterrupt: 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: nil
- 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 eToyFriendly ifTrue: [Project current world stopRunningAll].
- ^debugger
- openNotifierContents: nil label: aString;
- yourself
- !

Item was added:
+ ----- Method: Debugger class>>openContext:label:contents: (in category '*Morphic-opening') -----
+ openContext: aContext label: aString contents: contentsStringOrNil
+ "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger."
+ "Simulation guard"
+ <primitive: 19>
+ ErrorRecursionGuard critical:
+ [ ErrorRecursion not & Preferences logDebuggerStackToFile ifTrue:
+ [ Smalltalk
+ logSqueakError: aString
+ inContext: aContext ].
+ ErrorRecursion ifTrue:
+ [ ErrorRecursion := false.
+ self primitiveError: aString ].
+ ErrorRecursion := true.
+ self
+ informExistingDebugger: aContext
+ label: aString.
+ (Debugger context: aContext)
+ openNotifierContents: contentsStringOrNil
+ label: aString.
+ ErrorRecursion := false].
+ Processor activeProcess suspend !

Item was added:
+ ----- Method: Debugger class>>openInterrupt:onProcess: (in category '*Morphic-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: (ScheduledControllers
+ ifNotNil: [:sc |
+ "this means we are in an MVC project"
+ sc inActiveControllerProcess == 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 eToyFriendly ifTrue: [Project current world stopRunningAll].
+ ^debugger
+ openNotifierContents: nil label: aString;
+ yourself
+ !