Adding a setting to change default stack selection in debugger to show TestAsserter contexts when step Into

Author: Julesboul

src/NewTools-Debugger/StDebugger.class.st

@@ -774,6 +774,7 @@ StDebugger >> filterStack: aStack [
 StDebugger >> findFirstRelevantStackIndexIn: aStack [
 	| counter |
 	counter := 1.
+	StDebuggerSettings forceDebuggerStackSelection ifFalse: [ ^ counter ].
 	aStack do: [ :context | 
 		context method methodClass == TestAsserter ifFalse: [ ^ counter ].
 		counter := counter + 1 ].

src/NewTools-Debugger/StDebuggerSettings.class.st

@@ -30,6 +30,7 @@ Class {
 	#name : 'StDebuggerSettings',
 	#superclass : 'Object',
 	#classVars : [
+		'ForceDebuggerStackSelection',
 		'LastKnownPosition',
 		'PreserveWindowPosition'
 	],
@@ -38,13 +39,44 @@ Class {
 	#tag : 'Model'
 }
 
+{ #category : 'accessing' }
+StDebuggerSettings class >> defaultForceDebuggerStackSelection [
+	^ false
+]
+
 { #category : 'accessing' }
 StDebuggerSettings class >> defaultPosition [
 
 	^ 10 @ 10
 
 ]
 
+{ #category : 'accessing' }
+StDebuggerSettings class >> forceDebuggerStackSelection [
+	"Force the stack to not select TestAsserter contexts by default"
+
+	^ ForceDebuggerStackSelection
+		ifNil: [ ForceDebuggerStackSelection := self defaultForceDebuggerStackSelection ]
+]
+
+{ #category : 'accessing' }
+StDebuggerSettings class >> forceDebuggerStackSelection: aBoolean [
+
+	ForceDebuggerStackSelection := aBoolean 
+]
+
+{ #category : 'accessing' }
+StDebuggerSettings class >> forceDebuggerStackSelectionSetting: aBuilder [
+	<systemsettings>
+	
+	(aBuilder setting: #forceDebuggerStackSelection)
+		label: 'Force Debugger Stack Selection';
+		target: self;
+		parent: #debugging;
+		default: self defaultForceDebuggerStackSelection;
+		description: 'Force the stack to not select TestAsserter context by default'.
+]
+
 { #category : 'class initialization' }
 StDebuggerSettings class >> initialize [