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

platform diffs

parent 3fcd86da
...@@ -5,6 +5,9 @@ import StdControl, StdControlReceiver, StdId, StdPicture, StdPSt, StdReceiver, S ...@@ -5,6 +5,9 @@ import StdControl, StdControlReceiver, StdId, StdPicture, StdPSt, StdReceiver, S
import StdControlAttribute import StdControlAttribute
import ioutil import ioutil
trace_n` _ s :== s
//import dodebug
//-- //--
:: ExtListBoxState ps = :: ExtListBoxState ps =
...@@ -634,7 +637,9 @@ where ...@@ -634,7 +637,9 @@ where
newSelection= [newIndex] newSelection= [newIndex]
okSelection = filter (isBetween 1 nrItems) newSelection 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 // The functions below take care of the proper communication with the receiver that
// belongs to the listbox control. // belongs to the listbox control.
......
...@@ -492,7 +492,7 @@ where ...@@ -492,7 +492,7 @@ where
nrItems = length items nrItems = length items
newSelection= [newIndex] newSelection= [newIndex]
okSelection = filter (isBetween 1 nrItems) newSelection 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 // The functions below take care of the proper communication with the receiver that
......
Supports Markdown
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