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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
# the folowing file contains wmIconsGetSectionIcon($s) and
# wmIconsFindIconByList($p) functions used below
!include wm-icons-data.h
# the following function try to find the "system" icons in a "standar place".
# where debian and others distrib put the icons? the system-menu doc say
# in /usr/X11R6/include/X11/{pixmaps,bitmaps} but we can find icons of
# any size in these diectory (e.g., 32x32)?
# mandrake: /usr/share/icons/mini is ok!
# debian: ?
# other distro. based on debian ?
# fvwm-themes-images translated support:
# need to replace /urs/local/share/fvwm by "fvwm-themes @datadir@"/fvwm
function systemFindIcon($filename)= \
ifeqelse($filename, "", "", \
ifelsefile("/usr/share/icons/wm-icons/mini/" $filename, \
"/usr/share/icons/wm-icons/mini/" $filename, \
ifelsefile("/usr/share/icons/mini/" $filename, \
"/usr/share/icons/mini/" $filename, \
ifelsefile("/usr/share/icons/wm-icons/16x16-general/" $filename, \
"/usr/share/icons/wm-icons/16x16-general/" $filename, \
ifelsefile("/usr/share/icons/wm-icons/16x16-gnome/" $filename, \
"/usr/share/icons/wm-icons/16x16-gnome/" $filename, \
ifelsefile("/usr/share/icons/wm-icons/16x16-kde/" $filename, \
"/usr/share/icons/wm-icons/16x16-kde/" $filename, \
ifelsefile("/usr/share/fvwm-crystal/fvwm/icons/Default/" $filename, \
"/usr/share/fvwm-crystal/fvwm/icons/Default/" $filename, \
ifelsefile("/usr/local/share/fvwm/tr-images/16x16-gnome/" $filename, \
"/usr/local/share/fvwm/tr-images/16x16-gnome/" $filename, \
ifelsefile("/usr/local/share/fvwm/tr-images/16x16-kde2/" $filename, \
"/usr/local/share/fvwm/tr-images/16x16-kde2/" $filename, \
"")))))))))
# return the wm-icons associated to a standard section. If the section is
# not standard return the "system/user" icons for this section and if not
# found a wm-icons if the section is a subsection of a standard one.
# If nothing is found return the menu/folder.xpm
function wmIconsFindSectionIcon($s,$i,$t)= \
ifeqelse(wmIconsGetSectionIcon($s),"",\
ifeqelse(systemFindIcon($i),"",\
ifeqelse(wmIconsGetSectionIcon(parent($s)),"",\
ifeqelse(wmIconsGetSectionIcon(parent(parent($s))),"",\
$t "folder.xpm",\
$t wmIconsGetSectionIcon(parent(parent($s)))),\
$t wmIconsGetSectionIcon(parent($s))),\
systemFindIcon($i)),\
$t wmIconsGetSectionIcon($s))
# as above but do not try a system icons
function wmIconsFindSectionIconWmOnly($s,$i,$t)= \
ifeqelse(wmIconsGetSectionIcon($s),"",\
ifeqelse(wmIconsGetSectionIcon(parent($s)),"",\
ifeqelse(wmIconsGetSectionIcon(parent(parent($s))),"",\
$t "folder.xpm",\
$t wmIconsGetSectionIcon(parent(parent($s)))),\
$t wmIconsGetSectionIcon(parent($s))),\
$t wmIconsGetSectionIcon($s))
# try to find:
# 1 - the "system/user" icon; 2 - the wm-icons "package" icons;
# 3 - the wm-icons section icons; 4 - unknown.xpm
function wmIconsSystemeFindIcon($i,$p,$s,$t)= \
ifeqelse(systemFindIcon($i),"",\
ifeqelse(wmIconsFindIconByList($p),"",\
ifeqelse(wmIconsGetSectionIcon(parent($s)),"",\
ifeqelse(wmIconsGetSectionIcon(parent(parent($s))),"",\
ifeqelse(wmIconsGetSectionIcon(parent(parent(parent($s)))),"",\
$t "unknown.xpm",\
$t wmIconsGetSectionIcon(parent(parent(parent($s))))),\
$t wmIconsGetSectionIcon(parent(parent($s)))),\
$t wmIconsGetSectionIcon(parent($s))),\
$t wmIconsFindIconByList($p)),\
systemFindIcon($i))
# as above but 1 & 2 reverted
function wmIconsFindIcon($i,$p,$s,$t)= \
ifeqelse(wmIconsFindIconByList($p),"",\
ifeqelse(systemFindIcon($i),"",\
ifeqelse(wmIconsGetSectionIcon(parent($s)),"",\
ifeqelse(wmIconsGetSectionIcon(parent(parent($s))),"",\
ifeqelse(wmIconsGetSectionIcon(parent(parent(parent($s)))),"",\
$t "unknown.xpm",\
$t wmIconsGetSectionIcon(parent(parent(parent($s))))),\
$t wmIconsGetSectionIcon(parent(parent($s)))),\
$t wmIconsGetSectionIcon(parent($s))),\
systemFindIcon($i)),\
$t wmIconsFindIconByList($p))
# as above but no "system/user" icons
function wmIconsFindIconWmIconsOnly($i,$p,$s,$t)= \
ifeqelse(wmIconsFindIconByList($p),"",\
ifeqelse(wmIconsGetSectionIcon(parent($s)),"",\
ifeqelse(wmIconsGetSectionIcon(parent(parent($s))),"",\
ifeqelse(wmIconsGetSectionIcon(parent(parent(parent($s)))),"",\
$t "unknown.xpm",\
$t wmIconsGetSectionIcon(parent(parent(parent($s))))),\
$t wmIconsGetSectionIcon(parent(parent($s)))),\
$t wmIconsGetSectionIcon(parent($s))),\
$t wmIconsFindIconByList($p))
|