--- a/Form.st	Fri Apr 04 19:24:11 1997 +0200
+++ b/Form.st	Fri Apr 04 20:23:52 1997 +0200
@@ -164,6 +164,14 @@
     "Modified: 27.1.1997 / 16:08:50 / cg"
 !
 
+extent:ext depth:d on:aDevice
+    "create a new form on device, aDevice; depth is what device likes most"
+
+    ^ self width:ext width height:ext height depth:d on:aDevice
+
+    "Created: 4.4.1997 / 20:23:32 / cg"
+!
+
 extent:ext fromArray:data
     "create a new form, take dimensions from ext, bits from data.
      Smalltalk-80 compatibility."
@@ -185,6 +193,14 @@
     ^ (self extent:ext) offset:anOffset.
 !
 
+extent:ext on:aDevice
+    "create a new form on device, aDevice; depth is what device likes most"
+
+    ^ self width:ext width height:ext height on:aDevice
+
+    "Modified: 4.4.1997 / 20:23:19 / cg"
+!
+
 width:w height:h
     "create a new form on the default device"
 
@@ -1745,6 +1761,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.78 1997-04-02 18:16:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.79 1997-04-04 18:23:52 cg Exp $'
 ! !
 Form initialize!