[etoys-dev] Etoys: Etoys-bf.4.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of Etoys to project Etoys:
http://source.squeak.org/etoys/Etoys-bf.4.mcz

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

Name: Etoys-bf.4
Author: bf
Time: 4 May 2010, 8:50:56 am
UUID: b09fda78-6ad1-404c-9925-191081312efb
Ancestors: Etoys-bf.3

- protect references in Player scripts when recompiling

=============== Diff against Etoys-bf.3 ===============

Item was added:
+ ----- Method: Player classSide>>compileAllFrom: (in category 'other') -----
+ compileAllFrom: oldClass
+ 	"protect script references"
+ 	scripts isEmptyOrNil
+ 		ifTrue: [^super compileAllFrom: oldClass]. 
+ 	ProjectLoading worldLoading: (self myProject ifNotNilDo: [:p | p world]).
+ 	[super compileAllFrom: oldClass]
+ 		ensure: [ProjectLoading worldLoading: nil].!

Item was added:
+ ----- Method: Player classSide>>myProject (in category 'other') -----
+ myProject
+ 	"Find the project I was defined in, or nil"
+ 	self isSystemDefined ifTrue: [^nil].
+ 	Project allProjects do: [:prj |
+ 		prj world presenter allExtantPlayers do: [:plr |
+ 			 plr class == self ifTrue: [^prj]]].
+ 	^nil
+ !