[squeak-dev] The Trunk: EToys-nice.332.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jun 6 21:22:56 UTC 2018


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 at 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!



More information about the Squeak-dev mailing list