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!