Chris Muller uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-cmm.85.mcz==================== Summary ====================
Name: ToolBuilder-Morphic-cmm.85
Author: cmm
Time: 27 May 2012, 9:59:06.378 pm
UUID: 86972436-d2b6-4b86-b2c8-11f321fb7fad
Ancestors: ToolBuilder-Morphic-cwp.84
- TreeMorph: allow drop-target callbacks to interrogate the shouldCopy argument.
- After the drop operation is complete, remove the drop highlight.
=============== Diff against ToolBuilder-Morphic-cwp.84 ===============
Item was changed:
----- Method: PluggableTreeMorph>>acceptDroppingMorph:event: (in category 'morphic') -----
+ acceptDroppingMorph: aTransferMorph event: evt
+ dropItemSelector ifNil: [ ^ self ].
+ model
+ perform: dropItemSelector
+ withEnoughArguments: {aTransferMorph passenger.
+ (self itemFromPoint: evt position) withoutListWrapper.
+ aTransferMorph shouldCopy}.
- acceptDroppingMorph: aMorph event: evt
- | item dropTarget |
- dropItemSelector ifNil:[^self].
- item := aMorph passenger.
- dropTarget := (self itemFromPoint: evt position) withoutListWrapper.
- model perform: dropItemSelector with: item with: dropTarget.
evt hand releaseMouseFocus: self.
+ potentialDropMorph ifNotNil: [ potentialDropMorph highlightForDrop: false ].
+ Cursor normal show!
- Cursor normal show.
- !