/frame superclass

 %begin postscript section
/iconfont persist %end postscript section


%begin postscript section
/iconlabel persist %end postscript section

/w 64 def

/h 64 def

/visible true def

/iconlabel {
	% -- any
	framelabel
} def

/@menu {
	% -- menu
	@iconmenu
} def

/PaintIconImage {
	% --
	//Paint exec
} def

/PaintIconLabel {
	% any --
	ginit FG setcolor iconfont setfont dup 1 4 w 2
	sub 5 -1 roll DISize exch pop
	DIPaintCentered
} def

/Paint {
	% --
	PaintIconImage iconlabel PaintIconLabel
} def

/OnInit {
	% --
	iconX iconY /iconX iconX w add 10 add store
	move
} def

/open {
	% --
	//nullarray /open @window Send
} def

/close {
	% --
	//nullarray /close @window Send
} def

/owner_open {
	% --
	unmap
} def

/owner_close nullproc def

/OnSelect2 {
	% --
	open
} def