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!