--- a/Form.st	Sat Jan 25 12:31:44 1997 +0100
+++ b/Form.st	Mon Jan 27 16:09:04 1997 +0100
@@ -154,6 +154,16 @@
     ^ newForm
 !
 
+extent:ext depth:d
+    "create a new, cleared form.
+     Smalltalk-80 compatibility"
+
+    ^ self width:ext x height:ext y depth:d
+
+    "Created: 27.1.1997 / 16:08:37 / cg"
+    "Modified: 27.1.1997 / 16:08:50 / cg"
+!
+
 extent:ext fromArray:data
     "create a new form, take dimensions from ext, bits from data.
      Smalltalk-80 compatibility."
@@ -1681,6 +1691,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.68 1997-01-18 18:08:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.69 1997-01-27 15:09:04 cg Exp $'
 ! !
 Form initialize!