1 # return the wm-icons associated to a standard section. One can think that:
2 # 1 - it is better to use overread the /usr/lib/menu/menu file
3 # 2 - to add/replace some "ifeqelse lines" with parent($s) in the placs of $s
4 # both are bad ideas :o)
6 function
ftGetSectionIcon($s
)= \
7 ifeqelse($s
,rootsection()"/Configuration",\
9 ifeqelse($s
,rootsection()"/Configuration/Hardware",\
11 ifeqelse($s
,rootsection()"/Configuration/Packaging",\
13 ifeqelse($s
,rootsection()"/Configuration/Networking",\
15 ifeqelse($s
,rootsection()"/Configuration/Printing",\
17 ifeqelse($s
,rootsection()"/Configuration/Boot and Init",\
19 ifeqelse($s
,rootsection()"/Configuration/Other",\
21 ifeqelse($s
,rootsection()"/Applications",\
23 ifeqelse($s
,rootsection()"/Applications/Development",\
25 ifeqelse($s
,rootsection()"/Applications/Development/Interpreters",\
27 ifeqelse($s
,rootsection()"/Applications/Development/Code generators",\
29 ifeqelse($s
,rootsection()"/Applications/Development/Development environments",\
31 ifeqelse($s
,rootsection()"/Applications/Development/Tools",\
33 ifeqelse($s
,rootsection()"/Applications/Sciences",\
35 ifeqelse($s
,rootsection()"/Applications/Archiving",\
37 ifeqelse($s
,rootsection()"/Applications/Archiving/Compression",\
39 ifeqelse($s
,rootsection()"/Applications/Archiving/Cd burning",\
41 ifeqelse($s
,rootsection()"/Applications/Archiving/Backup",\
43 ifeqelse($s
,rootsection()"/Applications/Archiving/Other",\
45 ifeqelse($s
,rootsection()"/Applications/Communications",\
47 ifeqelse($s
,rootsection()"/Applications/Editors",\
49 ifeqelse($s
,rootsection()"/Applications/Publishing",\
50 "word-processor.xpm",\
51 ifeqelse($s
,rootsection()"/Applications/Monitoring",\
53 ifeqelse($s
,rootsection()"/Applications/Text tools",\
55 ifeqelse($s
,rootsection()"/Applications/File tools",\
57 ifeqelse($s
,rootsection()"/Applications/Shells",\
59 ifeqelse($s
,rootsection()"/Terminals",\
61 ifeqelse($s
,rootsection()"/Documentation",\
63 ifeqelse($s
,rootsection()"/Office",\
64 "word-processor.xpm",\
65 ifeqelse($s
,rootsection()"/Networking",\
67 ifeqelse($s
,rootsection()"/Networking/File transfer",\
69 ifeqelse($s
,rootsection()"/Networking/ICQ",\
71 ifeqelse($s
,rootsection()"/Networking/IRC",\
73 ifeqelse($s
,rootsection()"/Networking/Chat",\
75 ifeqelse($s
,rootsection()"/Networking/News",\
77 ifeqelse($s
,rootsection()"/Networking/Mail",\
79 ifeqelse($s
,rootsection()"/Networking/WWW",\
81 ifeqelse($s
,rootsection()"/Networking/Remote access",\
83 ifeqelse($s
,rootsection()"/Networking/Other",\
85 ifeqelse($s
,rootsection()"/Amusement",\
87 ifeqelse($s
,rootsection()"/Amusement/Adventure",\
89 ifeqelse($s
,rootsection()"/Amusement/Arcade",\
91 ifeqelse($s
,rootsection()"/Amusement/Boards",\
93 ifeqelse($s
,rootsection()"/Amusement/Cards",\
95 ifeqelse($s
,rootsection()"/Amusement/Puzzles",\
97 ifeqelse($s
,rootsection()"/Amusement/Sports",\
99 ifeqelse($s
,rootsection()"/Amusement/Strategy",\
101 ifeqelse($s
,rootsection()"/Amusement/Other",\
103 ifeqelse($s
,rootsection()"/Amusement/Toys",\
105 ifeqelse($s
,rootsection()"/Multimedia",\
107 ifeqelse($s
,rootsection()"/Multimedia/Sound",\
109 ifeqelse($s
,rootsection()"/Multimedia/Graphics",\
111 ifeqelse($s
,rootsection()"/Multimedia/Video",\
113 ifeqelse($s
,rootsection()"/Session",\
115 ifeqelse($s
,rootsection()"/Session/Windowmanagers",\
117 "")))))))))))))))))))))))))))))))))))))))))))))))))))))))
119 function
ftGetSectionIconForApp($s
,$f
) =\
120 ifeqelse(ftGetSectionIcon(parent($s
)),"",\
121 ifeqelse(ftGetSectionIcon(parent(parent($s
))),"",\
122 ifeqelse(ftGetSectionIcon(parent(parent(parent($s
)))),"","",\
123 $f
ftGetSectionIcon(parent(parent(parent($s
))))),\
124 $f
ftGetSectionIcon(parent(parent($s
)))),\
125 $f
ftGetSectionIcon(parent($s
)))
127 # return a wm-icons associated to a package or a command
128 # this function should be automatically generated:
129 # only needed if we want a wmIcons which is != to the section icons
130 function
ftWmIconsByListTable($n
) = \
131 ifeqelse($n
,"xcalc","calculator.xpm",\
132 ifeqelse($n
,"xclock","clock.xpm",\
133 ifeqelse($n
,"rclock","clock.xpm",\
134 ifeqelse($n
,"xdaliclock","clock.xpm",\
135 ifeqelse($n
,"xfclock","clock.xpm",\
136 ifeqelse($n
,"xfontsel","font.xpm",\
137 ifeqelse($n
,"xcolorsel","colors.xpm",\
138 ifeqelse($n
,"xcolormap","colors.xpm",\
139 ifeqelse($n
,"xgrab","display.xpm",\
140 ifeqelse($n
,"ghostview","ghostview.xpm",\
141 ifeqelse($n
,"acroread","viewer.xpm",\
142 ifeqelse($n
,"xemacs","gnu.xpm",\
143 ifeqelse($n
,"emacs","gnu.xpm",\
144 ifeqelse($n
,"gqview","image-viewer.xpm",\
145 ifeqelse($n
,"xbmbrowser","image-viewer.xpm",\
146 ifeqelse($n
,"xfig","image-processor.xpm",\
147 ifeqelse($n
,"xpaint","image-processor.xpm",\
148 ifeqelse($n
,"gimp","gimp.xpm",\
149 ifeqelse($n
,"xv","image-viewer.xpm",\
150 ifeqelse($n
,"mutt","mail.xpm",\
151 ""))))))))))))))))))))
153 function
ftFindIconByList($p
,$c
,$t
,$f
) = \
154 ifeqelse(ftWmIconsByListTable($p
),"",\
155 ifeqelse(ftWmIconsByListTable($t
),"",\
156 ifeqelse(ftWmIconsByListTable($c
),"","",\
157 $f
ftWmIconsByListTable($c
)),\
158 $f
ftWmIconsByListTable($t
)),\
159 $f
ftWmIconsByListTable($p
))
161 # check if we have a wm-icons and return it
163 function
ftIsWmIconsTable($n
) = \
164 ifeqelse($n
,"amusement.xpm","amusement.xpm",\
165 ifeqelse($n
,"calculator.xpm","calculator.xpm",\
166 ifeqelse($n
,"cd-player.xpm","cd-player.xpm",\
167 ifeqelse($n
,"chat.xpm","chat.xpm",\
168 ifeqelse($n
,"choice-no.xpm","choice-no.xpm",\
169 ifeqelse($n
,"choice-yes.xpm","choice-yes.xpm",\
170 ifeqelse($n
,"clock.xpm","clock.xpm",\
171 ifeqelse($n
,"colors.xpm","colors.xpm",\
172 ifeqelse($n
,"configuration.xpm","configuration.xpm",\
173 ifeqelse($n
,"development.xpm","development.xpm",\
174 ifeqelse($n
,"disk.xpm","disk.xpm",\
175 ifeqelse($n
,"disk-cd.xpm","disk-cd.xpm",\
176 ifeqelse($n
,"disk-floppy.xpm","disk-floppy.xpm",\
177 ifeqelse($n
,"display.xpm","display.xpm",\
178 ifeqelse($n
,"editor.xpm","editor.xpm",\
179 ifeqelse($n
,"file.xpm","file.xpm",\
180 ifeqelse($n
,"file-manager.xpm","file-manager.xpm",\
181 ifeqelse($n
,"folder.xpm","folder.xpm",\
182 ifeqelse($n
,"folder-open.xpm","folder-open.xpm",\
183 ifeqelse($n
,"font.xpm","font.xpm",\
184 ifeqelse($n
,"game.xpm","game.xpm",\
185 ifeqelse($n
,"game-action.xpm","game-action.xpm",\
186 ifeqelse($n
,"game-board.xpm","game-board.xpm",\
187 ifeqelse($n
,"game-cards.xpm","game-cards.xpm",\
188 ifeqelse($n
,"game-logic.xpm","game-logic.xpm",\
189 ifeqelse($n
,"ghostview.xpm","ghostview.xpm",\
190 ifeqelse($n
,"gimp.xpm","gimp.xpm",\
191 ifeqelse($n
,"gnome.xpm","gnome.xpm",\
192 ifeqelse($n
,"gnu.xpm","gnu.xpm",\
193 ifeqelse($n
,"graphics.xpm","graphics.xpm",\
194 ifeqelse($n
,"help.xpm","help.xpm",\
195 ifeqelse($n
,"home.xpm","home.xpm",\
196 ifeqelse($n
,"image-processor.xpm","image-processor.xpm",\
197 ifeqelse($n
,"image-viewer.xpm","image-viewer.xpm",\
198 ifeqelse($n
,"information.xpm","information.xpm",\
199 ifeqelse($n
,"item.xpm","item.xpm",\
200 ifeqelse($n
,"kde.xpm","kde.xpm",\
201 ifeqelse($n
,"keyboard.xpm","keyboard.xpm",\
202 ifeqelse($n
,"linux.xpm","linux.xpm",\
203 ifeqelse($n
,"lock.xpm","lock.xpm",\
204 ifeqelse($n
,"mail.xpm","mail.xpm",\
205 ifeqelse($n
,"modules.xpm","modules.xpm",\
206 ifeqelse($n
,"monitoring.xpm","monitoring.xpm",\
207 ifeqelse($n
,"mouse.xpm","mouse.xpm",\
208 ifeqelse($n
,"multimedia.xpm","multimedia.xpm",\
209 ifeqelse($n
,"music.xpm","music.xpm",\
210 ifeqelse($n
,"netscape.xpm","netscape.xpm",\
211 ifeqelse($n
,"network.xpm","network.xpm",\
212 ifeqelse($n
,"news.xpm","news.xpm",\
213 ifeqelse($n
,"printing.xpm","printing.xpm",\
214 ifeqelse($n
,"programs.xpm","programs.xpm",\
215 ifeqelse($n
,"quit.xpm","quit.xpm",\
216 ifeqelse($n
,"refresh.xpm","refresh.xpm",\
217 ifeqelse($n
,"restart.xpm","restart.xpm",\
218 ifeqelse($n
,"science.xpm","science.xpm",\
219 ifeqelse($n
,"sound.xpm","sound.xpm",\
220 ifeqelse($n
,"system.xpm","system.xpm",\
221 ifeqelse($n
,"terminal.xpm","terminal.xpm",\
222 ifeqelse($n
,"terminal-remote.xpm","terminal-remote.xpm",\
223 ifeqelse($n
,"terminal-special.xpm","terminal-special.xpm",\
224 ifeqelse($n
,"themes.xpm","themes.xpm",\
225 ifeqelse($n
,"todo.xpm","todo.xpm",\
226 ifeqelse($n
,"unknown.xpm","unknown.xpm",\
227 ifeqelse($n
,"utility.xpm","utility.xpm",\
228 ifeqelse($n
,"video.xpm","video.xpm",\
229 ifeqelse($n
,"viewer.xpm","viewer.xpm",\
230 ifeqelse($n
,"window.xpm","window.xpm",\
231 ifeqelse($n
,"window-close.xpm","window-close.xpm",\
232 ifeqelse($n
,"window-delete.xpm","window-delete.xpm",\
233 ifeqelse($n
,"window-destroy.xpm","window-destroy.xpm",\
234 ifeqelse($n
,"window-iconify.xpm","window-iconify.xpm",\
235 ifeqelse($n
,"window-identify.xpm","window-identify.xpm",\
236 ifeqelse($n
,"window-lower.xpm","window-lower.xpm",\
237 ifeqelse($n
,"window-maximize.xpm","window-maximize.xpm",\
238 ifeqelse($n
,"window-move.xpm","window-move.xpm",\
239 ifeqelse($n
,"window-raise.xpm","window-raise.xpm",\
240 ifeqelse($n
,"window-resize.xpm","window-resize.xpm",\
241 ifeqelse($n
,"window-shade.xpm","window-shade.xpm",\
242 ifeqelse($n
,"window-stick.xpm","window-stick.xpm",\
243 ifeqelse($n
,"windows.xpm","windows.xpm",\
244 ifeqelse($n
,"word-processor.xpm","word-processor.xpm",\
245 ifeqelse($n
,"www.xpm","www.xpm",\
246 ifeqelse($n
,"xv.xpm","xv.xpm",\
247 ifeqelse($n
,"empty.xpm","empty.xpm",\
248 ""))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
251 function
ftIsWmIcons($i
,$f
) = \
252 ifeqelse(ftIsWmIconsTable($i
),"",\
253 ifeqelse(ftIsWmIconsTable(stripdir($i
)),"","",\
254 $f
ftIsWmIconsTable(stripdir($i
))),\
255 $f
ftIsWmIconsTable($i
))