[squeak-dev] The Trunk: ToolBuilder-Morphic-cmm.80.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Nov 8 02:36:52 UTC 2011
Chris Muller uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-cmm.80.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-cmm.80
Author: cmm
Time: 17 September 2011, 11:00:22.25 pm
UUID: 9356e41c-aff9-40bb-898d-dbaab2405e22
Ancestors: ToolBuilder-Morphic-ul.79
Fix for dragging messages out of filtered PluggableListMorphs.
=============== Diff against ToolBuilder-Morphic-ul.79 ===============
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 Squeak-dev
mailing list
|