Target "full-entry-button" {} { /ItemPath {rr} def /ClientUp { PileDict ParentPileID get /DefinedTID get dup type /stringtype eq { cvn } if TargetDict 1 index known { TargetDict exch get /Ref get ParentPileID (.pile % .articulate %\n) sprintf callback } { pop ClientExit } ifelse } def }