Skip to content
GitLab
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
clean-ide
Commits
f49ab2a5
Commit
f49ab2a5
authored
Feb 25, 2003
by
Diederik van Arkel
Browse files
platform diffs
parent
3fcd86da
Changes
2
Show whitespace changes
Inline
Side-by-side
Util/ExtListBox.icl
View file @
f49ab2a5
...
...
@@ -5,6 +5,9 @@ import StdControl, StdControlReceiver, StdId, StdPicture, StdPSt, StdReceiver, S
import
StdControlAttribute
import
ioutil
trace_n`
_
s
:==
s
//import dodebug
//--
::
ExtListBoxState
ps
=
...
...
@@ -634,7 +637,9 @@ where
newSelection
=
[
newIndex
]
okSelection
=
filter
(
isBetween
1
nrItems
)
newSelection
mouseFunction
_
state
=
abort
"ExtListBox.icl: mouse only supports MouseDowns"
mouseFunction
arg
state
// = abort "ExtListBox.icl: mouse only supports MouseDowns"
=
trace_n`
(
"ExtListBox.icl: unexpected argument to mouseFunction"
,
arg
)
state
// The functions below take care of the proper communication with the receiver that
// belongs to the listbox control.
...
...
Util/FilteredListBox.icl
View file @
f49ab2a5
...
...
@@ -492,7 +492,7 @@ where
nrItems
=
length
items
newSelection
=
[
newIndex
]
okSelection
=
filter
(
isBetween
1
nrItems
)
newSelection
mouse
_
_
_
=
abort
"FilteredListBox: unsupported mouse action"
mouse
_
_
s
=
s
//
abort "FilteredListBox: unsupported mouse action"
// The functions below take care of the proper communication with the receiver that
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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