Bert Freudenberg uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-bf.725.mcz
==================== Summary ====================
Name: Tools-bf.725 Author: bf Time: 6 September 2016, 5:52:33.688676 pm UUID: 56a8eacc-9562-41ae-88b9-93faf2ab23c5 Ancestors: Tools-tfel.724
Fix 'textual references to dropped morphs' as suggested by Yakov.
=============== Diff against Tools-tfel.724 ===============
Item was changed: ----- Method: Workspace>>acceptDroppingMorph:event:inMorph: (in category 'drag and drop') ----- acceptDroppingMorph: dropee event: evt inMorph: targetMorph "Return the dropee to its old position, and add a reference to it at the cursor point." | bindingName externalName reference | (dropee isKindOf: TransferMorph) ifTrue: [reference := dropee passenger. externalName := dropee passenger className] ifFalse: [reference := dropee. + externalName := dropee externalName]. - dropee externalName]. externalName := externalName isOctetString ifTrue: [externalName] ifFalse: ['a' , externalName]. bindingName := externalName withFirstCharacterDownshifted , reference identityHash printString. targetMorph correctSelectionWithString: bindingName , ' '. (self bindingOf: bindingName) value: reference. (dropee isKindOf: TransferMorph) ifFalse: [dropee rejectDropMorphEvent: evt]. ^ true"success"!