--- a/Form.st	Fri Nov 18 20:50:35 2016 +0000
+++ b/Form.st	Fri Nov 18 21:26:33 2016 +0000
@@ -514,58 +514,6 @@
     ^ nil
 ! !
 
-!Form class methodsFor:'fileIn/Out'!
-
-fromFile:filename
-    "create a new form taking the bits from a file on the default device.
-     WARNING:
-     Please do no longer use this, since it will not work
-     correctly in multi-display applications (creates the form on the
-     default Display).
-     Use #fromFile:on: and pass the device as argument."
-
-    <resource:#obsolete>
-
-    self obsoleteMethodWarning:'please use Image>>fromFile:'.
-    ^ self fromFile:filename on:Screen current
-
-    "Modified: 19.12.1996 / 13:59:09 / cg"
-!
-
-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 displays resolution, magnify or
-     shrink the picture (but only in integer magnification steps).
-     WARNING:
-     Please do no longer use this, since it will not work
-     correctly in multi-display applications (creates the form on the
-     default Display).
-     Use #fromFile:resolution:on: and pass the device as argument."
-
-    <resource:#obsolete>
-
-    self obsoleteMethodWarning:'please use Image>>fromFile:'.
-    ^ (self onDevice:Screen current) readFromFile:filename resolution:dpi
-
-    "Modified: 5.6.1997 / 21:06:03 / cg"
-!
-
-fromFile:filename resolution:dpi on:aDevice
-    "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 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
-
-    "Modified: 5.6.1997 / 21:05:54 / cg"
-! !
-
 !Form class methodsFor:'obsolete instance creation'!
 
 darkGreyFormOn:aDevice
@@ -1312,7 +1260,7 @@
         "/ 'Form [info]: create from data' printCR.
         ^ self class width:width height:height fromArray:data onDevice:aDevice
     ].
-    'Form [warning]: no bit data in #onDevice: - returning a black form.' infoPrintCR.
+    Logger warning:'no bit data in #onDevice: - returning a black form'.
     ^ (self class width:width height:height onDevice:aDevice) clear
 
     "Modified: / 27.7.1998 / 20:05:20 / cg"