Form.st
changeset 58 721460c8fd3a
parent 54 29a6b2f8e042
child 71 6a42b2b115f8
--- 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
 ! !