The Trunk: EToys-ar.61.mcz

Andreas Raab uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-ar.61.mcz

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

Name: EToys-ar.61
Author: ar
Time: 27 February 2010, 12:22:28.866 am
UUID: 5be1acc6-6a65-0841-a88f-2b8e01328e84
Ancestors: EToys-kfr.60

Move Player cleanUp from ScriptingSystem to Player. Protect Kedama from being nuked during aggressive cleanup.

=============== Diff against EToys-kfr.60 ===============

Item was added:
+ ----- Method: KedamaExamplerPlayer classSide>>isUniClass (in category 'compiling') -----
+ isUniClass
+ "Uni-classes end with digits"
+ ^self name endsWithDigit!

Item was added:
+ ----- Method: KedamaTurtlePlayer classSide>>isUniClass (in category 'compiling') -----
+ isUniClass
+ "Uni-classes end with digits"
+ ^self name endsWithDigit!

Item was added:
+ ----- Method: Player classSide>>cleanUp: (in category 'housekeeping') -----
+ cleanUp: aggressive
+ "Nuke uni-classes when aggressively cleaning up"
+ aggressive ifTrue:[
+ self withAllSubclassesDo:[:aClass|
+ aClass isUniClass ifTrue:[Smalltalk removeClassNamed: aClass name].
+ ].
+ ].!