Merge pull request #4 from adri09070/actionModelClear-event-introduction

Action model clear event introduction

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

@@ -344,6 +344,35 @@ StDebuggerActionModelTest >> testDynamicShouldFilterStackUpdate [
 
 
 
+]
+
+{ #category : #'tests - actions' }
+StDebuggerActionModelTest >> testEventAfterClear [
+
+	| dummyActionModel dummyDebugger |
+	dummyDebugger := StDummyDebuggerPresenter new.
+
+	dummyActionModel := StTestDebuggerProvider new debuggerWithDNUContext
+		                    debuggerActionModel.
+	self changeSession: dummyActionModel session.
+	dummyActionModel clear.
+
+	debugActionModel
+		when: StDebuggerActionModelClearAnnouncement
+		send: #tag:
+		to: dummyDebugger.
+
+	self assert: dummyDebugger tag isNil.
+
+	debugActionModel clear.
+
+	self deny: dummyDebugger tag isNil.
+	self
+		assert: dummyDebugger tag class
+		identicalTo: StDebuggerActionModelClearAnnouncement.
+	self
+		assert: dummyDebugger tag debuggerActionModel
+		identicalTo: debugActionModel
 ]
 
 { #category : #'tests - actions' }

src/NewTools-Debugger/StDebugger.class.st

@@ -348,8 +348,7 @@ StDebugger >> clear [
 
 	"When we programmatically close the window, we do not need to terminate the session as it was already cleared"
 	programmaticallyClosed ifTrue: [ ^ self ].
-	self clearDebugSession.
-	debuggerActionModel := nil
+	self clearDebugSession
 ]
 
 { #category : #'updating - widgets' }
@@ -384,9 +383,9 @@ StDebugger >> clearUnsavedCodeChanges [
 StDebugger >> close [
 
 	programmaticallyClosed := true.
-	[ self withWindowDo: #close ] ensure: [ 
-		debuggerActionModel ifNotNil: [ :actionModel | 
-			actionModel clear ] ]
+	[ self withWindowDo: #close ] ensure: [
+		debuggerActionModel ifNotNil: [ :actionModel |
+			actionModel clearDebugSession ] ]
 ]
 
 { #category : #'accessing - widgets' }
@@ -500,6 +499,13 @@ StDebugger >> debuggerActionModel [
 	^ debuggerActionModel
 ]
 
+{ #category : #subscription }
+StDebugger >> debuggerActionModelCleared [
+
+	self unsubscribeFromActionModel.
+	self unsubscribeFromSystemAnnouncer
+]
+
 { #category : #accessing }
 StDebugger >> debuggerInspectorClass [
 	^ StDebuggerInspector
@@ -1289,6 +1295,9 @@ StDebugger >> subscribeToActionModel [
 		to: self;
 		when: StDebuggerActionModelMethodAddedAnnouncement
 		send: #updateAfterMethodAdded
+		to: self;
+		when: StDebuggerActionModelClearAnnouncement
+		send: #debuggerActionModelCleared
 		to: self
 ]
 

src/NewTools-Debugger/StDebuggerActionModel.class.st

@@ -62,18 +62,23 @@ StDebuggerActionModel >> autoClassifyMessage: aMessage inClass: aClass [
 	method isClassified ifFalse: [ MethodClassifier classify: method ]
 ]
 
-{ #category : #accessing }
+{ #category : #actions }
 StDebuggerActionModel >> clear [
 
 	self unsubscribeFromSystemAnnouncer.
 	self removeActionsForSession: self session.
+	self raiseUpdateEvents:
+		(StDebuggerActionModelClearAnnouncement debuggerActionModel: self).
 	announcer := nil
 ]
 
 { #category : #'debug - execution' }
 StDebuggerActionModel >> clearDebugSession [
+
 	contextPredicate := nil.
-	self session terminate; clear
+	self session
+		terminate;
+		clear
 ]
 
 { #category : #context }
@@ -364,7 +369,8 @@ StDebuggerActionModel >> registerActionsForSession: aSession [
 			when: #stepInto send: #updateStep to: self;
 			when: #stepOver send: #updateStep to: self;
 			when: #stepThrough send: #updateStep to: self;
-			when: #contextChanged send: #updateContextChanged to: self ]
+			when: #contextChanged send: #updateContextChanged to: self;
+			when: #clear send: #clear to: self ]
 ]
 
 { #category : #'events - removing' }

src/NewTools-Debugger/StDebuggerActionModelClearAnnouncement.class.st

@@ -0,0 +1,5 @@
+Class {
+	#name : #StDebuggerActionModelClearAnnouncement,
+	#superclass : #StDebuggerActionModelAnnouncement,
+	#category : #'NewTools-Debugger-Model'
+}