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 mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev
Locked
