--- a/Form.st	Fri Mar 28 16:09:53 1997 +0100
+++ b/Form.st	Fri Mar 28 16:12:39 1997 +0100
@@ -1113,6 +1113,15 @@
     ^ (self class width:width height:height on:aDevice) clear
 
     "Modified: 6.3.1997 / 15:47:25 / cg"
+!
+
+onDevice:aDevice
+    "associate the receiver to a device (i.e. download its bits);
+     return a deviceForm (possibly different from the receiver)."
+
+    ^ self on:aDevice
+
+    "Created: 28.3.1997 / 16:12:24 / cg"
 ! !
 
 !Form methodsFor:'image manipulations'!
@@ -1722,6 +1731,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.75 1997-03-19 12:57:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.76 1997-03-28 15:12:39 cg Exp $'
 ! !
 Form initialize!