[Pkg] The Trunk: ToolBuilder-Morphic-cmm.82.mcz

[commits at source.squeak.org]

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

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

Name: ToolBuilder-Morphic-cmm.82
Author: cmm
Time: 18 October 2011, 9:57:26.494 pm
UUID: 5767de11-4ec1-4115-a16c-9030c8482dfc
Ancestors: ToolBuilder-Morphic-dtl.81, ToolBuilder-Morphic-cmm.80

Merged dtl.81.

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

Item was changed:
  ----- Method: PluggableListMorphPlus>>startDrag: (in category 'drag and drop') -----
  startDrag: evt 
  	
  	dragItemSelector ifNil:[^self].
  	evt hand hasSubmorphs ifTrue: [^ self].
  	[ | dragIndex draggedItem ddm |
  	(self dragEnabled and: [model okToChange]) ifFalse: [^ self].
  	dragIndex := self rowAtLocation: evt position.
  	dragIndex = 0 ifTrue:[^self].
+ 	draggedItem := model perform: dragItemSelector with: (self modelIndexFor: dragIndex).
- 	draggedItem := model perform: dragItemSelector with: dragIndex.
  	draggedItem ifNil:[^self].
  	ddm := TransferMorph withPassenger: draggedItem from: self.
  	ddm dragTransferType: #dragTransferPlus.
  	evt hand grabMorph: ddm]
  		ensure: [Cursor normal show.
  			evt hand releaseMouseFocus: self]!