The Trunk: EToys-nice.332.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: EToys-nice.332.mcz

commits-2
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!