1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
# Colorsets
# Written by: Maciej Delmanowski <harnir@linux.net.pl>
SetEnv Colorsets_Suffix ".cs"
# Set default colorset if user haven't choosed it himself
CheckPreferences LastChoosenColorset 'SavePreferences LastChoosenColorset "Colorsets-Set $[Colorsets_Path]/DarkDesktop.cs"'
DestroyFunc Colorsets-Set
AddToFunc Colorsets-Set
+ I Read $*
+ I UpdateStyles
+ I SavePreferences LastChoosenColorset "Colorsets-Set \"$*\""
DestroyMenu /Colorsets
AddToMenu /Colorsets
+ MissingSubmenuFunction Colorsets-generator
+ '%22x22/categories/directory.png%$[gt.System]' Popup $[FVWM_SYSTEMDIR]/colorsets
Test (f $[FVWM_USERDIR]/colorsets) + '%22x22/categories/directory.png%$[gt.User]' Popup $[FVWM_USERDIR]/colorsets
DestroyFunc Colorsets-generator
AddToFunc Colorsets-generator
+ I DestroyMenu recreate $0
+ I AddToMenu $0
+ I PipeRead 'for i in $0/*$[Colorsets_Suffix]; do \
name=$(basename "${i}" $[Colorsets_Suffix]); \
echo \"AddToMenu $0 \'%22x22/fvwm-crystal/colorsets-file.png%${name}\' Colorsets-Set \'${i}\'\"; done'
# vim:ft=fvwm
|
