From d8cdc19431551df214303446d3e1a7efc5d426f6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9s=20Cuervo?= <andrescuervor@gmail.com>
Date: Wed, 29 Nov 2023 17:09:45 -0500
Subject: Add Step, sharing works now

---
 virtual-programs/keyboard.folk | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'virtual-programs')

diff --git a/virtual-programs/keyboard.folk b/virtual-programs/keyboard.folk
index 740b7b1c..eb98f085 100644
--- a/virtual-programs/keyboard.folk
+++ b/virtual-programs/keyboard.folk
@@ -81,14 +81,13 @@ foreach keyboard $keyboardDevices {
     Start process "keyboard-$eventPath" {
         source "pi/KeyCodes.tcl"
         Wish $::thisProcess shares statements like \
-            [list keyboard /k/ claims /k/ is /v/]
+            [list keyboard /k/ claims key /k/ is /v/]
         variable evtBytes 16
         variable evtFormat iissi
         if {[exec getconf LONG_BIT] == 64} {
             set evtBytes 24
             set evtFormat wwssi
         }
-        Assert keyboard [rand] claims key A is "boop: [rand]"
         set keyboardSpecifier $eventPath
         variable eventPathChannel [open $eventPath r]
         puts "starting keyboard process for $keyboard"
@@ -104,6 +103,7 @@ foreach keyboard $keyboardDevices {
                 puts "got key event ($keyboardSpecifier): $code => [keyFromCode $code false] | $value"
                 Retract keyboard $keyboardSpecifier key /k/ is /t/
                 Assert keyboard $keyboardSpecifier claims key [keyFromCode $code false] is [list $value]
+                Step
             }
         }
         # set kbEventPath [open $eventPath r]
-- 
cgit v1.2.3