Commit a6289042 authored by John van Groningen's avatar John van Groningen

don't filter first KeyDown

parent ac861cb2
......@@ -316,7 +316,7 @@ flbKeyboard :: ({#Char} -> .(*(PSt .a) -> *PSt .a)) -> .ControlAttribute *((Filt
flbKeyboard efun = ControlKeyboard keyFilter Able (keyboard efun)
keyFilter :: KeyboardState -> Bool
keyFilter (SpecialKey _ (KeyDown True) _) = True
keyFilter (SpecialKey _ (KeyDown _) _) = True
keyFilter _ = False
keyboard efun (SpecialKey key (KeyDown repeat) {shiftDown,controlDown}) ((lbState=:{selection,items,lineHeight},ls),ps)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment