Add debugger implementor surface hooks

src/PharoCompatibility-Pharo13Surface-Pharo12-Tests/PharoCompatibilityP13SurfacePharo12Test.class.st

@@ -9,6 +9,13 @@ Class {
 	#tag : 'Tests'
 }
 
+{ #category : 'tests' }
+PharoCompatibilityP13SurfacePharo12Test >> testDebuggerMethodImplementorForSession [
+
+	self assert:
+		(PharoCompatibility debuggerMethodImplementorForSession: nil) isNil
+]
+
 { #category : 'tests' }
 PharoCompatibilityP13SurfacePharo12Test >> testInstallPharo13SurfacePreservesP13Globals [
 

src/PharoCompatibility-Pharo13Surface-Pharo12/PharoCompatibility.extension.st

@@ -1,5 +1,12 @@
 Extension { #name : 'PharoCompatibility' }
 
+{ #category : '*PharoCompatibility-Pharo13Surface-Pharo12' }
+PharoCompatibility class >> debuggerMethodImplementorForSession: aDebugSession [
+	"Pharo 12 does not provide the Pharo 13 debugger method implementor. Answer nil so callers keep their explicit fallback path instead of probing runtime globals."
+
+	^ nil
+]
+
 { #category : '*PharoCompatibility-Pharo13Surface-Pharo12' }
 PharoCompatibility class >> refactoringChangeManagerClass [
 

src/PharoCompatibility-Pharo13Surface-Pharo13-Tests/PharoCompatibilityP13SurfacePharo13Test.class.st

@@ -9,6 +9,14 @@ Class {
 	#tag : 'Tests'
 }
 
+{ #category : 'tests' }
+PharoCompatibilityP13SurfacePharo13Test >> testDebuggerMethodImplementorForSession [
+
+	self
+		assert: (PharoCompatibility debuggerMethodImplementorForSession: nil) class
+		equals: StDebuggerMethodImplementor
+]
+
 { #category : 'tests' }
 PharoCompatibilityP13SurfacePharo13Test >> testRefactoringChangeManagerClass [
 

src/PharoCompatibility-Pharo13Surface-Pharo13/PharoCompatibility.extension.st

@@ -1,5 +1,11 @@
 Extension { #name : 'PharoCompatibility' }
 
+{ #category : '*PharoCompatibility-Pharo13Surface-Pharo13' }
+PharoCompatibility class >> debuggerMethodImplementorForSession: aDebugSession [
+
+	^ StDebuggerMethodImplementor forSession: aDebugSession
+]
+
 { #category : '*PharoCompatibility-Pharo13Surface-Pharo13' }
 PharoCompatibility class >> refactoringChangeManagerClass [
 

src/PharoCompatibility-Pharo13Surface-Pharo14-Tests/PharoCompatibilityP13SurfacePharo14Test.class.st

@@ -25,6 +25,14 @@ PharoCompatibilityP13SurfacePharo14Test >> removePackageNamed: aPackageName [
 		PackageOrganizer default removePackage: aPackageName ]
 ]
 
+{ #category : 'tests' }
+PharoCompatibilityP13SurfacePharo14Test >> testDebuggerMethodImplementorForSession [
+
+	self
+		assert: (PharoCompatibility debuggerMethodImplementorForSession: nil) class
+		equals: StDebuggerMethodImplementor
+]
+
 { #category : 'tests' }
 PharoCompatibilityP13SurfacePharo14Test >> testInstallPharo13SurfacePreservesP13Globals [
 

src/PharoCompatibility-Pharo13Surface-Pharo14/PharoCompatibility.extension.st

@@ -1,5 +1,11 @@
 Extension { #name : 'PharoCompatibility' }
 
+{ #category : '*PharoCompatibility-Pharo13Surface-Pharo14' }
+PharoCompatibility class >> debuggerMethodImplementorForSession: aDebugSession [
+
+	^ StDebuggerMethodImplementor forSession: aDebugSession
+]
+
 { #category : '*PharoCompatibility-Pharo13Surface-Pharo14' }
 PharoCompatibility class >> refactoringChangeManagerClass [