/component superclass
 /str //nullstring def

/minwidth {
	% -- float
	preferredwidth
} def

/minheight {
	% -- float
	preferredheight
} def

/preferredwidth {
	% -- float
	gsave gset str DISize pop grestore
} def

/preferredheight {
	% -- float
	gsave gset str DISize exch pop grestore
} def

/Paint {
	% --
	justification Paint$SwiTch0 exch 2 copy
	known not {
		pop /$deFaUlT
	} if
	get exec
} def

/Paint$SwiTch0 3 dict dup begin
/$deFaUlT {
	str 0 0 w h DIPaintLeft
} def
/Centered {
	str 0 0 w h DIPaintCentered
} def
/Right {
	str 0 0 w h DIPaintRight
} def
end
def

/setlabel {
	% any --
	/str exch promote /Paint gexec
} def