Target "quit-button" {} { /ClientUp { (\n.bye\n) callback {CP CF DL PileDict StampDict TargetDict RasterDict } {systemdict exch null put} forall [PileDict {exch pop} forall] {/Win get /destroy exch send} forall currentprocess killprocessgroup } def /ItemPath {rr} def }