[Pkg] The Trunk: Tools-bf.725.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Sep 6 15:53:09 UTC 2016

Bert Freudenberg uploaded a new version of Tools to project The Trunk:

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

More information about the Packages mailing list