/drawable superclass
 /number {
	% -- int
	@parent /members get self arrayindex not -1
	if
} def

/posN {
	% -- float
	/borderN @window send
} def

/posS {
	% -- float
	/borderS @window send
} def

/posW {
	% -- float
	/borderW @window send
} def

/posE {
	% -- float
	/borderE @window send
} def

/oninit {
	% --
	self soften /@layout exch promote
} def

/edit_ctx_parent nullproc def

/Paint nullproc def

/damage {
	% --
	members {
		/damage exch send
	} forall
} def

/hit {
	% eventtype -- drawable
	//hit exec dup self eq {
		pop null
	} if
} def