platform diffs

Util/ExtListBox.icl

@@ -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

@@ -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