--- 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!