The Trunk: Morphic-mt.1079.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Morphic-mt.1079.mcz

commits-2
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1079.mcz

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

Name: Morphic-mt.1079
Author: mt
Time: 15 February 2016, 3:36:54.005019 pm
UUID: ead38ca4-1a64-4544-99ff-0a21b21b1fcc
Ancestors: Morphic-mt.1078

Make all possible entry points in Debugger (via StandardToolSet) consistently use project-prefix dispatch.

=============== Diff against Morphic-mt.1078 ===============

Item was added:
+ ----- 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 added:
+ ----- 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."
+ <primitive: 19> "Simulation guard"
+ 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 added:
+ ----- 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: [World stopRunningAll].
+ ^debugger
+ openNotifierContents: nil label: aString;
+ yourself
+ !