Levente Uzonyi uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-ul.224.mcz

==================== Summary ====================

Name: ST80-ul.224
Author: ul
Time: 13 March 2017, 2:54:45.096902 pm
UUID: b10fdcb4-2a00-4eaa-ae13-f1650bfc0b92
Ancestors: ST80-ul.223

SortedCollection Whack-a-mole

=============== Diff against ST80-ul.223 ===============

Item was changed:
  ----- Method: ControlManager>>findWindowSatisfying: (in category 'scheduling') -----
  findWindowSatisfying: aBlock
  	"Present a menu of window titles, and activate the one that gets chosen"
  
+ 	| sortAlphabetically controllers labels index |
- 	| sortAlphabetically controllers listToUse labels index |
  	sortAlphabetically := Sensor shiftPressed.
  	controllers := OrderedCollection new.
  	scheduledControllers do: [:controller |
  		controller == screenController ifFalse:
  			[(aBlock value: controller) ifTrue: [controllers addLast: controller]]].
  	controllers size = 0 ifTrue: [^ self].
+ 	sortAlphabetically ifTrue: [controllers sort: [:a :b | a view label < b view label]].
- 	listToUse := sortAlphabetically
- 		ifTrue: [controllers asSortedCollection: [:a :b | a view label < b view label]]
- 		ifFalse: [controllers].
  	labels := String streamContents:
  		[:strm | 
+ 			controllers do: [:controller | strm nextPutAll: (controller view label contractTo: 40); cr].
- 			listToUse do: [:controller | strm nextPutAll: (controller view label contractTo: 40); cr].
  		strm skip: -1  "drop last cr"].
  	index := (UIManager default chooseFrom: labels lines).
  	index > 0 ifTrue:
+ 		[self activateController: (controllers at: index)].
- 		[self activateController: (listToUse at: index)].
  !