Mercurial Mercurial > hg > stx-libbasic2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added dummy Scale & InverseScale classVars.
authorClaus Gittinger <cg@exept.de>
Wed, 12 Feb 1997 13:23:57 +0100
changeset 490 ef43c7a69346
parent 489 27859443b951
child 491 433097e01416
added dummy Scale & InverseScale classVars. based #bounds on #computeBounds
ArrSpline.st file | annotate | diff | comparison | revisions
Arrow.st file | annotate | diff | comparison | revisions
ArrowedSpline.st file | annotate | diff | comparison | revisions
EllArc.st file | annotate | diff | comparison | revisions
EllipticalArc.st file | annotate | diff | comparison | revisions
LineSegment.st file | annotate | diff | comparison | revisions
Polygon.st file | annotate | diff | comparison | revisions
Spline.st file | annotate | diff | comparison | revisions 
--- a/ArrSpline.st	Thu Jan 30 15:38:03 1997 +0100
+++ b/ArrSpline.st	Wed Feb 12 13:23:57 1997 +0100
@@ -323,7 +323,15 @@
 
 !ArrowedSpline methodsFor:'queries'!
 
-bounds
+canBeFilled
+    "return true, if the receiver can be drawn as a filled geometric.
+     Always true here. Notice, that only the arrowHeads are filled."
+
+    ^ true
+
+!
+
+computeBounds
     "return the smallest enclosing rectangle"
 
     |minX maxX minY maxY|
@@ -343,23 +351,12 @@
     ].    
     ^ Rectangle left:minX right:maxX top:minY bottom:maxY
 
-
-    "Created: 26.5.1996 / 13:06:48 / cg"
     "Modified: 26.5.1996 / 13:08:48 / cg"
-
-
-!
-
-canBeFilled
-    "return true, if the receiver can be drawn as a filled geometric.
-     Always true here. Notice, that only the arrowHeads are filled."
-
-    ^ true
-
+    "Created: 12.2.1997 / 11:42:41 / cg"
 ! !
 
 !ArrowedSpline class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/ArrSpline.st,v 1.7 1996-09-20 07:34:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/ArrSpline.st,v 1.8 1997-02-12 12:23:57 cg Exp $'
 ! !
--- a/Arrow.st	Thu Jan 30 15:38:03 1997 +0100
+++ b/Arrow.st	Wed Feb 12 13:23:57 1997 +0100
@@ -406,7 +406,15 @@
 
 !Arrow methodsFor:'queries'!
 
-bounds
+canBeFilled
+    "return true, if the receiver can be drawn as a filled geometric.
+     Always true here. Notice, that Arrows only fill the arrowHeads."
+
+    ^ true
+
+!
+
+computeBounds
     "return the smallest enclosing rectangle"
 
     |x y minX maxX minY maxY|
@@ -438,21 +446,13 @@
      (Arrow from:(10@10) to:(10@90)) bounds  
     "
 
-    "Created: 26.5.1996 / 13:06:48 / cg"
     "Modified: 26.5.1996 / 16:31:39 / cg"
-!
-
-canBeFilled
-    "return true, if the receiver can be drawn as a filled geometric.
-     Always true here. Notice, that Arrows only fill the arrowHeads."
-
-    ^ true
-
+    "Created: 12.2.1997 / 11:42:22 / cg"
 ! !
 
 !Arrow class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Arrow.st,v 1.17 1996-10-26 16:07:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Arrow.st,v 1.18 1997-02-12 12:23:19 cg Exp $'
 ! !
 Arrow initialize!
--- a/ArrowedSpline.st	Thu Jan 30 15:38:03 1997 +0100
+++ b/ArrowedSpline.st	Wed Feb 12 13:23:57 1997 +0100
@@ -323,7 +323,15 @@
 
 !ArrowedSpline methodsFor:'queries'!
 
-bounds
+canBeFilled
+    "return true, if the receiver can be drawn as a filled geometric.
+     Always true here. Notice, that only the arrowHeads are filled."
+
+    ^ true
+
+!
+
+computeBounds
     "return the smallest enclosing rectangle"
 
     |minX maxX minY maxY|
@@ -343,23 +351,12 @@
     ].    
     ^ Rectangle left:minX right:maxX top:minY bottom:maxY
 
-
-    "Created: 26.5.1996 / 13:06:48 / cg"
     "Modified: 26.5.1996 / 13:08:48 / cg"
-
-
-!
-
-canBeFilled
-    "return true, if the receiver can be drawn as a filled geometric.
-     Always true here. Notice, that only the arrowHeads are filled."
-
-    ^ true
-
+    "Created: 12.2.1997 / 11:42:41 / cg"
 ! !
 
 !ArrowedSpline class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ArrowedSpline.st,v 1.7 1996-09-20 07:34:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ArrowedSpline.st,v 1.8 1997-02-12 12:23:57 cg Exp $'
 ! !
--- a/EllArc.st	Thu Jan 30 15:38:03 1997 +0100
+++ b/EllArc.st	Wed Feb 12 13:23:57 1997 +0100
@@ -280,12 +280,6 @@
 
 !EllipticalArc methodsFor:'queries'!
 
-bounds
-    "return the smallest enclosing rectangle"
-
-    ^ boundingBox
-!
-
 canBeFilled
     "return true, if the receiver can be drawn as a filled geometric.
      Always true here."
@@ -297,10 +291,18 @@
     "return the center"
 
     ^ boundingBox center
+!
+
+computeBounds
+    "return the smallest enclosing rectangle"
+
+    ^ boundingBox
+
+    "Created: 12.2.1997 / 11:43:00 / cg"
 ! !
 
 !EllipticalArc class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/EllArc.st,v 1.11 1996-05-17 09:23:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/EllArc.st,v 1.12 1997-02-12 12:23:41 cg Exp $'
 ! !
--- a/EllipticalArc.st	Thu Jan 30 15:38:03 1997 +0100
+++ b/EllipticalArc.st	Wed Feb 12 13:23:57 1997 +0100
@@ -280,12 +280,6 @@
 
 !EllipticalArc methodsFor:'queries'!
 
-bounds
-    "return the smallest enclosing rectangle"
-
-    ^ boundingBox
-!
-
 canBeFilled
     "return true, if the receiver can be drawn as a filled geometric.
      Always true here."
@@ -297,10 +291,18 @@
     "return the center"
 
     ^ boundingBox center
+!
+
+computeBounds
+    "return the smallest enclosing rectangle"
+
+    ^ boundingBox
+
+    "Created: 12.2.1997 / 11:43:00 / cg"
 ! !
 
 !EllipticalArc class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/EllipticalArc.st,v 1.11 1996-05-17 09:23:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/EllipticalArc.st,v 1.12 1997-02-12 12:23:41 cg Exp $'
 ! !
--- a/LineSegment.st	Thu Jan 30 15:38:03 1997 +0100
+++ b/LineSegment.st	Wed Feb 12 13:23:57 1997 +0100
@@ -215,7 +215,7 @@
 
 !LineSegment methodsFor:'queries'!
 
-bounds
+computeBounds
     "return the smallest enclosing rectangle"
 
     |x y minX maxX minY maxY|
@@ -237,10 +237,11 @@
     "
 
     "Modified: 26.5.1996 / 13:06:55 / cg"
+    "Created: 12.2.1997 / 11:43:50 / cg"
 ! !
 
 !LineSegment class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/LineSegment.st,v 1.9 1996-05-26 11:09:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/LineSegment.st,v 1.10 1997-02-12 12:23:27 cg Exp $'
 ! !
--- a/Polygon.st	Thu Jan 30 15:38:03 1997 +0100
+++ b/Polygon.st	Wed Feb 12 13:23:57 1997 +0100
@@ -293,7 +293,16 @@
     "
 !
 
-bounds
+canBeFilled
+    "return true, if the receiver can be drawn as a filled geometric.
+     Always true here."
+
+    ^ true
+
+    "Created: 8.5.1996 / 08:16:53 / cg"
+!
+
+computeBounds
     "return the smallest enclosing rectangle"
 
     |minX maxX minY maxY t n "{ Class: SmallInteger }" |
@@ -340,15 +349,7 @@
     "
 
     "Modified: 8.5.1996 / 20:51:42 / cg"
-!
-
-canBeFilled
-    "return true, if the receiver can be drawn as a filled geometric.
-     Always true here."
-
-    ^ true
-
-    "Created: 8.5.1996 / 08:16:53 / cg"
+    "Created: 12.2.1997 / 11:44:11 / cg"
 !
 
 left
@@ -405,5 +406,5 @@
 !Polygon class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Polygon.st,v 1.23 1996-05-12 23:06:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Polygon.st,v 1.24 1997-02-12 12:23:44 cg Exp $'
 ! !
--- a/Spline.st	Thu Jan 30 15:38:03 1997 +0100
+++ b/Spline.st	Wed Feb 12 13:23:57 1997 +0100
@@ -504,7 +504,15 @@
 
 !Spline methodsFor:'queries'!
 
-bounds
+canBeFilled
+    "return true, if the receiver can be drawn as a filled geometric.
+     Always true here."
+
+    ^ true
+
+!
+
+computeBounds
     "return the smallest enclosing rectangle"
 
     |l minX maxX minY maxY|
@@ -537,16 +545,8 @@
 
     ^ Rectangle left:minX right:maxX top:minY bottom:maxY
 
-    "Created: 13.5.1996 / 00:27:29 / cg"
     "Modified: 13.5.1996 / 11:02:29 / cg"
-!
-
-canBeFilled
-    "return true, if the receiver can be drawn as a filled geometric.
-     Always true here."
-
-    ^ true
-
+    "Created: 12.2.1997 / 11:45:02 / cg"
 !
 
 isCyclic
@@ -560,5 +560,5 @@
 !Spline class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Spline.st,v 1.12 1996-06-05 11:54:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Spline.st,v 1.13 1997-02-12 12:23:23 cg Exp $'
 ! !
hg/stx-libbasic2