Bert Freudenberg uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-bf.694.mcz
==================== Summary ====================
Name: Tools-bf.694 Author: bf Time: 20 April 2016, 6:24:57.82409 pm UUID: b13d8848-e0bb-479f-b9b5-a243e111cea2 Ancestors: Tools-cmm.693
Always accept dropped variable references in a workspace.
=============== Diff against Tools-cmm.693 ===============
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. 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]. - dropee rejectDropMorphEvent: evt. ^ true"success"!
Item was changed: ----- Method: Workspace>>wantsDroppedMorph:event:inMorph: (in category 'drag and drop') ----- wantsDroppedMorph: dropee event: evt inMorph: target
+ ^ acceptDroppedMorphs or: [dropee isKindOf: TransferMorph] - ^ acceptDroppedMorphs !
squeak-dev@lists.squeakfoundation.org