David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.712.mcz
==================== Summary ====================
Name: Morphic-dtl.712 Author: dtl Time: 30 December 2013, 5:56:14.68 pm UUID: 89555215-bebc-4449-a0cb-30aea1c5c00f Ancestors: Morphic-fbs.711
PopUpChoiceMorph expects colorNames to be an ordered collection, not a set. Convert to ordered collection in PopUpChoiceMorph>>mouseDown:
=============== Diff against Morphic-fbs.711 ===============
Item was changed: ----- Method: PopUpChoiceMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt | items selectedItem | (target isNil or: [getItemsSelector isNil]) ifTrue: [^self]. + items := ((target perform: getItemsSelector withArguments: getItemsArgs) + ifNil: [#()]) asOrderedCollection. - items := target perform: getItemsSelector withArguments: getItemsArgs. selectedItem := UIManager default chooseFrom: items values: items. selectedItem ifNil: [^self]. self contentsClipped: selectedItem. "Client can override this if necess" actionSelector ifNotNil: [target perform: actionSelector withArguments: (arguments copyWith: selectedItem)]!