.

original commit: 65c23df9bf3ad4bdf31ff45677ec78128fc4116c

collects/tests/mred/choice-list-steps.txt

@@ -194,3 +194,27 @@ Click "Check" and inspect the item list in the console.
 Multiple Selections >> Multiple-Selection Lists Only <<
 -------------------
 
+Click on each of the three items and make sure that "Selected N"
+ and "Callback Ok" are printed in the console.
+
+Click "Check" and verify the item list *and* the selection list.  Only
+ one item should be selected, and the only position of that item
+ (counting frmo 0) should be in the selection list.
+
+Use the shift key to select a second item. The console should show
+ "Selected N" and "Callback Ok" as usual.
+
+Click "Check" and verify that the selection list now has the right
+ two items.
+
+Shift-click on a selected item. The console should show "Selected N"
+ and "Callback Ok" as usual.
+
+Shift-click to select the remaining item. The console should show
+ "Selected N" and "Callback Ok" as usual.
+
+Control-click on a selected item. It should become unselected (and the
+ other two selected items should remain so). The console should report
+ "Selected -1", "Deselect", and "Callback Ok".
+
+

collects/tests/mred/item.ss

@@ -1133,7 +1133,9 @@
 				   (error "selection string mismatch"))
 				 (check-callback-event c c e commands #t)))
 			     old-list)
-			    (printf "content: ~s~n" actual-content))
+			    (printf "content: ~s~n" actual-content)
+			    (when multi?
+			      (printf "selections: ~s~n" (send c get-selections))))
 			  "Check"))
   (instructions p "choice-list-steps.txt")
   (send f show #t))