Etoys: Tools-kfr.15.mcz

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

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev