'From Cuis 2.0 of 12 February 2010 [latest update: #418] on 18 February 2010 at 2:45:32 pm'!

!FormsAndHelpsRepository class methodsFor: 'accessing' stamp: 'jmv 2/18/2010 14:44'!
removeUnneeded
	"
	 FormsAndHelpsRepository removeUnneeded
	"
	| needed unneeded |
	needed _ #(TinyMenu Eyedropper #'Halo-Collapse' #'Halo-Debug' #'Halo-Dismiss' #'Halo-Drag' #'Halo-Dup' #'Halo-FontEmph' #'Halo-FontSize' #'Halo-FontStyle' #'Halo-Grab' #'Halo-Help' #'Halo-Menu' #'Halo-Paint' #'Halo-Recolor' #'Halo-Rot' #'Halo-Scale' Painting expandBox TinyMenu CheckBoxOn CheckBoxPressed CheckBoxOff).
	unneeded _ FormDictionary keys reject: [ :any | needed includes: any ].
	unneeded do: [ :key |
		FormDictionary removeKey: key]! !


!IconicButton methodsFor: 'initialization' stamp: 'jmv 2/18/2010 14:44'!
setDefaultLabel
	self labelGraphic: (FormsAndHelpsRepository formAtKey: 'Halo-Paint')! !


!ThreePhaseButtonMorph class methodsFor: 'class initialization' stamp: 'jmv 2/18/2010 14:33'!
initialize
	"ThreePhaseButtonMorph initialize"
	| extent inset |
	extent _ 12@12.
	inset _ 3.

	#('CheckBoxOff' 'CheckBoxOn' 'CheckBoxPressed') do: [:button |
		| f r |
		f _ ColorForm extent: extent depth: 1.
		f colors: {Color transparent. Color black}.
		f borderWidth: 1.
		r _ f boundingBox insetBy: inset.
		button = 'CheckBoxPressed' ifTrue: [f border: r width: 1].
		button = 'CheckBoxOn' ifTrue: [f fillBlack: r].
		FormsAndHelpsRepository saveForm: f atKey: button]! !

ThreePhaseButtonMorph initialize!
FormsAndHelpsRepository class removeSelector: #initialize!
FormsAndHelpsRepository class removeSelector: #removeFormAtKey:!
FormsAndHelpsRepository class removeSelector: #squeakyMouseForm!
"Postscript:
Leave the line above, and replace the rest of this comment by a useful one.
Executable statements should follow this comment, and should
be separated by periods, with no exclamation points (!!).
Be sure to put any further comments in double-quotes, like this one."
	 FormsAndHelpsRepository removeUnneeded!

