Removing and adapting old code after introduction of a debugger inst …

…var into the debugger extension trait
pharo-spec · Mar 7, 2022 · 293d6db · 293d6db
1 parent 755692e
commit 293d6db
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 15 deletions.
diff --git a/src/NewTools-Debugger/TStDebuggerExtension.trait.st b/src/NewTools-Debugger/TStDebuggerExtension.trait.st
@@ -32,6 +32,11 @@ TStDebuggerExtension classSide >> displayOrder: anInteger [
 	debuggerExtensionDisplayOrder := anInteger
 ]
 
+{ #category : #'as yet unclassified' }
+TStDebuggerExtension classSide >> showInContext: aContext [
+	^true
+]
+
 { #category : #'debugger extension' }
 TStDebuggerExtension classSide >> showInDebugger [
 	^showDebuggerExtension ifNil: [showDebuggerExtension := false]

diff --git a/src/NewTools-Sindarin-Tools/StSindarinBytecodeDebuggerPresenter.class.st b/src/NewTools-Sindarin-Tools/StSindarinBytecodeDebuggerPresenter.class.st
@@ -8,7 +8,6 @@ Class {
 		'bcContextInspection',
 		'toolbar',
 		'sindarinDebugger',
-		'stDebugger',
 		'bytecodeList',
 		'currentPC'
 	],
@@ -30,11 +29,6 @@ StSindarinBytecodeDebuggerPresenter class >> defaultLayout [
 		yourself
 ]
 
-{ #category : #accessing }
-StSindarinBytecodeDebuggerPresenter >> debugger [ 
-	^stDebugger
-]
-
 { #category : #'debugger extension' }
 StSindarinBytecodeDebuggerPresenter >> debuggerExtensionToolName [
 	^ 'Bytecode' 
@@ -61,7 +55,7 @@ StSindarinBytecodeDebuggerPresenter >> initializeToolbar [
 { #category : #accessing }
 StSindarinBytecodeDebuggerPresenter >> setModelBeforeInitialization: aStDebugger [
 	"My original model is the debugger presenter that I extend"
-	stDebugger := aStDebugger.
+	debugger := aStDebugger.
 	sindarinDebugger := aStDebugger sindarinDebugger
 ]
 

diff --git a/src/NewTools-Sindarin-Tools/StSindarinDebuggerScriptingPresenter.class.st b/src/NewTools-Sindarin-Tools/StSindarinDebuggerScriptingPresenter.class.st
@@ -16,8 +16,7 @@ Class {
 		'code',
 		'resultInspection',
 		'toolbar',
-		'sindarinDebugger',
-		'stDebugger'
+		'sindarinDebugger'
 	],
 	#category : #'NewTools-Sindarin-Tools'
 }
@@ -40,11 +39,6 @@ StSindarinDebuggerScriptingPresenter >> createCommandFromScript [
 	self flag: 'todo'
 ]
 
-{ #category : #accessing }
-StSindarinDebuggerScriptingPresenter >> debugger [ 
-	^stDebugger
-]
-
 { #category : #'debugger extension' }
 StSindarinDebuggerScriptingPresenter >> debuggerExtensionToolName [
 
@@ -115,7 +109,7 @@ StSindarinDebuggerScriptingPresenter >> saveScript [
 { #category : #accessing }
 StSindarinDebuggerScriptingPresenter >> setModelBeforeInitialization: aStDebugger [
 	"My original model is the debugger presenter that I extend"
-	stDebugger := aStDebugger.
+	debugger := aStDebugger.
 	sindarinDebugger := aStDebugger sindarinDebugger
 ]