class: SolidFillStyle
authorClaus Gittinger <cg@exept.de>
Fri, 19 Dec 2014 16:17:06 +0100
changeset 6670 6a8cd9808cab
parent 6669 5f4fa919b1f8
child 6671 89d33e3b3d8a
class: SolidFillStyle
SolidFillStyle.st
--- 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 $'
 ! !