# HG changeset patch
# User ca
# Date 855881401 -3600
# Node ID 45859f8a204487162ed6708ffd58190293f05a9b
# Parent  54077a8586f00ccd514e8f683e74b3ba6b4a0063
checkin from browser

diff -r 54077a8586f0 -r 45859f8a2044 LayoutFrame.st
--- a/LayoutFrame.st	Fri Feb 14 01:48:12 1997 +0100
+++ b/LayoutFrame.st	Fri Feb 14 01:50:01 1997 +0100
@@ -127,6 +127,21 @@
 "
 ! !
 
+!LayoutFrame class methodsFor:'instance creation'!
+
+leftFraction:lF offset:lO rightFraction:rF offset:rO topFraction:tF offset:tO bottomFraction:bF offset:bO
+    "create a new layoutFrame"
+
+    ^ self new
+        leftFraction:lF offset:lO 
+        rightFraction:rF offset:rO 
+        topFraction:tF offset:tO 
+        bottomFraction:bF offset:bO
+
+
+
+! !
+
 !LayoutFrame methodsFor:'accessing'!
 
 bottomFraction
@@ -386,5 +401,5 @@
 !LayoutFrame class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/LayoutFrame.st,v 1.17 1997-02-14 00:48:12 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/LayoutFrame.st,v 1.18 1997-02-14 00:50:01 ca Exp $'
 ! !
diff -r 54077a8586f0 -r 45859f8a2044 LayoutFrm.st
--- a/LayoutFrm.st	Fri Feb 14 01:48:12 1997 +0100
+++ b/LayoutFrm.st	Fri Feb 14 01:50:01 1997 +0100
@@ -127,6 +127,21 @@
 "
 ! !
 
+!LayoutFrame class methodsFor:'instance creation'!
+
+leftFraction:lF offset:lO rightFraction:rF offset:rO topFraction:tF offset:tO bottomFraction:bF offset:bO
+    "create a new layoutFrame"
+
+    ^ self new
+        leftFraction:lF offset:lO 
+        rightFraction:rF offset:rO 
+        topFraction:tF offset:tO 
+        bottomFraction:bF offset:bO
+
+
+
+! !
+
 !LayoutFrame methodsFor:'accessing'!
 
 bottomFraction
@@ -386,5 +401,5 @@
 !LayoutFrame class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/LayoutFrm.st,v 1.17 1997-02-14 00:48:12 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/LayoutFrm.st,v 1.18 1997-02-14 00:50:01 ca Exp $'
 ! !