Target
"show-button"
{}
{ /ClientUp {
    PileDict ContentsPileID get begin
      Win /Pages get length 0 ne {
        Win /Pages get Win /PageNumber get get
        Win /PageDict get 1 index known not {pop} {
          [ exch Win /PageDict get exch get /Targets get
            { pop TargetDict exch get } forall ]
          dup length 0 eq {pop} {
            dup { dup self eq {pop} {
	        {ItemBegin ClientEnter ItemEnd} exch send
	      } ifelse
	    } forall
            1 60 div sleep
            { dup self eq {pop} {
	        {ItemBegin ClientExit ItemEnd} exch send
	      } ifelse
	    } forall
          } ifelse
        } ifelse
      } if
    end
  } def
  /ItemPath {rr} def }