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

!ThreePhaseButtonMorph class methodsFor: 'instance creation' stamp: 'edc 2/7/2006 15:44'!
checkBox
	"Answer a button pre-initialized with checkbox images."
	| f |
	^self new
		onImage: (f _ ((Imports default imports) at: 'CheckBoxOn'));
		pressedImage: ((Imports default imports) at: 'CheckBoxPressed');
		offImage: ((Imports default imports) at: 'CheckBoxOff');
		extent: f extent + (2@0);
		yourself
! !