Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.65.mcz
==================== Summary ====================
Name: Morphic-kfr.65 Author: kfr Time: 26 July 2011, 7:13:32 pm UUID: 69af195e-72a5-2d46-8773-742298670d57 Ancestors: Morphic-kfr.64
Grammar / typo, Etoy » Morphic.po, "changed to point to Dot" http://tracker.squeakland.org/browse/SQ-966
=============== Diff against Morphic-kfr.64 ===============
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 "{1}" in player named "{2}" changed to point to Dot' translated format: {varName. ref externalName})]]]]. aList := nil. "Increases chance of the next line having desired effect." self inform: ('{1} item(s) fixed up' translated format: {count}).
WorldState addDeferredUIMessage: [Smalltalk garbageCollect]!
etoys-dev@lists.squeakfoundation.org