1WindowTitle {Buttons}
2WindowSize 548 95		# Size
3WindowPosition 0 0		# Position
4ForeColor	{#000000}
5BackColor	{#d0d0d0}
6ShadowColor	{#858585}
7HilightColor	{#FFFFFF}
8Font		-adobe-helvetica-bold-r-*-*-12-*
9
10Init
11 Begin
12 End
13
14Widget 1
15Property
16 Size 65 65
17 Position 15 15
18 Type SwallowExec
19 Title {xclock}
20 Value -1
21 SwallowExec {exec xclock -analog -padding 0 -geometry 70x56-1500-1500 -fg MidnightBlue -hd Blue -hl Blue -bg Grey85 &}
22Main
23 Case message of
24  SingleClic :
25  Begin
26  End
27End
28
29Widget 2
30Property
31 Size 40 71
32 Position 88 12
33 Type SwallowExec
34 Title {xload}
35 SwallowExec {exec xload -nolabel -bg Grey85 -fg Yellow -update 3 -geometry 30x56-1500-1500 &}
36Main
37 Case message of
38  SingleClic :
39  Begin
40  End
41End
42
43Widget 3
44Property
45 Size 140 65
46 Position 136 15
47 Type SwallowExec
48 Title {FvwmPager}
49 Value -1
50 SwallowExec {Module FvwmPager 0 0}
51Main
52 Case message of
53  SingleClic :
54  Begin
55  End
56End
57
58Widget 4
59Property
60 Size 281 85
61 Position 5 5
62 Type Rectangle
63Main
64 Case message of
65  SingleClic :
66  Begin
67  End
68End
69
70Widget 5
71Property
72 Size 251 85
73 Position 291 5
74 Type Rectangle
75Main
76 Case message of
77  SingleClic :
78  Begin
79  End
80End
81
82
83Widget 7
84Property
85 Size 1 1
86 Position 296 10
87 Type PushButton
88 Title {|XV|XPaint|Image Magic|XFig|XMag|Screen Dump}
89 Icon small.Paint2.xpm
90Main
91 Case message of
92  SingleClic :
93  Begin
94   If (GetValue 7)==1 Then
95    Do {Exec xv &}
96   If (GetValue 7)==2 Then
97    Do {Exec xpaint &}
98   If (GetValue 7)==3 Then
99    Do {Exec xterm -geometry -5000-5000 -e display &}
100   If (GetValue 7)==4 Then
101    Do {Exec xfig &}
102   If (GetValue 7)==5 Then
103    Do {Exec xmag &}
104   If (GetValue 7)==6 Then
105    Do {Module FvwmScript ScreenDump}
106  End
107End
108
109Widget 8
110Property
111 Size 1 1
112 Position 331 10
113 Type PushButton
114 Title {|XCalc|HP 48GX}
115 Icon small.calc.next.xpm
116Main
117 Case message of
118  SingleClic :
119  Begin
120   If (GetValue 8)==1 Then
121    Do {exec xcalc &}
122   If (GetValue 8)==2 Then
123    Do {exec x48 &}
124  End
125End
126
127Widget 9
128Property
129 Size 1 1
130 Position 366 10
131 Type PushButton
132 Title {|TextEdit|MEdit|XEdit|Axe|Netscape|Clipboard|Plan}
133 Icon small.note.next.xpm
134Main
135 Case message of
136  SingleClic :
137  Begin
138   If (GetValue 9)==1 Then
139    Do {Exec textedit -En 30 &}
140   If (GetValue 9)==2 Then
141    Do {Exec medit &}
142   If (GetValue 9)==3 Then
143    Do {Exec xedit &}
144   If (GetValue 9)==4 Then
145    Do {Exec coaxe &}
146   If (GetValue 9)==5 Then
147    Do {Exec bash -c "netscape" &}
148   If (GetValue 9)==6 Then
149    Do {Exec xclipboard &}
150   If (GetValue 9)==7 Then
151    Do {Exec plan &}
152  End
153End
154
155Widget 10
156Property
157 Size 1 1
158 Position 471 10
159 Type PushButton
160 Title {|Random|Bat|Blot|Bouboule|Bounce|Flame|Galaxy|Grav|Helix|Hop|Maze}
161 Icon small.lock.xpm
162Main
163 Case message of
164  SingleClic :
165  Begin
166   If (GetValue 10)==1 Then
167    Do {Exec xlock -nolock -nice 0 -mode random &}
168   If (GetValue 10)==2 Then
169    Do {Exec xlock -nolock -nice 0 -mode bat &}
170   If (GetValue 10)==3 Then
171    Do {Exec xlock -nolock -nice 0 -mode blot &}
172   If (GetValue 10)==4 Then
173    Do {Exec xlock -nolock -nice 0 -mode bouboule &}
174   If (GetValue 10)==5 Then
175    Do {Exec xlock -nolock -nice 0 -mode bounce &}
176   If (GetValue 10)==6 Then
177    Do {Exec xlock -nolock -nice 0 -mode flame &}
178   If (GetValue 10)==7 Then
179    Do {Exec xlock -nolock -nice 0 -mode galaxy &}
180   If (GetValue 10)==8 Then
181    Do {Exec xlock -nolock -nice 0 -mode grav &}
182   If (GetValue 10)==9 Then
183    Do {Exec xlock -nolock -nice 0 -mode helix &}
184   If (GetValue 10)==10 Then
185    Do {Exec xlock -nolock -nice 0 -mode hop &}
186   If (GetValue 10)==11 Then
187    Do {Exec xlock -nolock -nice 0 -mode maze &}
188  End
189End
190
191Widget 11
192Property
193 Size 1 1
194 Position 506 10
195 Type PushButton
196 Icon small.exit.xpm
197Main
198 Case message of
199  SingleClic :
200  Begin
201   Do {Module FvwmScript FvwmScript-Quit}
202  End
203End
204
205Widget 12
206Property
207 Size 1 1
208 Position 436 10
209 Type PushButton
210 Title {|Display|Bell|Keyboard|Pointer|Date|Desktop}
211 Icon small.tools2_3d.xpm
212Main
213 Case message of
214  SingleClic :
215  Begin
216   If (GetValue 12)==1 Then
217    Do {Module FvwmScript FvwmScript-ScreenSetup}
218   If (GetValue 12)==2 Then
219    Do {Module FvwmScript FvwmScript-BellSetup}
220   If (GetValue 12)==3 Then
221    Do {Module FvwmScript FvwmScript-KeyboardSetup}
222   If (GetValue 12)==4 Then
223    Do {Module FvwmScript FvwmScript-PointerSetup}
224   If (GetValue 12)==5 Then
225    Do {Module FvwmScript FvwmScript-Date}
226   If (GetValue 12)==6 Then
227    Do {Module FvwmScript FvwmScript-DeskSetup}
228  End
229End
230
231Widget 13
232Property
233 Size 1 1
234 Position 401 10
235 Type PushButton
236 Title {|TkMan|XMan}
237 Icon small.man.next.xpm
238Main
239 Case message of
240  SingleClic :
241  Begin
242   If (GetValue 13)==1 Then
243    Do {Exec tkman &}
244   If (GetValue 13)==2 Then
245    Do {Exec xman -notopbox &}
246  End
247End
248
249Widget 6
250Property
251 Size 240 40
252 Position 296 45
253 Type SwallowExec
254 Title {TkDesk Application Bar}
255 SwallowExec {exec tkdesk &}
256Main
257 Case message of
258  SingleClic :
259  Begin
260  End
261End
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290