The Trunk: Tools-bf.694.mcz

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
 
  !