|
|
发表于 2007-7-4 10:24:55
|
显示全部楼层
在FVWM 中可以实现
============================================
Key D A CM FuncFvwmIconifyToggle
SetEnv fvwm_icon_size 100
DestroyFunc Thumbnail
AddToFunc Thumbnail
+ I Raise
+ I SetEnv Icon-$[w.id] $[w.iconfile]
+ I ThisWindow (!Shaded Iconifiable !Iconic) PipeRead \
"xwd -silent -id $[w.id] | convert -scale $[fvwm_icon_size] -frame 1x1 \
-mattecolor black -quality 0 xwd:- png [FVWM_USERDIR]/icon.tmp.$[w.id].png \
&& echo WindowStyle IconOverride, Icon $[FVWM_USERDIR]/icon.tmp.$[w.id].png \
|| echo Nop"
+ I TestRc (Match) Test (f $HOME/icons/$[w.miniiconfile]) PipeRead "composite -geometry +2+4 \
$HOME/icons/$[w.miniiconfile] $FVWM_USERDIR/icon.tmp.$[w.id].png \
$FVWM_USERDIR/icon.tmp.$[w.id].png && echo Nop \
|| echo Beep"
+ I Iconify
DestroyFunc DeThumbnail
AddToFunc DeThumbnail
+ I PipeRead "echo WindowStyle Icon \\$\\[Icon-$[w.id]\\]"
+ I UnsetEnv Icon-$[w.id]
+ I Exec rm -f $FVWM_USERDIR/icon.tmp.$[w.id].png
### Win + D
DestroyFunc FuncFvwmIconifyTrue
AddToFunc FuncFvwmIconifyTrue
+ I All (!Iconic) State 1
#+ I All (State 1) Iconify True
+ I All (State 1) Thumbnail True
DestroyFunc FuncFvwmIconifFalse
AddToFunc FuncFvwmIconifyFalse
#+ I All (State 1) Iconify False
+ I All (State 1) Thumbnail False
DestroyFunc FuncFvwmIconifyToggle
AddToFunc FuncFvwmIconifyToggle
+ I FuncFvwmIconifyFalse
+ I All (State 1) State 1 False
+ I TestRc (NoMatch) FuncFvwmIconifyTrue
============================================ |
|