[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
|