'From etoys2.2 of 21 September 2007 [latest update: #1752] on 5 November 2007 at 2:51:39 pm'!
"Change Set:		roundInput-bf
Date:			5 November 2007
Author:			Bert Freudenberg

Fix text quality by not drawing the label twice, and anti-alias the ends."!


!SugarRoundedField methodsFor: 'as yet unclassified' stamp: 'bf 11/5/2007 12:07'!
drawOn: aCanvas

	mask ifNil: [^super drawOn: aCanvas].

	aCanvas drawImage: mask at: self position.
! !

!SugarRoundedField methodsFor: 'as yet unclassified' stamp: 'bf 11/5/2007 12:04'!
makeMask: extent foregroundColor: fgColor backgroundColor: bgColor

	| f c diameter |
	f _ Form extent: extent depth: 16.
	f fillColor: bgColor.
	c _ f getCanvas asBalloonCanvas.
	c aaLevel: 4.
	diameter _ extent x min: extent y.
	c drawOval: (0@0 extent: diameter@diameter) color: fgColor borderWidth: 0 borderColor: Color black.
	c drawOval: (((extent x - diameter)@0) extent: diameter@diameter) color: fgColor borderWidth: 0 borderColor: Color black.
	c fillRectangle: (((diameter // 2)@0) extent: ((extent x - diameter)@(extent y))) fillStyle: fgColor.
	c finish.
	^ f.
! !