From 9cfa7c255abfefa34f1ea504ddccbf531b2a2d23 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Mon, 29 Jan 2024 14:05:42 -0500
Subject: keyboard: Retract old key events. Drops should be fixed (w/o leaks)

---
 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 ffc0ba6a..fbc895b0 100644
--- a/virtual-programs/keyboard.folk
+++ b/virtual-programs/keyboard.folk
@@ -101,8 +101,8 @@ foreach keyboard $keyboardDevices {
                 set events [Statements::findMatches [list keyboard $keyboardSpecifier claims key /key/ is /keyState/ with modifiers /ms/ timestamp /timestamp/]]
                 foreach event $events {
                     dict with event {
-                        if {$timestamp - $now > 5000} {
-                            puts "Retract!!!!"
+                        if {$now - $timestamp > 5000} {
+                            Retract keyboard $keyboardSpecifier claims key $key is $keyState with modifiers $ms timestamp $timestamp
                         }
                     }
                 }
-- 
cgit v1.2.3