added #canBeFilled for protocol completeness
authorClaus Gittinger <cg@exept.de>
Sat, 01 Jun 1996 11:30:16 +0200
changeset 374 a77f804c605e
parent 373 6834d6a61ea9
child 375 ab43222a70ce
added #canBeFilled for protocol completeness
ArrSpline.st
Arrow.st
ArrowedSpline.st
Curve.st
Spline.st
--- a/ArrSpline.st	Sat Jun 01 00:49:58 1996 +0200
+++ b/ArrSpline.st	Sat Jun 01 11:30:16 1996 +0200
@@ -345,10 +345,18 @@
     "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
+
 ! !
 
 !ArrowedSpline class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/ArrSpline.st,v 1.4 1996-05-26 14:32:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/ArrSpline.st,v 1.5 1996-06-01 09:30:05 cg Exp $'
 ! !
--- a/Arrow.st	Sat Jun 01 00:49:58 1996 +0200
+++ b/Arrow.st	Sat Jun 01 11:30:16 1996 +0200
@@ -446,11 +446,19 @@
 
     "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
+
 ! !
 
 !Arrow class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Arrow.st,v 1.13 1996-05-26 14:31:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Arrow.st,v 1.14 1996-06-01 09:29:50 cg Exp $'
 ! !
 Arrow initialize!
--- a/ArrowedSpline.st	Sat Jun 01 00:49:58 1996 +0200
+++ b/ArrowedSpline.st	Sat Jun 01 11:30:16 1996 +0200
@@ -345,10 +345,18 @@
     "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
+
 ! !
 
 !ArrowedSpline class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ArrowedSpline.st,v 1.4 1996-05-26 14:32:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ArrowedSpline.st,v 1.5 1996-06-01 09:30:05 cg Exp $'
 ! !
--- a/Curve.st	Sat Jun 01 00:49:58 1996 +0200
+++ b/Curve.st	Sat Jun 01 11:30:16 1996 +0200
@@ -239,10 +239,18 @@
     "
 
     "Modified: 8.5.1996 / 21:18:50 / cg"
+!
+
+canBeFilled
+    "return true, if the receiver can be drawn as a filled geometric.
+     Always true here."
+
+    ^ true
+
 ! !
 
 !Curve class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Curve.st,v 1.4 1996-05-17 09:23:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Curve.st,v 1.5 1996-06-01 09:30:10 cg Exp $'
 ! !
--- a/Spline.st	Sat Jun 01 00:49:58 1996 +0200
+++ b/Spline.st	Sat Jun 01 11:30:16 1996 +0200
@@ -541,6 +541,14 @@
     "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
+
+!
+
 isCyclic
     "return true, if this spline represents a closed curve"
 
@@ -552,5 +560,5 @@
 !Spline class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Spline.st,v 1.10 1996-05-13 09:19:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Spline.st,v 1.11 1996-06-01 09:30:16 cg Exp $'
 ! !