The Trunk: Morphic-dtl.712.mcz

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)]!