Nicolas Cellier uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-nice.332.mcz==================== Summary ====================
Name: EToys-nice.332
Author: nice
Time: 6 June 2018, 11:22:10.219686 pm
UUID: 9c127614-fa17-41f9-b154-9ba87375ab12
Ancestors: EToys-mt.331
Fix Class>>#addInstVarNames:
(is unsent, but was trying to add the already present vars twice)
Simplify some pattern:
temporaries ifNotNil: [temporaries] ifNil: [#()]
->
temporaries ifNil: [#()]
(should be an automatic rewrite rule)
Remove some unused selectors:
- BalloonBuffer class>>#mew: (mew n'est pas mieux que new)
- BitEditor>>#locateMagnifiedView:scale: (has been moved to Rectangle class)
- Scanner>>initScanner (superseded by initialize)
=============== Diff against EToys-mt.331 ===============
Item was removed:
- ----- Method: BalloonBuffer class>>mew: (in category '*Etoys-Squeakland-instance creation') -----
- mew: n
- ^self new: (n max: 256)!
Item was removed:
- ----- Method: BitEditor class>>locateMagnifiedView:scale: (in category '*Etoys-Squeakland-private') -----
- locateMagnifiedView: aForm scale: scaleFactor
- "Answer a rectangle at the location where the scaled view of the form,
- aForm, should be displayed."
-
- ^ Rectangle originFromUser: (aForm extent * scaleFactor + (0@50)).
- !
Item was changed:
----- Method: BlockNode>>getAllChildren (in category '*Etoys-Squeakland-Tweak-Kedama') -----
getAllChildren
+ ^ arguments, statements, (temporaries ifNil: [#()]).
- ^ arguments, statements, (temporaries ifNotNil: [temporaries] ifNil: [#()]).
!
Item was changed:
----- Method: Class>>addInstVarNames: (in category '*Etoys-Squeakland-instance variables') -----
addInstVarNames: aCollection
| newInstVarString |
+ newInstVarString := ''.
- newInstVarString := self instanceVariablesString.
aCollection do:
[:varName | (self instVarNames includes: varName) ifFalse: [newInstVarString := newInstVarString , ' ' , varName]].
^ self addInstVarName: newInstVarString
!
Item was changed:
----- Method: MethodNode>>getAllChildren (in category '*Etoys-Squeakland-Tweak-Kedama') -----
getAllChildren
+ ^ arguments, (Array with: block), (temporaries ifNil: [#()]).
- ^ arguments, (Array with: block), (temporaries ifNotNil: [temporaries] ifNil: [#()]).
!
Item was removed:
- ----- Method: Scanner>>initScanner (in category '*Etoys-Squeakland-initialize-release') -----
- initScanner
-
- buffer := WriteStream on: (String new: 40).
- typeTable := TypeTable!