--- a/Form.st	Thu May 17 16:32:10 2001 +0200
+++ b/Form.st	Thu May 17 16:51:00 2001 +0200
@@ -522,6 +522,8 @@
      default Display).
      Use #fromFile:on: and pass the devive as argument."
 
+    <resource:#obsolete>
+
     self obsoleteMethodWarning:'please use Image>>fromFile:'.
     ^ self fromFile:filename on:Screen current
 
@@ -532,6 +534,8 @@
     "create a new form on device, aDevice and
      initialize the pixels from the file filename"
 
+    <resource:#obsolete>
+
     self obsoleteMethodWarning:'please use Image>>fromFile:'.
     ^ (self onDevice:aDevice) readFromFile:filename
 
@@ -549,6 +553,8 @@
      default Display).
      Use #fromFile:resolution:on: and pass the devive as argument."
 
+    <resource:#obsolete>
+
     self obsoleteMethodWarning:'please use Image>>fromFile:'.
     ^ (self onDevice:Screen current) readFromFile:filename resolution:dpi
 
@@ -562,6 +568,8 @@
      if it is different from the displays resolution, magnify or
      shrink the picture (but only in integer magnification steps)"
 
+    <resource:#obsolete>
+
     self obsoleteMethodWarning:'please use Image>>fromFile:'.
     ^ (self onDevice:aDevice) readFromFile:filename resolution:dpi
 
@@ -576,6 +584,8 @@
      default Display).
      Use #fromFile:on: and pass the devive as argument."
 
+    <resource:#obsolete>
+
     self obsoleteMethodWarning:'please use Image>>fromFile:'.
     ^ self fromFile:fileName on:Screen current
 
@@ -1291,6 +1301,8 @@
     "/ operating on a model.
     "/ Please use #onDevice: to avoid confusion.
 
+    <resource:#obsolete>
+
     self obsoleteMethodWarning:'use #onDevice:'.
     ^ self onDevice:aDevice
 
@@ -1718,6 +1730,8 @@
      the actual bits and  will therefore no longer depend on the file being present.
      "
 
+    <resource:#obsolete>
+
     |pathName|
 
     "/ this method is a historic leftover; it uses
@@ -2057,6 +2071,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.114 2000-10-25 13:05:59 martin Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.115 2001-05-17 14:51:00 stefan Exp $'
 ! !
 Form initialize!