Marcel Taeumel uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-mt.315.mcz

==================== Summary ====================

Name: Graphics-mt.315
Author: mt
Time: 25 August 2015, 10:45:30.972 am
UUID: 60541125-855a-aa45-b942-241874613194
Ancestors: Graphics-mt.314

Let clients specify smoothing factor when scaling forms.

=============== Diff against Graphics-mt.314 ===============

Item was changed:
  ----- Method: Form>>scaledToSize: (in category 'scaling, rotation') -----
  scaledToSize: numberOrPoint
  
+ 	^ self scaledToSize: numberOrPoint smoothing: 2!
- 	| scale newExtent |
- 	newExtent := numberOrPoint asPoint.
- 	
- 	newExtent = self extent ifTrue: [^ self copy].
- 	
- 	(self height isZero or: [self width isZero])
- 		ifTrue: [^ self species extent: newExtent depth: self depth].
- 		
- 	scale := newExtent x / self width min: newExtent y / self height.
- 	^ self magnify: self boundingBox by: scale smoothing: 2!

Item was added:
+ ----- Method: Form>>scaledToSize:smoothing: (in category 'scaling, rotation') -----
+ scaledToSize: numberOrPoint smoothing: factor
+ 
+ 	| scale newExtent |
+ 	newExtent := numberOrPoint asPoint.
+ 	
+ 	newExtent = self extent ifTrue: [^ self copy].
+ 	
+ 	(self height isZero or: [self width isZero])
+ 		ifTrue: [^ self species extent: newExtent depth: self depth].
+ 		
+ 	scale := newExtent x / self width min: newExtent y / self height.
+ 	^ self magnify: self boundingBox by: scale smoothing: factor!