"{ Package: 'stx:libview' }"

Object subclass:#FillStyle
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Graphics-Support'
!

!FillStyle class methodsFor:'documentation'!

documentation
"
    an as-yet unused class.
    For now, this is present as compatibility class (for Squeak),
    but we may move change the fill/drawing code in the view hierarchy to use it later.

    [author:]
        cg

    [instance variables:]

    [class variables:]

    [see also:]

"
! !

!FillStyle methodsFor:'*SVG-Morphic'!

alphaMixed: aFloat
	"Answer a new fill with the extra transparency."

	self subclassResponsibility
! !

!FillStyle class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/libview/FillStyle.st,v 1.1 2014-12-19 15:08:30 cg Exp $'
!

version_CVS
    ^ '$Header: /cvs/stx/stx/libview/FillStyle.st,v 1.1 2014-12-19 15:08:30 cg Exp $'
! !