--- a/LayoutFrame.st	Wed Oct 14 16:07:15 2009 +0200
+++ b/LayoutFrame.st	Wed Oct 14 19:01:19 2009 +0200
@@ -130,6 +130,17 @@
 
 !LayoutFrame class methodsFor:'instance creation'!
 
+fractions:fractionRectangle offsets:offsetRectangle
+    "create a new layoutFrame"
+
+    ^ self new
+        fractions:fractionRectangle offsets:offsetRectangle
+
+    "
+     LayoutFrame fractions:(0 @ 0 corner:1.0 @ 1.0) offsets:(0 @ 0 corner:0 @ 0)
+    "
+!
+
 inset:pixels
     "create a new layoutFrame which insets the child by some pixels"
 
@@ -254,6 +265,20 @@
     bottomOffset := something.
 !
 
+fractions:fractionRectangle offsets:offsetRectangle
+    "LayoutFrame fractions:(0 @ 0 corner:1.0 @ 1.0) offsets:(0 @ 0 corner:0 @ 0)"
+
+    self
+        leftFraction:(fractionRectangle left)
+        offset:(offsetRectangle left)
+        rightFraction:(fractionRectangle right)  
+        offset:(offsetRectangle right)
+        topFraction:(fractionRectangle top)
+        offset:(offsetRectangle top)
+        bottomFraction:(fractionRectangle bottom)
+        offset:(offsetRectangle bottom)
+!
+
 horizontalInset:aNumber
     "setup the offsets for insetting horizontally the frame aNumber pixels at all sides"
 
@@ -501,5 +526,9 @@
 !LayoutFrame class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/LayoutFrame.st,v 1.33 2009-03-23 19:48:40 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/LayoutFrame.st,v 1.34 2009-10-14 17:01:19 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libview2/LayoutFrame.st,v 1.34 2009-10-14 17:01:19 cg Exp $'
 ! !