Target "refresh-button" {} { /ClientUp { /paint PileDict ParentPileID get /Win get send /paint PileDict ParentPileID get /DefinitionPileID get PileDict exch get /Win get send /paint Win send /Inverted? false store CurrentEvent /KeyState get { % Please ignore the man behind the curtain. /Shift eq { { .1 sleep shit! } fork pop } if } forall } def /ItemPath {rr} def }