The Trunk: EToys-tfel.246.mcz

Tim Felgentreff uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-tfel.246.mcz

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

Name: EToys-tfel.246
Author: tfel
Time: 23 September 2016, 1:43:43.492418 pm
UUID: 4adda244-96f0-8d44-a558-de9db4c3bc22
Ancestors: EToys-tfel.245

- hide uniclasses from the system, so they are collected when their players go away
- fix editing and saving player scripts that refer to other players by name

=============== Diff against EToys-tfel.245 ===============

Item was changed:
  ----- Method: KedamaExamplerPlayer>>copyAllMethodsAgain2 (in category '*Etoys-Squeakland-debug support') -----
  copyAllMethodsAgain2
 
  | c result |
  c := turtles class.
  result := (ClassBuilder new)
  name: c name
  inEnvironment: c environment
  subclassOf: c superclass
  type: c typeOfClass
  instanceVariableNames: KedamaTurtleVectorPlayer2 instanceVariablesString
  classVariableNames: KedamaTurtleVectorPlayer2 classVariablesString
  poolDictionaries: KedamaTurtleVectorPlayer2 sharedPoolsString
  category: Object categoryForUniclasses.
  turtles class copyAllCategoriesUnobtrusivelyFrom: KedamaTurtleVectorPlayer2.
  sequentialStub ifNotNil: [sequentialStub class copyAllCategoriesUnobtrusivelyFrom: KedamaSequenceExecutionStub].
+ self flag: #todo. self flag: #uniclasses. "Discuss if we really want to hide uniclasses again"
+ result environment forgetClass: result logged: false.
+ c superclass removeSubclass: result.
  !

Item was changed:
  ----- Method: Player class>>setNewInstVarNames: (in category 'user-defined inst vars') -----
  setNewInstVarNames: listOfStrings
  "Make listOfStrings be the new list of instance variable names for the receiver"
 
  | disappearing firstAppearing instVarString instVarList |
  instVarList := self instVarNames asOrderedCollection.
  disappearing := instVarList copy.
  disappearing removeAllFoundIn: listOfStrings.
  disappearing do:
  [:oldName | self removeAccessorsFor: oldName].
  firstAppearing := listOfStrings copy.
  firstAppearing removeAllFoundIn: instVarList.
  instVarString := String streamContents:
  [:aStream | listOfStrings do: [:aString | aStream nextPutAll: aString; nextPut: $ ]].
 
  superclass subclass: self name instanceVariableNames: instVarString
  classVariableNames: '' poolDictionaries: '' category: self categoryForUniclasses.
+ self flag: #todo. self flag: #uniclasses. "Discuss if we really want to hide uniclasses again"
+ self environment forgetClass: self logged: false.
+ superclass removeSubclass: self.
  firstAppearing do:
  [:newName | self compileAccessorsFor: newName].
  !

Item was added:
+ ----- Method: ScriptEncoder>>init:notifying: (in category 'as yet unclassified') -----
+ init: class notifying: parser
+
+ super init: class notifying: parser.
+ self referenceObject: ActiveWorld referenceWorld.!

Item was added:
+ ----- Method: ScriptParser>>encoder (in category 'public access') -----
+ encoder
+ ^encoder ifNil:
+ [encoder := ScriptEncoder new]!