don't filter first KeyDown

a6289042 · John van Groningen · ac861cb2 · a6289042
Commit a6289042 authored Jan 26, 2005 by John van Groningen
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

Util/FilteredListBox.icl Util/FilteredListBox.icl +1 -1

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