A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-eem.915.mcz==================== Summary ====================
Name: Tools-eem.915
Author: eem
Time: 27 November 2019, 3:33:17.283843 pm
UUID: 0bbf0438-4f72-4865-9a46-10dd783724ac
Ancestors: Tools-mt.914
Save and restore the texts in the receiver and context inspectors when changing selection. Key the receiver text by the class of receiver. Key the context text by the method. Hence, much like the current Pharo debugger, text state stays around and can be extended as one investigates several methods in the stack.
Needs Morphic.eem.1591 (we hope cuz it ain't been committed yet).
=============== Diff against Tools-mt.914 ===============
Item was changed:
----- Method: CodeHolder>>formattedLabel:forSelector:inClass: (in category 'message list') -----
formattedLabel: aString forSelector: aSymbol inClass: aClass
"Show deprecated messages differently so that users recognize them quickly to avoid them."
| formattedLabel |
+ aClass ifNotNil:
+ [(aSymbol = #Definition or: [aSymbol = #Comment])
+ ifTrue:
+ [aClass isDeprecated ifFalse:
+ [^ aString]]
+ ifFalse:
+ [(aClass isDeprecated or: [(aClass compiledMethodAt: aSymbol ifAbsent: [^ aString]) isDeprecated]) ifFalse:
+ [^ aString]]].
- (aSymbol = #Definition or: [aSymbol = #Comment])
- ifTrue: [aClass isDeprecated
- ifFalse: [^ aString]]
- ifFalse: [(aClass isDeprecated or: [(aClass compiledMethodAt: aSymbol ifAbsent: [^ aString]) isDeprecated])
- ifFalse: [^ aString]].
formattedLabel := aString asText.
(self userInterfaceTheme deprecatedMessageAttributes ifNil: [{TextColor gray. TextEmphasis struckOut}]) do: [:textAttribute |
formattedLabel addAttribute: textAttribute].
+ ^ formattedLabel!
- ^ formattedLabel.!
Item was changed:
CodeHolder subclass: #Debugger
+ instanceVariableNames: 'interruptedProcess contextStack contextStackIndex contextStackList receiverInspector contextVariablesInspector externalInterrupt proceedValue selectingPC savedCursor isolationHead failedProject labelString message untilExpression receiverInspectorTexts contextInspectorTexts'
- instanceVariableNames: 'interruptedProcess contextStack contextStackIndex contextStackList receiverInspector contextVariablesInspector externalInterrupt proceedValue selectingPC savedCursor isolationHead failedProject labelString message untilExpression'
classVariableNames: 'ContextStackKeystrokes ErrorReportServer FullStackSize InterruptUIProcessIfBlockedOnErrorInBackgroundProcess NotifierStackSize SavedExtent StackSizeLimit WantsAnnotationPane'
poolDictionaries: ''
category: 'Tools-Debugger'!
!Debugger commentStamp: '<historical>' prior: 0!
I represent the machine state at the time of an interrupted process. I also represent a query path into the state of the process. The debugger is typically viewed through a window that views the stack of suspended contexts, the code for, and execution point in, the currently selected message, and inspectors on both the receiver of the currently selected message, and the variables in the current context.
Special note on recursive errors:
Some errors affect Squeak's ability to present a debugger. This is normally an unrecoverable situation. However, if such an error occurs in an isolation layer, Squeak will attempt to exit from the isolation layer and then present a debugger. Here is the chain of events in such a recovery.
* A recursive error is detected.
* The current project is queried for an isolationHead
* Changes in the isolationHead are revoked
* The parent project of isolated project is returned to
* The debugger is opened there and execution resumes.
If the user closes that debugger, execution continues in the outer project and layer. If, after repairing some damage, the user proceeds from the debugger, then the isolationHead is re-invoked, the failed project is re-entered, and execution resumes in that world. !
Item was added:
+ ----- Method: Debugger>>contextAndReceiverInspectorTextMorphsDo: (in category 'user interface') -----
+ contextAndReceiverInspectorTextMorphsDo: aBinaryBlock
+ "If both contextVariablesInspector and receiverInspector have
+ text morphs then evaluate aBinaryBlock with the two morphs."
+ ^(contextVariablesInspector notNil
+ and: [receiverInspector notNil]) ifTrue:
+ [aBinaryBlock
+ value: (contextVariablesInspector dependents
+ detect: [:d| d hasTextMorph and: [d textMorph isTextMorph]]
+ ifNone: [^nil])
+ value: (receiverInspector dependents
+ detect: [:d| d hasTextMorph and: [d textMorph isTextMorph]]
+ ifNone: [^nil])]!
Item was changed:
----- Method: Debugger>>contextStackIndex:oldContextWas: (in category 'private') -----
contextStackIndex: anInteger oldContextWas: oldContext
"Change the context stack index to anInteger, perhaps in response to user selection."
| isNewMethod selectedContextSlotName index |
+ self saveInspectorTexts.
contextStackIndex := anInteger.
anInteger = 0 ifTrue:
[currentCompiledMethod := contents := nil.
self changed: #contextStackIndex.
self decorateButtons.
self contentsChanged.
contextVariablesInspector object: nil.
receiverInspector object: self receiver.
^self].
selectedContextSlotName := contextVariablesInspector selectedSlotName.
isNewMethod := oldContext == nil
or: [oldContext method ~~ (currentCompiledMethod := self selectedContext method)].
isNewMethod ifTrue:
[contents := self selectedMessage.
self contentsChanged.
self pcRange].
self changed: #contextStackIndex.
self decorateButtons.
contextVariablesInspector object: self selectedContext.
+ self setContextInspectorText.
((index := contextVariablesInspector fieldList indexOf: selectedContextSlotName) ~= 0
and: [index ~= contextVariablesInspector selectionIndex]) ifTrue:
[contextVariablesInspector toggleIndex: index].
receiverInspector object: self receiver.
+ self setReceiverInspectorText.
isNewMethod ifFalse:
[self changed: #contentsSelection]!
Item was changed:
----- Method: Debugger>>receiverInspectorObject:context: (in category 'accessing') -----
receiverInspectorObject: obj context: ctxt
"set context before object so it can refer to context when building field list"
receiverInspector context: ctxt.
receiverInspector object: obj.
+ self setReceiverInspectorText!
- !
Item was added:
+ ----- Method: Debugger>>saveInspectorTexts (in category 'user interface') -----
+ saveInspectorTexts
+ "Save the texts in the two inspectors in the relevant dictionaries, keyed by either the method, in the case of
+ the contextVariablesInspector, or the receiver's class, in the case of the receiverInspector. Later we will
+ restore these texts if a context with the smae method or receiver with the same class are inspected again."
+ self contextAndReceiverInspectorTextMorphsDo:
+ [:contextTextMorph :receiverTextMorph| | key |
+ key := contextVariablesInspector object isContext ifTrue: [contextVariablesInspector object method].
+ key ifNotNil:
+ [contextTextMorph text isEmpty
+ ifTrue:
+ [contextInspectorTexts ifNotNil:
+ [contextInspectorTexts removeKey: key ifAbsent: []]]
+ ifFalse:
+ [contextInspectorTexts ifNil: [contextInspectorTexts := IdentityDictionary new].
+ contextInspectorTexts at: key put: contextTextMorph text]].
+ key := receiverInspector object.
+ receiverTextMorph text isEmpty
+ ifTrue:
+ [receiverInspectorTexts ifNotNil:
+ [receiverInspectorTexts removeKey: key ifAbsent: []]]
+ ifFalse:
+ [receiverInspectorTexts ifNil: [receiverInspectorTexts := IdentityDictionary new].
+ receiverInspectorTexts at: key put: receiverTextMorph text]]!
Item was added:
+ ----- Method: Debugger>>setContextInspectorText (in category 'user interface') -----
+ setContextInspectorText
+ (contextVariablesInspector object isContext ifTrue: [contextVariablesInspector object method]) ifNotNil:
+ [:key|
+ (contextInspectorTexts notNil
+ and: [contextInspectorTexts includesKey: key]) ifTrue:
+ [self contextAndReceiverInspectorTextMorphsDo:
+ [:contextTextMorph :shunnedReceiverTextMorph|
+ contextTextMorph setText: (contextInspectorTexts at: key)]]]!
Item was added:
+ ----- Method: Debugger>>setReceiverInspectorText (in category 'user interface') -----
+ setReceiverInspectorText
+ | key |
+ key := receiverInspector object.
+ (receiverInspectorTexts notNil
+ and: [receiverInspectorTexts includesKey: key]) ifTrue:
+ [self contextAndReceiverInspectorTextMorphsDo:
+ [:shunnedContextTextMorph :receiverTextMorph|
+ receiverTextMorph setText: (receiverInspectorTexts at: key)]]!
Locked
