Renaming StDebuggerActionModel to StDebuggerClientModel

src/NewTools-Debugger-Commands/StDebuggerToggleFilterStackCommand.class.st

@@ -36,6 +36,6 @@ StDebuggerToggleFilterStackCommand >> canBeExecuted [
 
 { #category : 'executing' }
 StDebuggerToggleFilterStackCommand >> execute [
-	StDebuggerActionModel shouldFilterStack: StDebuggerActionModel shouldFilterStack not.
+	StDebuggerClientModel shouldFilterStack: StDebuggerClientModel shouldFilterStack not.
 	self context updateStep
 ]

src/NewTools-Debugger-Tests/ManifestNewToolsDebuggerTests.class.st

@@ -0,0 +1,10 @@
+"
+Please describe the package using the class comment of the included manifest class. The manifest class also includes other additional metadata for the package. These meta data are used by other tools such as the SmalllintManifestChecker and the critics Browser
+"
+Class {
+	#name : 'ManifestNewToolsDebuggerTests',
+	#superclass : 'PackageManifest',
+	#category : 'NewTools-Debugger-Tests-Manifest',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Manifest'
+}

src/NewTools-Debugger-Tests/StDebuggerAssertionContextTest.class.st

@@ -16,7 +16,7 @@ StDebuggerAssertionContextTest >> tearDown [
 	debugger ifNotNil: [ 
 		debugger close.
 		debugger unsubscribeFromSystemAnnouncer.
-		debugger debuggerActionModel ifNotNil: [ :actionModel |
+		debugger debuggerClientModel ifNotNil: [ :actionModel |
 			actionModel clear.
 			actionModel session ifNotNil: [ :s | s clear ] ] ].
 	super tearDown 

src/NewTools-Debugger-Tests/StDebuggerClientModel.extension.st

@@ -0,0 +1,7 @@
+Extension { #name : 'StDebuggerClientModel' }
+
+{ #category : '*NewTools-Debugger-Tests' }
+StDebuggerClientModel >> hasSubscriber: aDebugger [
+
+	^ self announcer hasSubscriber: aDebugger
+]

src/NewTools-Debugger-Tests/StDebuggerClientModelAnnouncementTest.class.st

@@ -0,0 +1,29 @@
+Class {
+	#name : 'StDebuggerClientModelAnnouncementTest',
+	#superclass : 'TestCase',
+	#instVars : [
+		'debugActionModel'
+	],
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
+}
+
+{ #category : 'running' }
+StDebuggerClientModelAnnouncementTest >> setUp [
+
+	super setUp.
+	debugActionModel := StMockDebuggerClientModel new
+]
+
+{ #category : 'tests' }
+StDebuggerClientModelAnnouncementTest >> testDebuggerClientModel [
+
+	| actionModelAnnouncement |
+	actionModelAnnouncement := StDebuggeClientModelAnnouncement
+		                           debuggerClientModel: debugActionModel.
+
+	self
+		assert: actionModelAnnouncement debuggerClientModel
+		identicalTo: debugActionModel
+]