We planned to upgrade GitLab and Mattermost to the latest version this Friday morning (early). You may experience some downtime!

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