[etoys-dev] Etoys: Morphic-kfr.65.mcz

[commits at source.squeak.org]

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