BlDevKeyboard: send addEventHandlerOn:do:

Fixes #665
pharo-graphics · Dec 5, 2024 · 6cd631b · 6cd631b
1 parent 4dccc31
commit 6cd631b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Bloc-DevTool/BlDevKeyboard.class.st b/src/Bloc-DevTool/BlDevKeyboard.class.st
@@ -56,7 +56,7 @@ BlDevKeyboard >> initializeBottomRow [
 { #category : #initialization }
 BlDevKeyboard >> initializeEventListeners [
 	self
-		when: BlKeyDownEvent
+		addEventHandlerOn: BlKeyDownEvent
 		do: [ :anEvent | 
 			('down: ' , anEvent key asString) traceCr.
 			StringSignal emit: 'down: ' , anEvent key asString.
@@ -68,7 +68,7 @@ BlDevKeyboard >> initializeEventListeners [
 						show: 'Unknown: ' , anEvent key asString;
 						cr ] ].
 	self
-		when: BlKeyUpEvent
+		addEventHandlerOn: BlKeyUpEvent
 		do: [ :anEvent | 
 			('up ' , anEvent key asString) traceCr.
 			StringSignal emit: 'up: ' , anEvent key asString.