--- a/Depth2Image.st	Tue May 29 19:19:59 2007 +0200
+++ b/Depth2Image.st	Tue May 29 19:20:02 2007 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libview' }"
 
 Image subclass:#Depth2Image
@@ -445,7 +444,7 @@
         ^ nil
     ].
 
-    form := Form width:width height:height depth:usedDeviceDepth on:aDevice.
+    form := Form width:width height:height depth:usedDeviceDepth onDevice:aDevice.
     form isNil ifTrue:[^ nil].
     form initGC.
 
@@ -460,8 +459,8 @@
 
     ^ form
 
-    "Created: 20.10.1995 / 22:05:10 / cg"
-    "Modified: 21.10.1995 / 19:30:26 / cg"
+    "Created: / 20-10-1995 / 22:05:10 / cg"
+    "Modified: / 29-05-2007 / 19:22:29 / cg"
 !
 
 greyImageAsTrueColorFormOn:aDevice
@@ -997,5 +996,5 @@
 !Depth2Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth2Image.st,v 1.48 2005-07-13 14:03:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth2Image.st,v 1.49 2007-05-29 17:20:02 cg Exp $'
 ! !