MenuTarget "free-button" {} { /Menu [ (RasterDict) { [ RasterDict {pop} forall ] {RasterDict exch undef} forall } (StampDict) { (.free-stamps\n) callback } ] /new DefaultMenu send def Menu /MenuFont /Times-Bold findfont 22 scalefont put /ItemPath {rr} def }