[etoys-dev] Etoys: Etoys-kfr.157.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Etoys to project Etoys:
http://source.squeak.org/etoys/Etoys-kfr.157.mcz

==================== Summary ====================

Name: Etoys-kfr.157
Author: kfr
Time: 5 May 2013, 12:19:45 pm
UUID: 7f19982f-a089-ef4b-9185-790de39af003
Ancestors: Etoys-kfr.155

Fixes issues with variables in Kedama

=============== Diff against Etoys-kfr.155 ===============

Item was changed:
  ----- Method: KedamaExamplerPlayer>>addInstanceVarNamed:withValue: (in category 'player protocol') -----
  addInstanceVarNamed: aName withValue: aValue
  
  	self basicAddInstanceVarNamed: aName withValue: aValue.
  	"turtles _ kedamaWorld turtlesOf: self."
+ 	turtles addInstanceVarNamed: aName withValue: aValue.
- 	turtles addInstanceVarVectorNamed: aName withValue: aValue.
  !

Item was changed:
  ----- Method: KedamaPatchType>>initialValueForASlotFor: (in category 'tile protocol') -----
  initialValueForASlotFor: aPlayer
  	"Answer the value to give initially to a newly created slot of the given type in the given player"
  
+ 	^ aPlayer kedamaWorld defaultPatch!
- 	^ aPlayer costume renderedMorph defaultPatch.!

Item was changed:
  ----- Method: KedamaTurtleVectorPlayer2>>addInstanceVarNamed:withValue: (in category 'player protocol') -----
  addInstanceVarNamed: aName withValue: aValue
  
  	| newArray |
+ 	newArray := self arrayForType: aValue.
+ 	
+ 	arrays := arrays,(Array with: newArray).
+ 	newArray atAllPut: aValue.
- 	(aValue isKindOf: Number) ifTrue: [
- 		newArray _ KedamaFloatArray new: self size.
- 	].
- 	(aValue isKindOf: Color) ifTrue: [
- 		newArray _ WordArray new: self size.
- 	].
- 	(aValue isKindOf: Player) ifTrue: [
- 		newArray _ Array new: self size.
- 	].
- 
- 	arrays _ arrays, newArray.
  	info at: aName asSymbol put: arrays size.
+ 	types at: arrays size put: aValue
+ 
+ 
+ 	
  !

Item was added:
+ ----- Method: Player>>kedamaWorld (in category 'slot-kedama') -----
+ kedamaWorld
+   ^ActiveWorld findDeeplyA: KedamaMorph
+ 	!