--- a/Depth1Image.st	Thu Jul 30 11:59:33 1998 +0200
+++ b/Depth1Image.st	Thu Jul 30 15:08:37 1998 +0200
@@ -264,11 +264,18 @@
     f notNil ifTrue:[
         f colorMap:(Array with:(self colorFromValue:0)
                           with:(self colorFromValue:1)).
+
+        device isNil ifTrue:[
+            deviceForm isNil ifTrue:[
+                device := aDevice.
+                deviceForm := f.
+            ]
+        ]
     ].
     ^ f
 
-    "Created: 14.6.1996 / 15:20:00 / cg"
-    "Modified: 24.4.1997 / 17:50:43 / cg"
+    "Created: / 14.6.1996 / 15:20:00 / cg"
+    "Modified: / 30.7.1998 / 14:42:46 / cg"
 !
 
 greyImageAsFormOn:aDevice
@@ -746,5 +753,5 @@
 !Depth1Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.35 1998-07-28 20:24:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.36 1998-07-30 13:08:37 cg Exp $'
 ! !