[Pkg] The Trunk: ToolBuilder-Morphic-cmm.82.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Oct 19 03:01:43 UTC 2011
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]!
More information about the Packages
mailing list