rendered paste body##################
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