The Trunk: Tools-bf.725.mcz

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