From 6cd631bdc60df91392e822d51bccd9d21c98c39b Mon Sep 17 00:00:00 2001
From: Martin Dias <tinchodias@gmail.com>
Date: Thu, 5 Dec 2024 13:22:47 -0300
Subject: [PATCH] BlDevKeyboard: send addEventHandlerOn:do:

Fixes #665
---
 src/Bloc-DevTool/BlDevKeyboard.class.st | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Bloc-DevTool/BlDevKeyboard.class.st b/src/Bloc-DevTool/BlDevKeyboard.class.st
index b895ef829..98f6a0401 100644
--- 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.