The Trunk: Tools-cmm.695.mcz

Chris Muller uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-cmm.695.mcz

==================== Summary ====================

Name: Tools-cmm.695
Author: cmm
Time: 27 April 2016, 1:28:48.62735 pm
UUID: 526018d5-a5c7-48a5-832b-aedc6a3ffd1d
Ancestors: Tools-cmm.694, Tools-bf.694

Merge cmm.694.

=============== Diff against Tools-cmm.694 ===============

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
 
  !