[squeak-dev] The Trunk: EToys-mt.382.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Mar 4 09:43:20 UTC 2020


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!



More information about the Squeak-dev mailing list