[Pkg] The Trunk: Morphic-dtl.712.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Dec 30 22:58:21 UTC 2013

David T. Lewis uploaded a new version of Morphic to project The Trunk:

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

More information about the Packages mailing list