1WindowTitle {Bell}
2WindowSize 360 230		# Taille
3WindowPosition 191 50		# Position
4ForeColor	{black}
5BackColor	{grey85}
6ShadowColor	{grey55}
7HilightColor	{grey100}
8Font		-adobe-helvetica-bold-r-*-*-12-*
9
10Init
11 Begin
12  WarpPointer 2
13  ChangeValue 4 (GetOutput  {xset -q} 8 3)
14  ChangeTitle 6 (GetOutput  {xset -q } 8 6)
15  ChangeTitle 8 (GetOutput  {xset -q} 8 9)
16 End
17
18Widget 1
19Property
20 Size 50 30
21 Position 100 180
22 Type PushButton
23 Title {Apply}
24Main
25 Case message of
26  SingleClic :
27  Begin
28   Do {Exec "xset" xset b } (GetValue 4) { } (GetTitle 6) { } (GetTitle 8)
29  End
30End
31
32Widget 2
33Property
34 Size 50 30
35 Position 190 180
36 Type PushButton
37 Title {OK}
38Main
39 Case message of
40  SingleClic :
41  Begin
42   Do {Exec "xset" xset b } (GetValue 4) { } (GetTitle 6) { } (GetTitle 8)
43   WriteToFile .xinitrc-fvwm {xset b } (GetValue 4) { } (GetTitle 6) { } (GetTitle 8)
44   Quit
45  End
46End
47
48Widget 3
49Property
50 Size 50 30
51 Position 280 180
52 Type PushButton
53 Title {Cancel}
54Main
55 Case message of
56  SingleClic :
57  Begin
58   Quit
59  End
60End
61
62Widget 4
63Property
64 Size 250 1
65 Position 90 30
66 Type HScrollBar
67 MinValue 0
68 MaxValue 100
69 Value 0
70Main
71 Case message of
72  SingleClic :
73  Begin
74  End
75End
76
77Widget 5
78Property
79 Position 20 53
80 Type ItemDraw
81 Title {Volume:}
82Main
83 Case message of
84  SingleClic :
85  Begin
86  End
87End
88
89Widget 6
90Property
91 Size 60 1
92 Position 90 90
93 Type TextField
94Main
95 Case message of
96  SingleClic :
97  Begin
98  End
99End
100
101Widget 7
102Property
103 Position 20 95
104 Type ItemDraw
105 Title {Pitch(Hz):}
106Main
107 Case message of
108  SingleClic :
109  Begin
110  End
111End
112
113Widget 8
114Property
115 Size 60 1
116 Position 280 90
117 Type TextField
118Main
119 Case message of
120  SingleClic :
121  Begin
122  End
123End
124
125Widget 9
126Property
127 Position 190 95
128 Type ItemDraw
129 Title {Duration(ms):}
130Main
131 Case message of
132  SingleClic :
133  Begin
134  End
135End
136
137Widget 10
138Property
139 Size 340 130
140 Position 10 10
141 Type Rectangle
142Main
143 Case message of
144  SingleClic :
145  Begin
146  End
147End
148
149Widget 11
150Property
151 Position 15 3
152 Type ItemDraw
153 Title {Bell}
154Main
155 Case message of
156  SingleClic :
157  Begin
158  End
159End
160
161
162
163
164
165
166
167
168
169
170