/component superclass
 /solid false def

/PaintBackground {
	% --
	path BG setcolor fill
} def

/Paint {
	% --
	solid {PaintBackground} if
} def

/hit {
	% eventtype -- drawable
	//hit exec solid true {
		dup self ne
	} ifelse
	not {
		pop null
	} if
} def