--- a/Form.st Wed Mar 21 16:03:02 2018 +0100
+++ b/Form.st Tue Mar 27 13:28:58 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -896,8 +894,13 @@
^nil
!
-magnify:aRectangle by:scale smoothing:smooth
- ^ ((Image fromSubForm:aRectangle in:self) magnifiedBy:scale) asFormOn:device.
+magnify:aRectangle by:scale smoothing:smoothBoolean
+ "Squeak compatibility:
+ a little inefficient hack: convert to image, then magnify,
+ then convert back"
+
+ ^ ((Image fromSubForm:aRectangle in:self)
+ magnifiedBy:scale smooth:smoothBoolean) asFormOn:device.
!
pixelAt:aPoint