--- a/Depth1Image.st	Tue May 29 19:20:06 2007 +0200
+++ b/Depth1Image.st	Tue May 29 19:32:27 2007 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libview' }"
 
 Image subclass:#Depth1Image
@@ -602,7 +601,7 @@
 
     "all colors are available, this is easy now"
 
-    f := Form width:width height:height fromArray:self bits on:aDevice.
+    f := Form width:width height:height fromArray:self bits onDevice:aDevice.
     f notNil ifTrue:[
         f colorMap:(Array with:color0 with:color1).
 
@@ -615,6 +614,8 @@
         ]
     ].
     ^ f
+
+    "Modified: / 29-05-2007 / 19:32:09 / cg"
 ! !
 
 !Depth1Image methodsFor:'queries'!
@@ -771,5 +772,5 @@
 !Depth1Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.54 2005-08-05 12:45:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.55 2007-05-29 17:32:27 cg Exp $'
 ! !