--- a/Form.st	Fri Jul 20 14:19:41 2001 +0200
+++ b/Form.st	Fri Jul 20 14:39:57 2001 +0200
@@ -208,6 +208,15 @@
     "Modified: 4.4.1997 / 20:25:28 / cg"
 !
 
+extent:ext depth:d onDevice:aDevice
+    "create a new form on device, aDevice; depth is what device likes most"
+
+    ^ self width:ext x height:ext y depth:d onDevice:aDevice
+
+    "Created: 4.4.1997 / 20:23:32 / cg"
+    "Modified: 4.4.1997 / 20:25:28 / cg"
+!
+
 extent:ext fromArray:data
     "create a new form, take dimensions from ext, bits from data.
      Smalltalk-80 compatibility."
@@ -230,6 +239,14 @@
     "Created: 10.4.1997 / 15:36:31 / cg"
 !
 
+extent:ext fromArray:data offset:offs onDevice:aDevice
+    "create a new form, take dimensions from ext, bits from data."
+
+    ^ self width:(ext x) height:(ext y) offset:offs fromArray:data onDevice:aDevice
+
+    "Created: 10.4.1997 / 15:36:31 / cg"
+!
+
 extent:ext fromArray:data on:aDevice
     "create a new form, take dimensions from ext, bits from data."
 
@@ -239,6 +256,15 @@
     "Modified: 10.4.1997 / 15:36:04 / cg"
 !
 
+extent:ext fromArray:data onDevice:aDevice
+    "create a new form, take dimensions from ext, bits from data."
+
+    ^ self width:(ext x) height:(ext y) fromArray:data onDevice:aDevice
+
+    "Created: 10.4.1997 / 15:34:34 / cg"
+    "Modified: 10.4.1997 / 15:36:04 / cg"
+!
+
 extent:ext offset:anOffset
     "create a new, cleared form, take dimensions from ext.
      Smalltalk-80 compatibility"
@@ -254,6 +280,14 @@
     "Modified: 4.4.1997 / 20:25:07 / cg"
 !
 
+extent:ext onDevice:aDevice
+    "create a new form on device, aDevice; depth is what device likes most"
+
+    ^ self width:ext x height:ext y onDevice:aDevice
+
+    "Modified: 4.4.1997 / 20:25:07 / cg"
+!
+
 width:w height:h
     "create a new form on the default device"
 
@@ -284,6 +318,14 @@
     "Modified: 18.1.1997 / 18:26:03 / cg"
 !
 
+width:w height:h depth:d onDevice:aDevice
+    "create a new form with depth d on device, aDevice"
+
+    ^ (self onDevice:aDevice) width:w height:h depth:d
+
+    "Modified: 18.1.1997 / 18:26:03 / cg"
+!
+
 width:w height:h fromArray:anArray
     "create a new form on the default device"
 
@@ -304,6 +346,15 @@
     "Modified: 18.1.1997 / 18:26:24 / cg"
 !
 
+width:w height:h fromArray:anArray onDevice:aDevice
+    "create a new form on device, aDevice and
+     initialize the pixels from anArray"
+
+    ^ (self onDevice:aDevice) width:w height:h fromArray:anArray
+
+    "Modified: 18.1.1997 / 18:26:24 / cg"
+!
+
 width:w height:h offset:offs fromArray:anArray
     "create a new form on the default device"
 
@@ -323,12 +374,29 @@
     "Created: 10.4.1997 / 15:35:07 / cg"
 !
 
+width:w height:h offset:offs fromArray:anArray onDevice:aDevice
+    "create a new form on the default device"
+
+    ^ (self onDevice:aDevice) width:w height:h offset:offs fromArray:anArray
+
+    "Modified: 18.1.1997 / 18:26:28 / cg"
+    "Created: 10.4.1997 / 15:35:07 / cg"
+!
+
 width:w height:h on:aDevice
     "create a new form on device, aDevice; depth is what device likes most"
 
     ^ (self onDevice:aDevice) width:w height:h
 
     "Modified: 18.1.1997 / 18:26:31 / cg"
+!
+
+width:w height:h onDevice:aDevice
+    "create a new form on device, aDevice; depth is what device likes most"
+
+    ^ (self onDevice:aDevice) width:w height:h
+
+    "Modified: 18.1.1997 / 18:26:31 / cg"
 ! !
 
 !Form class methodsFor:'Compatibility - ST80'!
@@ -2071,6 +2139,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.115 2001-05-17 14:51:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.116 2001-07-20 12:39:57 cg Exp $'
 ! !
 Form initialize!