--- a/Form.st	Wed May 30 13:43:02 2007 +0200
+++ b/Form.st	Wed May 30 13:54:52 2007 +0200
@@ -245,7 +245,7 @@
     "create a new form, take dimensions from ext, bits from data."
 
     self obsoleteMethodWarning:'use #extent:fromArray:offset:onDevice:'.
-    ^ self width:(ext x) height:(ext y) offset:offs fromArray:data on:aDevice
+    ^ self width:(ext x) height:(ext y) offset:offs fromArray:data onDevice:aDevice
 
     "Created: / 10-04-1997 / 15:36:31 / cg"
     "Modified: / 27-05-2007 / 12:42:26 / cg"
@@ -378,8 +378,7 @@
     |scr|
 
     Screen notNil ifTrue:[scr := Screen current].
-    ^ self width:w height:h offset:offs fromArray:anArray on:scr
-
+    ^ self width:w height:h offset:offs fromArray:anArray onDevice:scr
 !
 
 width:w height:h offset:offs fromArray:anArray on:aDevice
@@ -2188,7 +2187,7 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.139 2007-05-30 11:42:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.140 2007-05-30 11:54:52 stefan Exp $'
 ! !
 
 Form initialize!