checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 08 May 1996 21:07:16 +0200
changeset 242 5b7f59450c65
parent 241 30383e124f8c
child 243 dfbfd389ec48
checkin from browser
AlignOrg.st
AlignmentOrigin.st
LayoutFrame.st
LayoutFrm.st
LayoutOrg.st
LayoutOrigin.st
--- a/AlignOrg.st	Wed May 08 13:53:17 1996 +0200
+++ b/AlignOrg.st	Wed May 08 21:07:16 1996 +0200
@@ -233,7 +233,7 @@
     topAlignmentFraction ~~ 0 ifTrue:[
         y := y - (prefRect height * topAlignmentFraction)
     ].
-    ^ Rectangle origin:x@y extent:prefRect extent
+    ^ Rectangle left:x top:y extent:prefRect extent
 
     "
      |superRect aO|
@@ -247,11 +247,11 @@
      aO rectangleRelativeTo:superRect preferred:(0@0 corner:30@30) 
     "
 
-    "Modified: 27.4.1996 / 14:53:56 / cg"
+    "Modified: 8.5.1996 / 20:57:09 / cg"
 ! !
 
 !AlignmentOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AlignOrg.st,v 1.12 1996-04-27 17:51:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AlignOrg.st,v 1.13 1996-05-08 19:07:16 cg Exp $'
 ! !
--- a/AlignmentOrigin.st	Wed May 08 13:53:17 1996 +0200
+++ b/AlignmentOrigin.st	Wed May 08 21:07:16 1996 +0200
@@ -233,7 +233,7 @@
     topAlignmentFraction ~~ 0 ifTrue:[
         y := y - (prefRect height * topAlignmentFraction)
     ].
-    ^ Rectangle origin:x@y extent:prefRect extent
+    ^ Rectangle left:x top:y extent:prefRect extent
 
     "
      |superRect aO|
@@ -247,11 +247,11 @@
      aO rectangleRelativeTo:superRect preferred:(0@0 corner:30@30) 
     "
 
-    "Modified: 27.4.1996 / 14:53:56 / cg"
+    "Modified: 8.5.1996 / 20:57:09 / cg"
 ! !
 
 !AlignmentOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.12 1996-04-27 17:51:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.13 1996-05-08 19:07:16 cg Exp $'
 ! !
--- a/LayoutFrame.st	Wed May 08 13:53:17 1996 +0200
+++ b/LayoutFrame.st	Wed May 08 21:07:16 1996 +0200
@@ -298,7 +298,7 @@
     bottomFraction notNil ifTrue:[
         y2 := y2 + (superRectangle height * bottomFraction)
     ].
-    ^ Rectangle origin:x1@y1 corner:x2@y2 
+    ^ Rectangle left:x1 top:y1 right:x2 bottom:y2
 
     "
      |superRect lF|
@@ -312,11 +312,11 @@
      lF rectangleRelativeTo:superRect preferred:(0@0 corner:30@30) 
     "
 
-    "Modified: 27.4.1996 / 14:54:03 / cg"
+    "Modified: 8.5.1996 / 20:50:45 / cg"
 ! !
 
 !LayoutFrame class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/LayoutFrame.st,v 1.13 1996-04-27 17:50:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/LayoutFrame.st,v 1.14 1996-05-08 19:06:47 cg Exp $'
 ! !
--- a/LayoutFrm.st	Wed May 08 13:53:17 1996 +0200
+++ b/LayoutFrm.st	Wed May 08 21:07:16 1996 +0200
@@ -298,7 +298,7 @@
     bottomFraction notNil ifTrue:[
         y2 := y2 + (superRectangle height * bottomFraction)
     ].
-    ^ Rectangle origin:x1@y1 corner:x2@y2 
+    ^ Rectangle left:x1 top:y1 right:x2 bottom:y2
 
     "
      |superRect lF|
@@ -312,11 +312,11 @@
      lF rectangleRelativeTo:superRect preferred:(0@0 corner:30@30) 
     "
 
-    "Modified: 27.4.1996 / 14:54:03 / cg"
+    "Modified: 8.5.1996 / 20:50:45 / cg"
 ! !
 
 !LayoutFrame class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/LayoutFrm.st,v 1.13 1996-04-27 17:50:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/LayoutFrm.st,v 1.14 1996-05-08 19:06:47 cg Exp $'
 ! !
--- a/LayoutOrg.st	Wed May 08 13:53:17 1996 +0200
+++ b/LayoutOrg.st	Wed May 08 21:07:16 1996 +0200
@@ -319,7 +319,7 @@
     topFraction notNil ifTrue:[
         y := y + (superRectangle height * topFraction)
     ].
-    ^ Rectangle origin:x@y extent:prefRect extent
+    ^ Rectangle left:x top:y extent:prefRect extent
 
     "
      |superRect lO|
@@ -331,11 +331,11 @@
      lO rectangleRelativeTo:superRect preferred:(0@0 corner:30@30)
     "
 
-    "Modified: 27.4.1996 / 14:54:06 / cg"
+    "Modified: 8.5.1996 / 20:58:53 / cg"
 ! !
 
 !LayoutOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/LayoutOrg.st,v 1.12 1996-04-27 17:51:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/LayoutOrg.st,v 1.13 1996-05-08 19:07:11 cg Exp $'
 ! !
--- a/LayoutOrigin.st	Wed May 08 13:53:17 1996 +0200
+++ b/LayoutOrigin.st	Wed May 08 21:07:16 1996 +0200
@@ -319,7 +319,7 @@
     topFraction notNil ifTrue:[
         y := y + (superRectangle height * topFraction)
     ].
-    ^ Rectangle origin:x@y extent:prefRect extent
+    ^ Rectangle left:x top:y extent:prefRect extent
 
     "
      |superRect lO|
@@ -331,11 +331,11 @@
      lO rectangleRelativeTo:superRect preferred:(0@0 corner:30@30)
     "
 
-    "Modified: 27.4.1996 / 14:54:06 / cg"
+    "Modified: 8.5.1996 / 20:58:53 / cg"
 ! !
 
 !LayoutOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.12 1996-04-27 17:51:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.13 1996-05-08 19:07:11 cg Exp $'
 ! !