Commit f49ab2a5 authored by Diederik van Arkel's avatar Diederik van Arkel

platform diffs

parent 3fcd86da
......@@ -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.
......
......@@ -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
......
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