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

93a62873 · Ronny Wichers Schreur · 61d0e58e · 93a62873
Commit 93a62873 authored Oct 24, 2003 by Ronny Wichers Schreur
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

Util/ExtListBox.icl Util/ExtListBox.icl +2 -2

No files found.
--- a/Util/ExtListBox.icl
+++ b/Util/ExtListBox.icl
@@ -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)