/drawable superclass

 %begin postscript section
/visible persist %end postscript section

/gset {
	% --
	//gset exec FG setcolor textfont setfont
} def

/Paint {
	% --
	clippath BG setcolor fill 0 [0 0 w h]
	insetstroke aload pop rectpath FG setcolor
	stroke
} def

/action {
	% --
	//nullarray /Action self Send
} def

/Preview nullproc def

/preview {
	% --
	//nullarray /Preview self Send
} def