The Trunk: ToolBuilder-Morphic-cmm.51.mcz

Chris Muller uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-cmm.51.mcz

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

Name: ToolBuilder-Morphic-cmm.51
Author: cmm
Time: 2 March 2010, 5:37:09.731 pm
UUID: 82f96d6d-4a31-44ea-ae92-305f02152b5b
Ancestors: ToolBuilder-Morphic-dtl.50

- Support for newly introduced AlternatePluggableListMorphOfMany.

=============== Diff against ToolBuilder-Morphic-dtl.50 ===============

Item was added:
+ ----- Method: MorphicToolBuilder>>buildPluggableAlternateMultiSelectionList: (in category 'pluggable widgets') -----
+ buildPluggableAlternateMultiSelectionList: aSpec
+ | listMorph listClass |
+ aSpec getSelected ifNotNil: [ ^ self error: 'There is no PluggableAlternateListMorphOfManyByItem' ].
+ listClass := self alternateMultiSelectListClass.
+ listMorph := listClass
+ on: aSpec model
+ list: aSpec list
+ primarySelection: aSpec getIndex
+ changePrimarySelection: aSpec setIndex
+ listSelection: aSpec getSelectionList
+ changeListSelection: aSpec setSelectionList
+ menu: aSpec menu.
+ listMorph
+ setProperty: #highlightSelector toValue: #highlightMessageList:with: ;
+ setProperty: #itemConversionMethod toValue: #asStringOrText ;
+ setProperty: #balloonTextSelectorForSubMorphs toValue: #balloonTextForClassAndMethodString ;
+ enableDragNDrop: Preferences browseWithDragNDrop ;
+ menuTitleSelector: #messageListSelectorTitle.
+ self
+ register: listMorph
+ id: aSpec name.
+ listMorph
+ keystrokeActionSelector: aSpec keyPress ;
+ getListElementSelector: aSpec listItem ;
+ getListSizeSelector: aSpec listSize.
+ self
+ buildHelpFor: listMorph
+ spec: aSpec.
+ self
+ setFrame: aSpec frame
+ in: listMorph.
+ parent ifNotNil: [ self add: listMorph to: parent ].
+ panes ifNotNil: [ aSpec list ifNotNil:[panes add: aSpec list ] ].
+ ^ listMorph!

Item was added:
+ ----- Method: MorphicToolBuilder>>alternateMultiSelectListClass (in category 'widget classes') -----
+ alternateMultiSelectListClass
+ ^ AlternatePluggableListMorphOfMany !