Hi!
I gathered many nice fvwm configs in this site, but how to switch them is a problem. Now I have a method to switch them. Only a method, easy to code indeed:
AddToMenu FvwmRootMenu " = System = " Title
+ I " Switch fvwm configs " Module FvwmButtons ThemeBar
############
# ThemeBar #
############
Colorset 600 fg #000000, bg #fafafa, sh #fafafa, hi #fafafa
Style ThemeBar !Borders,!Handles
*ThemeBar: Geometry 500x430+160+120
*ThemeBar: Colorset 600
*ThemeBar: Rows 430
*ThemeBar: Columns 500
*ThemeBar: Frame 0
*ThemeBar: Font "StringEncoding=gbk-0:xft:SimSun:normal:pixelsize=12:Minspace=true:encoding=iso10646-1"
*ThemeBar: (500x20, Center)
*ThemeBar: (250x190, Padding 0, Center, Icon $[fvwm_theme_path]/theme_france.png, PressIcon $[fvwm_theme_path]/theme_france_active.png,Action(Mouse 1) PipeRead "echo exec ln -sf $[HOME]/.fvwm/france/config $[HOME]/.fvwm/config && echo Restart")
*ThemeBar: (250x190, Padding 0, Center, Icon $[fvwm_theme_path]/theme_macos.png, PressIcon $[fvwm_theme_path]/theme_macos_active.png, Action(Mouse 1) PipeRead "echo exec ln -sf $[HOME]/.fvwm/macos/config $[HOME]/.fvwm/config && echo Restart")
*ThemeBar: (250x190, Padding 0, Center, Icon $[fvwm_theme_path]/theme_wmac.png, PressIcon $[fvwm_theme_path]/theme_wmac_active.png, Action(Mouse 1) PipeRead "echo exec ln -sf $[HOME]/.fvwm/wmac/config $[HOME]/.fvwm/config && echo Restart")
*ThemeBar: (250x190, Padding 0, Center, Icon $[fvwm_theme_path]/theme_simp.png, PressIcon $[fvwm_theme_path]/theme_simp_active.png, Action(Mouse 1) PipeRead "echo exec ln -sf $[HOME]/.fvwm/simp/config $[HOME]/.fvwm/config && echo Restart")
*ThemeBar: (150x30, Padding 0)
*ThemeBar: (50x30, Padding 0, Right, Icon $[fvwm_theme_path]/previous.png, PressIcon $[fvwm_theme_path]/previous_pressed.png)
*ThemeBar: (50x30, Padding 0)
*ThemeBar: (50x30, Padding 0)
*ThemeBar: (50x30, Padding 0, Left, Icon $[fvwm_theme_path]/next.png, PressIcon $[fvwm_theme_path]/next_pressed.png, Action(Mouse 1) `LoadThemeBar2`)
*ThemeBar: (150x30, Padding 0)
*ThemeBar2: Geometry 500x430+160+120
*ThemeBar2: Colorset 600
*ThemeBar2: Rows 430
*ThemeBar2: Columns 500
*ThemeBar2: Frame 0
*ThemeBar2: Font "StringEncoding=gbk-0:xft:SimSun:normal:pixelsize=12:Minspace=true:encoding=iso10646-1"
*ThemeBar2: (500x20, Center)
*ThemeBar2: (250x190, Padding 0, Center, Icon $[fvwm_theme_path]/theme_pem.png, PressIcon $[fvwm_theme_path]/theme_pem_active.png, Action(Mouse 1) PipeRead "echo exec ln -sf $[HOME]/.fvwm/pem/config $[HOME]/.fvwm/config && echo Restart")
*ThemeBar2: (250x190, Padding 0, Center, Icon $[fvwm_theme_path]/theme_win-blue.png, PressIcon $[fvwm_theme_path]/theme_win-blue_active.png, Action(Mouse 1) PipeRead "echo exec ln -sf $[HOME]/.fvwm/win-blue/config $[HOME]/.fvwm/config && echo Restart")
*ThemeBar2: (250x190, Padding 0, Center, Icon $[fvwm_theme_path]/theme_mntnoe.png, PressIcon $[fvwm_theme_path]/theme_mntnoe_active.png, Action(Mouse 1) PipeRead "echo exec ln -sf $[HOME]/.fvwm/mntnoe/config $[HOME]/.fvwm/config && echo Restart")
*ThemeBar2: (250x190, Padding 0, Center, Icon $[fvwm_theme_path]/theme_crystal.png, PressIcon $[fvwm_theme_path]/theme_crystal_active.png, Action(Mouse 1) PipeRead "echo exec ln -sf $[HOME]/.fvwm/crystal/config $[HOME]/.fvwm/config && echo Restart")
*ThemeBar2: (150x30, Padding 0)
*ThemeBar2: (50x30, Padding 0, Right, Icon $[fvwm_theme_path]/previous.png, PressIcon $[fvwm_theme_path]/previous_pressed.png, Action(Mouse 1) `LoadThemeBar`)
*ThemeBar2: (50x30, Padding 0)
*ThemeBar2: (50x30, Padding 0)
*ThemeBar2: (50x30, Padding 0, Left, Icon $[fvwm_theme_path]/next.png, PressIcon $[fvwm_theme_path]/next_pressed.png)
*ThemeBar2: (150x30, Padding 0)
# ThemeBar3, ThemeBar4 ...
DestroyFunc LoadThemeBar
AddToFunc LoadThemeBar
+ I All (ThemeBar2) Close
+ I Module FvwmButtons ThemeBar
DestroyFunc LoadThemeBar2
AddToFunc LoadThemeBar2
+ I All (ThemeBar) Close
+ I Module FvwmButtons ThemeBar2put off my picture
Aug 21, 2005