Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.274.mcz==================== Summary ====================
Name: ToolBuilder-Morphic-mt.274
Author: mt
Time: 4 March 2021, 3:26:12.332661 pm
UUID: 7491b055-3449-2a40-925a-75174efc5215
Ancestors: ToolBuilder-Morphic-mt.273
Complements ToolBuilder-Kernel-mt.139
=============== Diff against ToolBuilder-Morphic-mt.273 ===============
Item was changed:
----- Method: MorphicToolBuilder>>buildPluggableList: (in category 'widgets required') -----
buildPluggableList: aSpec
| widget listClass getIndex setIndex |
aSpec getSelected ifNil:[
listClass := self listClass.
getIndex := aSpec getIndex.
setIndex := aSpec setIndex.
] ifNotNil:[
listClass := self listByItemClass.
getIndex := aSpec getSelected.
setIndex := aSpec setSelected.
].
widget := listClass on: aSpec model
list: aSpec list
selected: getIndex
changeSelected: setIndex
menu: aSpec menu
keystroke: aSpec keyPress.
self register: widget id: aSpec name.
widget
dragItemSelector: aSpec dragItem;
dropItemSelector: aSpec dropItem;
wantsDropSelector: aSpec dropAccept;
+ dragStartedSelector: aSpec dragStarted;
+ dragTypeSelector: aSpec dragType.
- dragStartedSelector: aSpec dragStarted.
self setListPropertiesFor: widget spec: aSpec.
^widget!