equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
894 ^nil |
896 ^nil |
895 ! |
897 ! |
896 |
898 |
897 magnify:aRectangle by:scale smoothing:smooth |
899 magnify:aRectangle by:scale smoothing:smooth |
898 ^ ((Image fromSubForm:aRectangle in:self) magnifiedBy:scale) asFormOn:device. |
900 ^ ((Image fromSubForm:aRectangle in:self) magnifiedBy:scale) asFormOn:device. |
|
901 ! |
|
902 |
|
903 pixelAt:aPoint |
|
904 ^ self valueAt:aPoint |
|
905 ! |
|
906 |
|
907 pixelAt:aPoint put:aPixelValue |
|
908 ^ self valueAt:aPoint put:aPixelValue |
899 ! ! |
909 ! ! |
900 |
910 |
901 !Form methodsFor:'accessing'! |
911 !Form methodsFor:'accessing'! |
902 |
912 |
903 bits |
913 bits |