# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 833129439 -7200
# Node ID d500c08871abce5fd7f7d4b1a7330370cb243b80
# Parent  434f1bc7836252f876fb70da97052773a43f7ff2
added inset methods

diff -r 434f1bc78362 -r d500c08871ab LayoutFrame.st
--- a/LayoutFrame.st	Sun May 26 13:28:16 1996 +0200
+++ b/LayoutFrame.st	Sun May 26 18:50:39 1996 +0200
@@ -148,6 +148,14 @@
     bottomOffset := o
 !
 
+bottomInset:pixels
+    "set bottomOffset for an inset at the bottom"
+
+    bottomOffset := pixels negated.
+
+    "Created: 26.5.1996 / 17:38:30 / cg"
+!
+
 bottomOffset
     "return bottomOffset"
 
@@ -160,6 +168,26 @@
     bottomOffset := something.
 !
 
+horizontalInset:aNumber
+    "setup the offsets for insetting horizontally the frame aNumber pixels
+     at all sides"
+
+    leftOffset := aNumber.
+    rightOffset := aNumber negated.
+
+    "Created: 26.5.1996 / 17:39:35 / cg"
+!
+
+inset:aNumber
+    "setup the offsets for insetting the frame aNumber pixels
+     at all sides"
+
+    topOffset := leftOffset := aNumber.
+    rightOffset := bottomOffset := aNumber negated.
+
+    "Created: 26.5.1996 / 17:36:49 / cg"
+!
+
 rightFraction
     "return rightFraction"
 
@@ -179,6 +207,14 @@
     rightOffset := o
 !
 
+rightInset:pixels
+    "set rightOffset for an inset at the right"
+
+    rightOffset := pixels negated.
+
+    "Created: 26.5.1996 / 17:38:38 / cg"
+!
+
 rightOffset
     "return rightOffset"
 
@@ -189,6 +225,16 @@
     "set rightOffset"
 
     rightOffset := something.
+!
+
+verticalInset:aNumber
+    "setup the offsets for insetting vertically the frame aNumber pixels
+     at all sides"
+
+    topOffset := aNumber.
+    bottomOffset := aNumber negated.
+
+    "Created: 26.5.1996 / 17:39:50 / cg"
 ! !
 
 !LayoutFrame methodsFor:'converting'!
@@ -318,5 +364,5 @@
 !LayoutFrame class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/LayoutFrame.st,v 1.14 1996-05-08 19:06:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/LayoutFrame.st,v 1.15 1996-05-26 16:50:30 cg Exp $'
 ! !
diff -r 434f1bc78362 -r d500c08871ab LayoutFrm.st
--- a/LayoutFrm.st	Sun May 26 13:28:16 1996 +0200
+++ b/LayoutFrm.st	Sun May 26 18:50:39 1996 +0200
@@ -148,6 +148,14 @@
     bottomOffset := o
 !
 
+bottomInset:pixels
+    "set bottomOffset for an inset at the bottom"
+
+    bottomOffset := pixels negated.
+
+    "Created: 26.5.1996 / 17:38:30 / cg"
+!
+
 bottomOffset
     "return bottomOffset"
 
@@ -160,6 +168,26 @@
     bottomOffset := something.
 !
 
+horizontalInset:aNumber
+    "setup the offsets for insetting horizontally the frame aNumber pixels
+     at all sides"
+
+    leftOffset := aNumber.
+    rightOffset := aNumber negated.
+
+    "Created: 26.5.1996 / 17:39:35 / cg"
+!
+
+inset:aNumber
+    "setup the offsets for insetting the frame aNumber pixels
+     at all sides"
+
+    topOffset := leftOffset := aNumber.
+    rightOffset := bottomOffset := aNumber negated.
+
+    "Created: 26.5.1996 / 17:36:49 / cg"
+!
+
 rightFraction
     "return rightFraction"
 
@@ -179,6 +207,14 @@
     rightOffset := o
 !
 
+rightInset:pixels
+    "set rightOffset for an inset at the right"
+
+    rightOffset := pixels negated.
+
+    "Created: 26.5.1996 / 17:38:38 / cg"
+!
+
 rightOffset
     "return rightOffset"
 
@@ -189,6 +225,16 @@
     "set rightOffset"
 
     rightOffset := something.
+!
+
+verticalInset:aNumber
+    "setup the offsets for insetting vertically the frame aNumber pixels
+     at all sides"
+
+    topOffset := aNumber.
+    bottomOffset := aNumber negated.
+
+    "Created: 26.5.1996 / 17:39:50 / cg"
 ! !
 
 !LayoutFrame methodsFor:'converting'!
@@ -318,5 +364,5 @@
 !LayoutFrame class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/LayoutFrm.st,v 1.14 1996-05-08 19:06:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/LayoutFrm.st,v 1.15 1996-05-26 16:50:30 cg Exp $'
 ! !
diff -r 434f1bc78362 -r d500c08871ab LayoutOrg.st
--- a/LayoutOrg.st	Sun May 26 13:28:16 1996 +0200
+++ b/LayoutOrg.st	Sun May 26 18:50:39 1996 +0200
@@ -180,6 +180,15 @@
     topFraction := newTop.
 !
 
+leftInset:pixels
+    "set leftOffset for an inset at the left"
+
+    leftOffset := pixels.
+
+    "Created: 26.5.1996 / 17:38:55 / cg"
+    "Modified: 26.5.1996 / 17:42:16 / cg"
+!
+
 leftOffset
     "return leftOffset"
 
@@ -218,6 +227,15 @@
     topOffset := o
 !
 
+topInset:pixels
+    "set topOffset for an inset at the top"
+
+    topOffset := pixels.
+
+    "Created: 26.5.1996 / 17:39:00 / cg"
+    "Modified: 26.5.1996 / 17:42:12 / cg"
+!
+
 topOffset
     "return topOffset"
 
@@ -337,5 +355,5 @@
 !LayoutOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/LayoutOrg.st,v 1.13 1996-05-08 19:07:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/LayoutOrg.st,v 1.14 1996-05-26 16:50:39 cg Exp $'
 ! !
diff -r 434f1bc78362 -r d500c08871ab LayoutOrigin.st
--- a/LayoutOrigin.st	Sun May 26 13:28:16 1996 +0200
+++ b/LayoutOrigin.st	Sun May 26 18:50:39 1996 +0200
@@ -180,6 +180,15 @@
     topFraction := newTop.
 !
 
+leftInset:pixels
+    "set leftOffset for an inset at the left"
+
+    leftOffset := pixels.
+
+    "Created: 26.5.1996 / 17:38:55 / cg"
+    "Modified: 26.5.1996 / 17:42:16 / cg"
+!
+
 leftOffset
     "return leftOffset"
 
@@ -218,6 +227,15 @@
     topOffset := o
 !
 
+topInset:pixels
+    "set topOffset for an inset at the top"
+
+    topOffset := pixels.
+
+    "Created: 26.5.1996 / 17:39:00 / cg"
+    "Modified: 26.5.1996 / 17:42:12 / cg"
+!
+
 topOffset
     "return topOffset"
 
@@ -337,5 +355,5 @@
 !LayoutOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.13 1996-05-08 19:07:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.14 1996-05-26 16:50:39 cg Exp $'
 ! !