/PaintIcon { repair } def

/flipiconic { % - => - (Redraw current state for icon)
     /flipiconic super send
     Iconic? IconCanvas /Retained get and {/paint self send} if
} def