--- a/LayoutFrame.st	Sat May 17 16:50:37 2014 +0200
+++ b/LayoutFrame.st	Sat May 17 17:07:05 2014 +0200
@@ -196,6 +196,16 @@
         bottomFraction:bF offset:0
 !
 
+leftFrame:pixels
+    "create a new layoutFrame which makes the child take a fixed frame at the left"
+
+    ^ self
+        leftFraction:0 offset:0
+        rightFraction:0 offset:pixels
+        topFraction:0 offset:0 
+        bottomFraction:1 offset:0
+!
+
 leftOffset:lO rightOffset:rO topOffset:tO bottomOffset:bO
     "create a new layoutFrame"
 
@@ -256,6 +266,16 @@
         bottomFraction:bottomFraction offset:bottomOffset 
 !
 
+rightFrame:pixels
+    "create a new layoutFrame which makes the child take a fixed frame at the right"
+
+    ^ self
+        leftFraction:0 offset:0
+        rightFraction:1 offset:pixels negated
+        topFraction:0 offset:0 
+        bottomFraction:1 offset:0
+!
+
 topFrame:pixels
     "create a new layoutFrame which makes the child take a fixed frame at the top"
 
@@ -605,10 +625,10 @@
 !LayoutFrame class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/LayoutFrame.st,v 1.40 2014-05-17 14:50:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/LayoutFrame.st,v 1.41 2014-05-17 15:07:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/LayoutFrame.st,v 1.40 2014-05-17 14:50:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/LayoutFrame.st,v 1.41 2014-05-17 15:07:05 cg Exp $'
 ! !