##################
DestroyFunc Thumbnail
AddToFunc Thumbnail
+ I Raise
+ I ThisWindow (!Iconic) SetEnv Icon-$[w.id] $[w.iconfile]
+ I ThisWindow (!Shaded, Iconifiable, !Iconic) PipeRead \
    "import -quiet -window $[w.id] -resize 128 -quality 5 png:/rmv/ram/icon.tmp.$[w.id].png \
    && echo WindowStyle IconOverride, Icon /rmv/ram/icon.tmp.$[w.id].png \
    || echo Nop"
+ I TestRc (Match) Test (f $[w.miniiconfile], f /rmv/ram/icon.tmp.$[w.id].png) PipeRead \
    "composite -geometry +2+4 $[w.miniiconfile] /rmv/ram/icon.tmp.$[w.id].png \
    /rmv/ram/icon.tmp.$[w.id].png; echo Nop"
+ I Iconify