delegate interval computation to `TGtSourceCoderEvaluatedCode>>#findS…

…ourceIntervalForContext:sourceString:` [feenkcom/gtoolkit#3735]
feenkcom · May 14, 2024 · b73fb16 · b73fb16
1 parent 36b01e2
commit b73fb16
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 10 deletions.
diff --git a/src/GToolkit-Coder-UI/GtCoderEmbeddedDebugSessionEvaluationStatus.class.st b/src/GToolkit-Coder-UI/GtCoderEmbeddedDebugSessionEvaluationStatus.class.st
@@ -71,13 +71,9 @@ GtCoderEmbeddedDebugSessionEvaluationStatus >> evaluatedCodeInterval [
 
 	^ self
 		forPharo11OrNewer: [ self debugSession pcRangeForContext: aContext ]
-		forPharo10: [ | aUsedAst anInterval |
-			aUsedAst := self evaluatedCode findSourceAstForContext: aContext.
-			anInterval := GtPharoMethodNodeSourceIntervalFinder new
-					methodNode: aUsedAst;
-					sourceString: self sourceString;
-					find.
-			anInterval last isZero ifTrue: [ nil ] ifFalse: [ anInterval ] ]
+		forPharo10: [ self evaluatedCode
+				findSourceIntervalForContext: aContext
+				sourceString: self sourceString ]
 ]
 
 { #category : #accessing }

diff --git a/src/GToolkit-Coder/TGtSourceCoderEvaluatedCode.trait.st b/src/GToolkit-Coder/TGtSourceCoderEvaluatedCode.trait.st
@@ -12,9 +12,9 @@ TGtSourceCoderEvaluatedCode >> findRelevantContextInStack: aStack [
 ]
 
 { #category : #accessing }
-TGtSourceCoderEvaluatedCode >> findSourceAstForContext: aContext [
-	"Return an AST node that corresponds to a given executed code."
+TGtSourceCoderEvaluatedCode >> findSourceIntervalForContext: aContext sourceString: aSourceString [
+	"Return source code interval that corresponds to a given executed code."
 
-	<return: #RBMessageNode>
+	<return: #Interval or: nil>
 	^ nil
 ]