--- a/Form.st	Mon Jul 27 20:03:47 1998 +0200
+++ b/Form.st	Mon Jul 27 20:05:53 1998 +0200
@@ -1154,16 +1154,16 @@
     "added for protocol compatiblity with Image"
 
     aDevice == device ifTrue:[
-	depth == 1 ifTrue:[
-	    ^ self
-	].
+        depth == 1 ifTrue:[
+            ^ self
+        ].
     ].
     (depth == 1) ifTrue:[
-	^ self on:aDevice
+        ^ self onDevice:aDevice
     ].
     ^ nil
 
-    "Modified: 23.4.1996 / 10:18:42 / cg"
+    "Modified: / 27.7.1998 / 20:04:37 / cg"
 !
 
 on:aDevice
@@ -1190,14 +1190,17 @@
     "create a new form ..."
 
     data notNil ifTrue:[
+        "/ 'Form [info]: create from data' printCR.
         ^ self class width:width height:height fromArray:data on:aDevice
     ].
     fileName notNil ifTrue:[
+        "/ 'Form [info]: create from file' printCR.
         ^ self class fromFile:fileName on:aDevice
     ].
+    'Form [warning]: no bit data in #onDevice: - returning a black form.' infoPrintCR.
     ^ (self class width:width height:height on:aDevice) clear
 
-    "Modified: 5.6.1997 / 21:05:08 / cg"
+    "Modified: / 27.7.1998 / 20:05:20 / cg"
 ! !
 
 !Form methodsFor:'image manipulations'!
@@ -1847,6 +1850,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.89 1998-03-04 19:29:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.90 1998-07-27 18:05:53 cg Exp $'
 ! !
 Form initialize!