diff options
| author | Omar Rizwan <omar@omar.website> | 2024-01-29 19:05:42 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2024-01-29 19:05:42 +0000 |
| commit | 9cfa7c255abfefa34f1ea504ddccbf531b2a2d23 (patch) | |
| tree | c98b0d779eeb319e8ac3d4ae2a42a13f17d48c26 /virtual-programs | |
| parent | WIP: Use timestamp instead of rand for keypresses, don't retract (diff) | |
| download | folk-9cfa7c255abfefa34f1ea504ddccbf531b2a2d23.tar.gz folk-9cfa7c255abfefa34f1ea504ddccbf531b2a2d23.zip | |
keyboard: Retract old key events. Drops should be fixed (w/o leaks)
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/keyboard.folk | 4 |
1 files changed, 2 insertions, 2 deletions
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 } } } |