--- a/Form.st	Fri Dec 20 21:21:35 1996 +0100
+++ b/Form.st	Sat Dec 21 12:41:32 1996 +0100
@@ -432,7 +432,10 @@
      default Display).
      Use #fromFile:resolution:on: and pass the devive as argument."
 
-    ^ self fromFile:filename resolution:dpi on:Screen current
+    self obsoleteMethodWarning:'please use Image>>fromFile:'.
+    ^ (self on:Screen current) readFromFile:filename resolution:dpi
+
+    "Modified: 21.12.1996 / 12:40:53 / cg"
 !
 
 fromFile:filename resolution:dpi on:aDevice
@@ -1668,6 +1671,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.65 1996-12-19 13:54:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.66 1996-12-21 11:41:32 cg Exp $'
 ! !
 Form initialize!