Target "show-background" {} { /ClientDown { 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 } ifelse } ifelse } if end } def /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 self eq {pop} { {ItemBegin ClientExit ItemEnd} exch send } ifelse } forall } ifelse } ifelse } if end } def /Hilite? false def /ptr /ptr_m ItemCanvas setstandardcursor }