The Trunk: EToys-nice.58.mcz

Nicolas Cellier uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-nice.58.mcz

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

Name: EToys-nice.58
Author: nice
Time: 4 February 2010, 8:40:53.289 pm
UUID: 662a9d8d-3158-4b74-9910-33f716c47d25
Ancestors: EToys-nice.57

1) Use methodsDo: instead of slectorsDo:
2) remove a useless fixTemps

=============== Diff against EToys-nice.57 ===============

Item was changed:
  ----- Method: SyntaxMorph classSide>>testAll (in category 'as yet unclassified') -----
  testAll
 
  | systNav total count|
  "
  SyntaxMorph testAll
  "
  systNav := self systemNavigation.
  count := total := 0.
  systNav allBehaviorsDo: [ :aClass | total := total + 1].
  'Testing all behaviors'
  displayProgressAt: Sensor cursorPoint
  from: 0 to: total
  during: [ :bar |
  systNav allBehaviorsDo: [ :aClass |
  bar value: (count := count + 1).
+ aClass methodsDo: [ :m |
+ | source tree |
+ source := m getSourceFromFile.
- aClass selectorsDo: [ :aSelector | | source tree |
- source := (aClass compiledMethodAt: aSelector) getSourceFromFile.
  tree := Compiler new
  parse: source
  in: aClass
  notifying: nil.
  tree asMorphicSyntaxUsing: SyntaxMorph.
  ].
  ]. ].
 
 
  !

Item was changed:
  ----- Method: Player>>veryDeepFixupWith: (in category 'copying') -----
  veryDeepFixupWith: deepCopier
- | old |
  "Any uniClass inst var may have been weakly copied.  If they were in the tree being copied, fix them up, otherwise point to the originals."
 
+ super veryDeepFixupWith: deepCopier.
+ Player instSize + 1 to: self class instSize do:
+ [:ii |
+ | old |
+ old := self instVarAt: ii.
+ self instVarAt: ii put: (deepCopier references at: old ifAbsent: [old])].
- super veryDeepFixupWith: deepCopier.
- Player instSize + 1 to: self class instSize do:
- [:ii | old := self instVarAt: ii.
- self instVarAt: ii put: (deepCopier references at: old ifAbsent: [old])].
  !

Item was changed:
  ----- Method: ScriptEditorMorph>>drawOn: (in category 'drawing') -----
  drawOn: aCanvas
  "may need to unhibernate the script lazily here."
 
  (Preferences universalTiles and: [self submorphs size < 2])
  ifTrue:
+ [WorldState addDeferredUIMessage: [self unhibernate]].
- [WorldState addDeferredUIMessage: [self unhibernate] fixTemps].
 
  ^ super drawOn: aCanvas!