Commit 93a62873 authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur
Browse files

bug fix: handle all special keys, not just auto repeat

parent 61d0e58e
......@@ -440,8 +440,8 @@ elbKeyboard :: .ControlAttribute *((ExtListBoxState *(PSt .a),.b),*PSt .a);
elbKeyboard = ControlKeyboard keyFilter Able keyboard
keyFilter :: KeyboardState -> Bool
keyFilter (SpecialKey _ (KeyDown True) _) = True
keyFilter _ = False
keyFilter (SpecialKey _ (KeyDown _) _) = True
keyFilter k = False
//keyboard :: !.KeyboardState *((.ExtListBoxState *(PSt .a),.b),*PSt .a) -> *((ExtListBoxState *(PSt .a),.b),*PSt .a);
keyboard (SpecialKey key (KeyDown repeat) {shiftDown,controlDown}) ((lbState=:{tMargin,listboxId,selection,items,lineHeight,funs,shiftfuns},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