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