/button superclass
 /value false def


%begin postscript section
/value persist %end postscript section

/w //OLCheckBoxW def

/h //OLCheckBoxH def

/fixedwidth true def

/fixedheight true def

/preferredwidth //OLCheckBoxW def

/preferredheight //OLCheckBoxH def

/action {
	% --
	value not setvalue [value] /Action self Send
} def

/PaintButton {
	% boolean --
	value exch OLCheckBox
} def

/setvalue {
	% boolean --
	dup value ne {
		/value exch promote /Paint gexec
	} {pop} ifelse
} def