Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clm
Commits
656b8296
Commit
656b8296
authored
Oct 24, 2003
by
Ronny Wichers Schreur
🏘
Browse files
bug fix: handle all special keys, not just auto repeat
parent
c351ab7d
Changes
1
Hide whitespace changes
Inline
Side-by-side
CleanIDE/Util/ExtListBox.icl
View file @
656b8296
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment