--- a/SolidFillStyle.st Fri Dec 19 16:16:16 2014 +0100
+++ b/SolidFillStyle.st Fri Dec 19 16:17:06 2014 +0100
@@ -27,22 +27,15 @@
"
! !
-!SolidFillStyle methodsFor:'*SVG-Morphic'!
-alpha: fraction
- "Answer a new fill with the extra transparency."
-
- ^self copy
- color: (self color alphaMixed: fraction)
-! !
!SolidFillStyle class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/SolidFillStyle.st,v 1.1 2014-12-19 15:09:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/SolidFillStyle.st,v 1.2 2014-12-19 15:17:06 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/SolidFillStyle.st,v 1.1 2014-12-19 15:09:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/SolidFillStyle.st,v 1.2 2014-12-19 15:17:06 cg Exp $'
! !