Bert Freudenberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-bf.27.mcz
==================== Summary ====================
Name: Morphic-bf.27 Author: bf Time: 26 June 2010, 2:34:02 pm UUID: 1f191db0-0441-4550-832b-068903c9319a Ancestors: Morphic-bf.26
- fix an ambiguous translation in abandonUnsituatedPlayers (SQ-649)
=============== Diff against Morphic-bf.26 ===============
Item was changed: ----- Method: PasteUpMorph>>abandonUnsituatedPlayers (in category 'menu') ----- abandonUnsituatedPlayers "If any objects in the project have references, in player-valued variables, to other objects otherwise not present in the project, abandon them and replace former references to them by references to Dot"
| aList dot slotInfo varName ref allPlayers count | count := 0. allPlayers := ActiveWorld presenter reallyAllExtantPlayersNoSort. aList := allPlayers select: [:m | m belongsToUniClass]. dot := self presenter standardPlayer. aList do: [:p | p class slotInfo associationsDo: [:assoc | slotInfo := assoc value. varName := assoc key. (slotInfo type = #Player) ifTrue: [ref := p instVarNamed: varName. (allPlayers includes: ref) ifFalse: [p instVarNamed: varName put: dot. count := count + 1. + Transcript cr; show: ('Variable named "{1}" in player named "{2}" changed to point to Dot' translated format: {varName. ref externalName})]]]]. - Transcript cr; show: 'Variable named' translated, ' "', varName, '" ', 'in' translated, ' player named' translated, ' "', ref externalName, '" ', 'changed to point to Dot']]]]. aList := nil. "Increases chance of the next line having desired effect." + self inform: ('{1} item(s) fixed up' translated format: {count}). - self inform: count printString, ' item(s) fixed up' translated.
WorldState addDeferredUIMessage: [Smalltalk garbageCollect]!
etoys-dev@lists.squeakfoundation.org