--- a/Form.st Fri Aug 12 01:41:18 1994 +0200
+++ b/Form.st Fri Aug 12 01:42:03 1994 +0200
@@ -26,7 +26,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview/Form.st,v 1.10 1994-08-05 01:14:10 claus Exp $
+$Header: /cvs/stx/stx/libview/Form.st,v 1.11 1994-08-11 23:41:38 claus Exp $
'!
!Form class methodsFor:'documentation'!
@@ -47,7 +47,7 @@
version
"
-$Header: /cvs/stx/stx/libview/Form.st,v 1.10 1994-08-05 01:14:10 claus Exp $
+$Header: /cvs/stx/stx/libview/Form.st,v 1.11 1994-08-11 23:41:38 claus Exp $
"
!
@@ -1884,7 +1884,7 @@
!
show
- ((FormView new model:self) extent:self extent) realize
+ ((FormView new model:self) extent:self extent) open
"ScrollBar scrollUpButtonForm show"
! !
@@ -1908,7 +1908,8 @@
"create a new form on device, aDevice and
initialize the pixels from the file filename;
the data in the file is assumed to be for dpi resolution;
- if it is different from the deisplays, magnify the picture"
+ if it is different from the displays resolution, magnify or
+ shrink the picture (but only in integer magnification steps)"
^ (self on:aDevice) readFromFile:filename resolution:dpi
!
@@ -1922,7 +1923,8 @@
fromFile:filename resolution:dpi
"create a new form taking the bits from a file on the default device
the data in the file is assumed to be for dpi resolution;
- if it is different from the deisplays, magnify the picture"
+ if it is different from the displays resolution, magnify or
+ shrink the picture (but only in integer magnification steps)"
^ (self on:Display) readFromFile:filename resolution:dpi
! !