The Trunk: EToys-eem.387.mcz

Eliot Miranda uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-eem.387.mcz

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

Name: EToys-eem.387
Author: eem
Time: 10 March 2020, 3:53:06.048241 pm
UUID: 12d7f0bc-32f7-47d5-9d3b-d1f01f874f09
Ancestors: EToys-mt.386

Eliminate some underscore assignments which throw up unexpected errors on recompilation if one has the preference to allow underscore assignments turned off.

=============== Diff against EToys-mt.386 ===============

Item was changed:
  ----- Method: BraceNode>>asMorphicSyntaxIn: (in category '*Etoys-tiles') -----
  asMorphicSyntaxIn: parent

        | row |

+       row := (parent addRow: #brace on: self) layoutInset: 1.
-       row _ (parent addRow: #brace on: self) layoutInset: 1.
        row addMorphBack: (StringMorph new contents:
                (String streamContents: [:aStream | self printOn: aStream indent: 0])).
+       ^row!
-       ^row
- !

Item was changed:
  ----- Method: FreeCellStatistics>>reset (in category 'actions') -----
  reset

+       sessionWins             := 0.
+       sessionLosses           := 0.
+       totalWins                       := 0.
+       totalLosses                     := 0.
+       streakWins                      := 0.
+       streakLosses            := 0.
+       winsWithReplay          := 0.
+       lossesWithReplay        := 0.
+       lastGameWon             := 0.
+       lastGameLost            := 0.
+       currentCount            := 0.
+       currentType             := nil.
+       self changed!
-       sessionWins             _ 0.
-       sessionLosses   _ 0.
-       totalWins               _ 0.
-       totalLosses             _ 0.
-       streakWins              _ 0.
-       streakLosses    _ 0.
-       winsWithReplay := 0.
-       lossesWithReplay := 0.
-       lastGameWon     _ 0.
-       lastGameLost    _ 0.
-       currentCount    _ 0.
-       currentType             _ nil.
-       self changed.
-       
-
-       !

Item was changed:
  ----- Method: LiteralNode>>asMorphicSyntaxIn: (in category '*Etoys-tiles') -----
  asMorphicSyntaxIn: parent

        | row |

+       row := parent addRow: #literal on: self.
-       row _ parent addRow: #literal on: self.
        (key isVariableBinding) ifFalse: [
                row layoutInset: 1.
                ^ row addMorphBack: (row addString: key storeString special: false)].
        key key isNil ifTrue: [
                ^ row addTextRow: ('###',key value soleInstance name)
        ] ifFalse: [
                ^ row addTextRow: ('##', key key)
+       ]!
-       ].      !

Item was changed:
  ----- Method: ParseNode>>asMorphicSyntaxIn: (in category '*Etoys-tiles') -----
  asMorphicSyntaxIn: parent

        | morph |
        "Default for missing implementations"

+       morph := parent addColumn: #error on: self.
-       morph _ parent addColumn: #error on: self.
        morph addTextRow: self class printString.
+       ^morph!
-       ^morph
-       
-
- !

Item was changed:
  ----- Method: VariableNode>>variableGetterBlockIn: (in category '*Etoys-tiles') -----
  variableGetterBlockIn: aContext

        | temps index ivars |

        (self type = 4 and: [self key isVariableBinding]) ifTrue: [
                ^[self key value]
        ].
        aContext ifNil: [^nil].
        self isSelfPseudoVariable ifTrue: [^[aContext receiver]].
        self type = 1 ifTrue: [
+               ivars := aContext receiver class allInstVarNames.
+               index := ivars indexOf: self name ifAbsent: [^nil].
-               ivars _ aContext receiver class allInstVarNames.
-               index _ ivars indexOf: self name ifAbsent: [^nil].
                ^[aContext receiver instVarAt: index]
        ].
        self type = 2 ifTrue: [
+               temps := aContext tempNames.
+               index := temps indexOf: self name ifAbsent: [^nil].
-               temps _ aContext tempNames.
-               index _ temps indexOf: self name ifAbsent: [^nil].
                ^[aContext tempAt: index]
        ].
+       ^nil!
-       ^nil
- !