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