Target
"full-entry-background"
{}
{ /Hilite? false 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
    /ptr /ptr_m ItemCanvas setstandardcursor
  } def }