'From SqueakLight3.7.1 of ''4 September 2004'' [latest update: #5989] on 7 February 2006 at 3:46:29 pm'!

!ThreePhaseButtonMorph class methodsFor: 'instance creation' stamp: 'edc 2/7/2006 14:58'!
radioButton
	"Answer a button pre-initialized with radiobutton images."
	
	| f |
	^self new
		onImage: (f_ (Imports default imports) at: 'RadioButtonOn');
		pressedImage: ((Imports default imports) at: 'RadioButtonPressed');
		offImage: ((Imports default imports) at: 'RadioButtonOff');
		extent: f extent + (2@0);
		yourself
! !