The Trunk: EToys-mt.382.mcz

Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-mt.382.mcz

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

Name: EToys-mt.382
Author: mt
Time: 4 March 2020, 10:43:11.878115 am
UUID: fc8c9785-05f6-864f-bc77-e36d0e467b76
Ancestors: EToys-mt.381

Removes some refs to deprecated classes.

=============== Diff against EToys-mt.381 ===============

Item was removed:
- ----- Method: Object class>>windowColorSpecification (in category '*Etoys-Squeakland-window color') -----
- windowColorSpecification
- "Answer a WindowColorSpec object that declares my preference.
- This is a backstop for classes that don't otherwise define a preference."
-
- ^ WindowColorSpec classSymbol: self name
- wording: 'Default' translatedNoop brightColor: #white
- pastelColor: #white
- helpMessage: 'Other windows without color preferences.' translatedNoop!

Item was removed:
- ----- Method: PreferencesPanel class>>windowColorSpecification (in category 'window color') -----
- windowColorSpecification
- "Answer a WindowColorSpec object that declares my preference"
-
- ^ WindowColorSpec classSymbol: self name wording: 'Preferences Panel' translatedNoop brightColor: #(0.645 1.0 1.0) pastelColor: #(0.886 1.0 1.0) helpMessage: 'A tool for expressing personal preferences for numerous options.' translatedNoop!

Item was changed:
  ----- Method: ScriptParser>>parse:class:noPattern:context:notifying:ifFail: (in category 'as yet unclassified') -----
  parse: sourceStream class: class noPattern: noPattern context: ctxt notifying: req ifFail: aBlock
          "Answer a MethodNode for the argument, sourceStream, that is the root of
          a parse tree. Parsing is done with respect to the argument, class, to find
          instance, class, and pool variables; and with respect to the argument,
          ctxt, to find temporary variables. Errors in parsing are reported to the
          argument, req, if not nil; otherwise aBlock is evaluated. The argument
          noPattern is a Boolean that is true if the the sourceStream does not
          contain a method header (i.e., for DoIts)."
 
  "Copied from superclass, use ScriptEncoder and give it a referenceWorld. This assumes worldLoading has been set to the right world this player belongs to. --bf 5/4/2010"
 
           | methNode repeatNeeded myStream parser s p |
          (req notNil and: [RequestAlternateSyntaxSetting signal and: [(sourceStream isKindOf: FileStream) not]])
                  ifTrue: [parser := self as: DialectParser]
                  ifFalse: [parser := self].
          myStream := sourceStream.
          [repeatNeeded := false.
    p := myStream position.
    s := myStream upToEnd.
    myStream position: p.
          parser init: myStream notifying: req failBlock: [^ aBlock value].
          doitFlag := noPattern.
          failBlock := aBlock.
          [methNode := parser method: noPattern context: ctxt
                                  encoder: (ScriptEncoder new init: class context: ctxt notifying: parser;
  referenceObject: ActiveWorld referenceWorld )]
                  on: ParserRemovedUnusedTemps
                  do:
+                         [ :ex | repeatNeeded := (requestor isKindOf: TextEditor) not.
-                         [ :ex | repeatNeeded := (requestor isKindOf: TextMorphEditor) not.
                          myStream := ReadStream on: requestor text string.
                          ex resume].
          repeatNeeded] whileTrue.
          encoder := failBlock := requestor := parseNode := nil. "break cycles & mitigate refct overflow"
    methNode sourceText: s.
          ^ methNode!

Item was changed:
  ----- Method: ScriptParser>>parse:class:noPattern:context:notifying:ifFail:for: (in category 'as yet unclassified') -----
  parse: sourceStream class: class noPattern: noPattern context: ctxt notifying: req ifFail: aBlock for: anInstance
 
           | methNode repeatNeeded myStream parser s p |
          (req notNil and: [RequestAlternateSyntaxSetting signal and: [(sourceStream isKindOf: FileStream) not]])
                  ifTrue: [parser := self as: DialectParser]
                  ifFalse: [parser := self].
          myStream := sourceStream.
          [repeatNeeded := false.
    p := myStream position.
    s := myStream upToEnd.
    myStream position: p.
          parser init: myStream notifying: req failBlock: [^ aBlock value].
          doitFlag := noPattern.
          failBlock := aBlock.
          [methNode := parser method: noPattern context: ctxt
                                  encoder: (ScriptEncoder new init: class context: ctxt notifying: parser;  referenceObject: (anInstance costume ifNotNil: [anInstance costume referenceWorld] ifNil: [ActiveWorld]))]
                  on: ParserRemovedUnusedTemps
                  do:
+                         [ :ex | repeatNeeded := (requestor isKindOf: TextEditor) not.
-                         [ :ex | repeatNeeded := (requestor isKindOf: TextMorphEditor) not.
                          myStream := ReadStream on: requestor text string.
                          ex resume].
          repeatNeeded] whileTrue.
          encoder := failBlock := requestor := parseNode := nil. "break cycles & mitigate refct overflow"
    methNode sourceText: s.
          ^ methNode!

Item was removed:
- ----- Method: StringHolder class>>windowColorSpecification (in category '*Etoys-Squeakland-window color') -----
- windowColorSpecification
- "Answer a WindowColorSpec object that declares my preference"
-
- ^ WindowColorSpec classSymbol: self name wording: 'Workspace' translatedNoop brightColor: #lightYellow pastelColor: #paleYellow helpMessage: 'A place for text in a window.' translatedNoop!

Item was removed:
- ----- Method: TranscriptStream class>>windowColorSpecification (in category '*Etoys-Squeakland-window color') -----
- windowColorSpecification
- "Answer a WindowColorSpec object that declares my preference"
-
- ^ WindowColorSpec classSymbol: self name wording: 'Transcript' translatedNoop brightColor: #lightOrange pastelColor: #paleOrange helpMessage: 'The system transcript' translatedNoop!