1 WindowTitle {FvwmApplet-Mixer}
2 WindowSize 64 64 # Taille
3 Font -*-fixed-medium-r-normal-*-10-*
7 Set $MainColorset=(GetScriptArgument 1)
8 If $MainColorset <> {} Then
10 ChangeColorset 0 $MainColorset
11 ChangeColorset 3 $MainColorset
12 ChangeColorset 10 $MainColorset
13 ChangeColorset 11 $MainColorset
14 ChangeColorset 2 $MainColorset
15 ChangeColorset 20 $MainColorset
18 Set $Colorset=(GetScriptArgument 2)
19 If $Colorset <> {} Then
21 #ChangeColorset 11 $Colorset
22 #ChangeColorset 2 $Colorset
23 #ChangeColorset 20 $Colorset
24 #ChangeColorset 3 $Colorset
25 ChangeColorset 96 $Colorset
26 ChangeColorset 97 $Colorset
27 ChangeColorset 98 $Colorset
28 ChangeColorset 99 $Colorset
37 Set $SPEAKER={speaker}
44 Set $cmd = {fvwm-themes-script --check-exec aumix}
45 Set $HaveAumix =(GetOutput $cmd 1 1)
47 If $HaveAumix == 1 Then
53 Set $VAL = (GetOutput {exec aumix -vq} 1 3)
69 If (RemainderOfDiv (GetTime) 5)==0 Then
71 If $HaveAumix == 0 Then
76 Set $GET = {exec aumix -} $COPT {q}
77 Set $tmp = (GetOutput $GET 1 3)
78 # Supression de la virgule
79 Set $TMP = (StrCopy $tmp 2 2)
81 Set $tmp = (StrCopy $tmp 1 1)
84 Set $TMP = (StrCopy $tmp 3 3)
86 Set $tmp = (StrCopy $tmp 1 2)
89 Set $TMP = (StrCopy $tmp 4 4)
91 Set $tmp = (StrCopy $tmp 1 3)
127 Set $VAL = (GetValue 11)
129 Do {Exec exec aumix -} $COPT { } $VAL
167 Icon fvwmscript/mini-left-arrow.xpm
176 ChangeIcon 20 16x16/sound.xpm
184 ChangeIcon 20 16x16/sound.xpm
192 ChangeIcon 20 16x16/sound.xpm
198 ChangeTitle 3 $SPEAKER
200 ChangeIcon 20 16x16/sound.xpm
208 ChangeIcon 20 16x16/music.xpm
216 ChangeIcon 20 16x16/sound.xpm
224 ChangeIcon 20 16x16/sound.xpm
232 ChangeIcon 20 16x16/cd-player.xpm
238 ChangeTitle 3 $VOLUME
240 ChangeIcon 20 16x16/sound.xpm
250 Set $GET = {exec aumix -} $COPT {q}
251 Set $VAL = (GetOutput $GET 1 3)
252 # Supression de la virgule
253 Set $TMP = (StrCopy $VAL 2 2)
255 Set $VAL = (StrCopy $VAL 1 1)
258 Set $TMP = (StrCopy $VAL 3 3)
260 Set $VAL = (StrCopy $VAL 1 2)
263 Set $TMP = (StrCopy $VAL 4 4)
265 Set $VAL = (StrCopy $VAL 1 3)
278 Icon fvwmscript/mini-right-arrow.xpm
287 ChangeIcon 20 16x16/cd-player.xpm
295 ChangeIcon 20 16x16/sound.xpm
303 ChangeIcon 20 16x16/sound.xpm
311 ChangeIcon 20 16x16/music.xpm
317 ChangeTitle 3 $SPEAKER
319 ChangeIcon 20 16x16/sound.xpm
327 ChangeIcon 20 16x16/sound.xpm
335 ChangeIcon 20 16x16/sound.xpm
343 ChangeIcon 20 16x16/sound.xpm
349 ChangeTitle 3 $VOLUME
351 ChangeIcon 20 16x16/sound.xpm
361 Set $GET = {exec aumix -} $COPT {q}
362 Set $VAL = (GetOutput $GET 1 3)
363 # Supression de la virgule
364 Set $TMP = (StrCopy $VAL 2 2)
366 Set $VAL = (StrCopy $VAL 1 1)
369 Set $TMP = (StrCopy $VAL 3 3)
371 Set $VAL = (StrCopy $VAL 1 2)
374 Set $TMP = (StrCopy $VAL 4 4)
376 Set $VAL = (StrCopy $VAL 1 3)
398 ChangeIcon 20 16x16/cd-player.xpm
406 ChangeIcon 20 16x16/sound.xpm
414 ChangeIcon 20 16x16/sound.xpm
422 ChangeIcon 20 16x16/music.xpm
428 ChangeTitle 3 $SPEAKER
430 ChangeIcon 20 16x16/sound.xpm
438 ChangeIcon 20 16x16/sound.xpm
446 ChangeIcon 20 16x16/sound.xpm
454 ChangeIcon 20 16x16/sound.xpm
460 ChangeTitle 3 $VOLUME
462 ChangeIcon 20 16x16/sound.xpm
472 Set $GET = {exec aumix -} $COPT {q}
473 Set $VAL = (GetOutput $GET 1 3)
474 # Supression de la virgule
475 Set $TMP = (StrCopy $VAL 2 2)
477 Set $VAL = (StrCopy $VAL 1 1)
480 Set $TMP = (StrCopy $VAL 3 3)
482 Set $VAL = (StrCopy $VAL 1 2)
485 Set $TMP = (StrCopy $VAL 4 4)
487 Set $VAL = (StrCopy $VAL 1 3)
495 # -----------------------------------------------------------------------------