[etoys-dev] Etoys: Tools-kfr.15.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Tools to project Etoys:
http://source.squeak.org/etoys/Tools-kfr.15.mcz

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

Name: Tools-kfr.15
Author: kfr
Time: 15 December 2012, 2:10:31 am
UUID: 7590fc64-07a8-9246-a833-920b979b5234
Ancestors: Tools-kfr.14

Use unique name in code string for PhraseTile for other players than self.

=============== Diff against Tools-kfr.14 ===============

Item was changed:
  ----- Method: MethodHolder>>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."
+ 	| referenceName selfUniqueName dropeeUniqueName |
+ 	selfUniqueName := (self dependents first )owner playerScripted uniqueNameForReference.
- 	| externalName |
  	(dropee isTileLike) 
  				ifTrue:[dropee isTileMorph 
+ 										ifFalse:[ referenceName := dropee codeString unparenthetically.									
+ 													dropeeUniqueName := dropee associatedPlayer uniqueNameForReference. 
+ 													(dropeeUniqueName  = selfUniqueName)
+ 																ifFalse:[referenceName := referenceName copyReplaceAll: 'self' with: dropeeUniqueName .]]
+ 							ifTrue:[referenceName := dropee actualObject uniqueNameForReference]]
+ 				ifFalse:[referenceName := dropee assuredPlayer uniqueNameForReference].
+ 	targetMorph correctSelectionWithString: referenceName.
- 							ifFalse:[ externalName := dropee codeString unparenthetically]
- 							ifTrue:[externalName := dropee actualObject uniqueNameForReference]]
- 				ifFalse:[externalName := dropee assuredPlayer uniqueNameForReference].
- 	targetMorph correctSelectionWithString: externalName.
  	dropee rejectDropMorphEvent: evt.
  	^ true "success"
  !