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. - !