feat: print using toolInfo

nicolasp025 · nicolasp025 · commit 2fc4af5dd3f0 · 2026-04-20T11:28:10.000+02:00
diff --git a/DebuggingSpy-Browser/DebugPointBrowserPresenter.extension.st b/DebuggingSpy-Browser/DebugPointBrowserPresenter.extension.st
@@ -10,5 +10,5 @@ DebugPointBrowserPresenter class >> windowColor [
 { #category : '*DebuggingSpy-Browser' }
 DebugPointBrowserPresenter class >> windowType [
 
-	^ 'Debug point browser'
+	^ 'Debug Point Browser'
 ]
diff --git a/DebuggingSpy-Browser/Object.extension.st b/DebuggingSpy-Browser/Object.extension.st
@@ -12,5 +12,5 @@ Object class >> windowColor [
 Object class >> windowType [
 	"Returns the name of the window type."
 
-	^ 'Unknown window'
+	^ DSWindowRecord unknownWindow
 ]
diff --git a/DebuggingSpy-Browser/StCritiquePackageSelectorPresenter.extension.st b/DebuggingSpy-Browser/StCritiquePackageSelectorPresenter.extension.st
@@ -10,5 +10,5 @@ StCritiquePackageSelectorPresenter class >> windowColor [
 { #category : '*DebuggingSpy-Browser' }
 StCritiquePackageSelectorPresenter class >> windowType [
 
-	^ 'Critique browser'
+	^ 'Critique Browser'
 ]
diff --git a/DebuggingSpy-Tests/DSAbstractEventRecordTest.class.st b/DebuggingSpy-Tests/DSAbstractEventRecordTest.class.st
@@ -0,0 +1,6 @@
+Class {
+	#name : 'DSAbstractEventRecordTest',
+	#superclass : 'TestCase',
+	#category : 'DebuggingSpy-Tests',
+	#package : 'DebuggingSpy-Tests'
+}
diff --git a/DebuggingSpy-Tests/DSMouseEnterWindowRecordTest.class.st b/DebuggingSpy-Tests/DSMouseEnterWindowRecordTest.class.st
@@ -0,0 +1,17 @@
+Class {
+	#name : 'DSMouseEnterWindowRecordTest',
+	#superclass : 'DSMouseEventRecordTest',
+	#category : 'DebuggingSpy-Tests',
+	#package : 'DebuggingSpy-Tests'
+}
+
+{ #category : 'tests' }
+DSMouseEnterWindowRecordTest >> testEventName [
+
+	| record |
+	record := DSMouseEnterWindowRecord new.
+	self assert: record eventName equals: 'Enter Unknown Window'.
+
+	record toolInfo: (DSToolInfo new toolClass: StDebugger).
+	self assert: record eventName equals: 'Enter Debugger'
+]
diff --git a/DebuggingSpy-Tests/DSMouseEventRecordTest.class.st b/DebuggingSpy-Tests/DSMouseEventRecordTest.class.st
@@ -0,0 +1,6 @@
+Class {
+	#name : 'DSMouseEventRecordTest',
+	#superclass : 'DSAbstractEventRecordTest',
+	#category : 'DebuggingSpy-Tests',
+	#package : 'DebuggingSpy-Tests'
+}
diff --git a/DebuggingSpy-Tests/DSMouseLeaveWindowRecordTest.class.st b/DebuggingSpy-Tests/DSMouseLeaveWindowRecordTest.class.st
@@ -0,0 +1,17 @@
+Class {
+	#name : 'DSMouseLeaveWindowRecordTest',
+	#superclass : 'DSMouseEventRecordTest',
+	#category : 'DebuggingSpy-Tests',
+	#package : 'DebuggingSpy-Tests'
+}
+
+{ #category : 'tests' }
+DSMouseLeaveWindowRecordTest >> testEventName [
+
+	| record |
+	record := DSMouseLeaveWindowRecord new.
+	self assert: record eventName equals: 'Leave Unknown Window'.
+
+	record toolInfo: (DSToolInfo new toolClass: StDebugger).
+	self assert: record eventName equals: 'Leave Debugger'
+]
diff --git a/DebuggingSpy-Tests/DSWindowActivatedRecordTest.class.st b/DebuggingSpy-Tests/DSWindowActivatedRecordTest.class.st
@@ -0,0 +1,17 @@
+Class {
+	#name : 'DSWindowActivatedRecordTest',
+	#superclass : 'DSWindowEventRecordTest',
+	#category : 'DebuggingSpy-Tests',
+	#package : 'DebuggingSpy-Tests'
+}
+
+{ #category : 'tests' }
+DSWindowActivatedRecordTest >> testEventName [
+
+	| record |
+	record := DSWindowActivatedRecord new.
+	self assert: record eventName equals: 'Unknown Window activated'.
+
+	record toolInfo: (DSToolInfo new toolClass: StDebugger).
+	self assert: record eventName equals: 'Debugger activated'
+]
diff --git a/DebuggingSpy-Tests/DSWindowClosedRecordTest.class.st b/DebuggingSpy-Tests/DSWindowClosedRecordTest.class.st
@@ -0,0 +1,17 @@
+Class {
+	#name : 'DSWindowClosedRecordTest',
+	#superclass : 'DSWindowEventRecordTest',
+	#category : 'DebuggingSpy-Tests',
+	#package : 'DebuggingSpy-Tests'
+}
+
+{ #category : 'tests' }
+DSWindowClosedRecordTest >> testEventName [
+
+	| record |
+	record := DSWindowClosedRecord new.
+	self assert: record eventName equals: 'Unknown Window closed'.
+
+	record toolInfo: (DSToolInfo new toolClass: StDebugger).
+	self assert: record eventName equals: 'Debugger closed'
+]
diff --git a/DebuggingSpy-Tests/DSWindowEventRecordTest.class.st b/DebuggingSpy-Tests/DSWindowEventRecordTest.class.st
@@ -0,0 +1,6 @@
+Class {
+	#name : 'DSWindowEventRecordTest',
+	#superclass : 'DSAbstractEventRecordTest',
+	#category : 'DebuggingSpy-Tests',
+	#package : 'DebuggingSpy-Tests'
+}
diff --git a/DebuggingSpy-Tests/DSWindowOpenedRecordTest.class.st b/DebuggingSpy-Tests/DSWindowOpenedRecordTest.class.st
@@ -0,0 +1,17 @@
+Class {
+	#name : 'DSWindowOpenedRecordTest',
+	#superclass : 'DSWindowEventRecordTest',
+	#category : 'DebuggingSpy-Tests',
+	#package : 'DebuggingSpy-Tests'
+}
+
+{ #category : 'tests' }
+DSWindowOpenedRecordTest >> testEventName [
+
+	| record |
+	record := DSWindowOpenedRecord new.
+	self assert: record eventName equals: 'Unknown Window opened'.
+
+	record toolInfo: (DSToolInfo new toolClass: StDebugger).
+	self assert: record eventName equals: 'Debugger opened'
+]
diff --git a/DebuggingSpy-Tests/DSWindowRecordTest.class.st b/DebuggingSpy-Tests/DSWindowRecordTest.class.st
@@ -14,7 +14,7 @@ DSWindowRecordTest >> testBuildEvents [
 
 	eventsCollection := {
 		                    (DSWindowOpenedRecord new
-			                     windowName: 'Unknown window';
+			                     windowName: 'Unknown Window';
 			                     windowId: 42;
 			                     dateTime: '2008-01-22T16:00:25' asDateAndTime).
 		                    (DSMouseEnterWindowRecord new dateTime: '2008-01-22T16:00:31' asDateAndTime).
diff --git a/DebuggingSpy/DSMouseEnterWindowRecord.class.st b/DebuggingSpy/DSMouseEnterWindowRecord.class.st
@@ -11,5 +11,7 @@ Class {
 
 { #category : 'accessing' }
 DSMouseEnterWindowRecord >> eventName [
-	^'Enter window'
+
+	toolInfo ifNil: [ ^ 'Enter ' , DSWindowRecord unknownWindow ].
+	^ 'Enter ' , toolInfo windowType
 ]
diff --git a/DebuggingSpy/DSMouseLeaveWindowRecord.class.st b/DebuggingSpy/DSMouseLeaveWindowRecord.class.st
@@ -11,5 +11,7 @@ Class {
 
 { #category : 'accessing' }
 DSMouseLeaveWindowRecord >> eventName [
-	^'Leave window'
+
+	toolInfo ifNil: [ ^ 'Leave ' , DSWindowRecord unknownWindow ].
+	^ 'Leave ' , toolInfo windowType
 ]
diff --git a/DebuggingSpy/DSWindowActivatedRecord.class.st b/DebuggingSpy/DSWindowActivatedRecord.class.st
@@ -11,5 +11,7 @@ Class {
 
 { #category : 'accessing' }
 DSWindowActivatedRecord >> eventName [
-	^'Window activated'
+
+	toolInfo ifNil: [ ^ DSWindowRecord unknownWindow , ' activated' ].
+	^ toolInfo windowType , ' activated'
 ]
diff --git a/DebuggingSpy/DSWindowClosedRecord.class.st b/DebuggingSpy/DSWindowClosedRecord.class.st
@@ -11,5 +11,7 @@ Class {
 
 { #category : 'accessing' }
 DSWindowClosedRecord >> eventName [
-	^'Window closed'
+
+	toolInfo ifNil: [ ^ DSWindowRecord unknownWindow , ' closed' ].
+	^ toolInfo windowType , ' closed'
 ]
diff --git a/DebuggingSpy/DSWindowEventRecord.class.st b/DebuggingSpy/DSWindowEventRecord.class.st
@@ -31,7 +31,7 @@ DSWindowEventRecord >> recordWindowNameFromEvent: anEvent [
 
 	windowName := [ anEvent window label ]
 		              on: Error
-		              do: [ 'Unknown window' ]
+		              do: [ DSWindowRecord unknownWindow ]
 ]
 
 { #category : 'comparing' }
diff --git a/DebuggingSpy/DSWindowOpenedRecord.class.st b/DebuggingSpy/DSWindowOpenedRecord.class.st
@@ -11,5 +11,7 @@ Class {
 
 { #category : 'accessing' }
 DSWindowOpenedRecord >> eventName [
-	^'Window opened'
+
+	toolInfo ifNil: [ ^ DSWindowRecord unknownWindow , ' opened' ].
+	^ toolInfo windowType , ' opened'
 ]

Original file line number	Diff line number	Diff line change
`@@ -10,5 +10,5 @@ DebugPointBrowserPresenter class >> windowColor [`
`10`	`10`	`{ #category : '*DebuggingSpy-Browser' }`
`11`	`11`	`DebugPointBrowserPresenter class >> windowType [`
`12`	`12`
`13`		`- ^ 'Debug point browser'`
	`13`	`+ ^ 'Debug Point Browser'`
`14`	`14`	`]`
Original file line number	Diff line number	Diff line change
`@@ -12,5 +12,5 @@ Object class >> windowColor [`
`12`	`12`	`Object class >> windowType [`
`13`	`13`	`"Returns the name of the window type."`
`14`	`14`
`15`		`- ^ 'Unknown window'`
	`15`	`+ ^ DSWindowRecord unknownWindow`
`16`	`16`	`]`
Original file line number	Diff line number	Diff line change
`@@ -10,5 +10,5 @@ StCritiquePackageSelectorPresenter class >> windowColor [`
`10`	`10`	`{ #category : '*DebuggingSpy-Browser' }`
`11`	`11`	`StCritiquePackageSelectorPresenter class >> windowType [`
`12`	`12`
`13`		`- ^ 'Critique browser'`
	`13`	`+ ^ 'Critique Browser'`
`14`	`14`	`]`