blob: f4d46b648bd5d3f8d3a3bc498b79f64b66901c2a (
plain)
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
|
UseGettext
WindowTitle {ConfirmQuit}
WindowSize 260 80
Font "xft:Comic Code:style=Bold:size=16"
Init
Begin
End
Widget 1
Property
LocaleTitle {Actually quit Fvwm?}
Size 200 30
Position 25 0
Type ItemDraw
Flags NoReliefString
Main
Case message of
SingleClic :
Begin
End
End
Widget 2
Property
LocaleTitle {Quit}
Size 60 28
Position 30 40
Flags NoReliefString
Type PushButton
Value 1
Main
Case message of
SingleClic :
Begin
Do {Quit}
End
End
Widget 3
Property
LocaleTitle {Cancel}
Size 20 28
Position 150 40
Flags NoReliefString
Type PushButton
Value 1
Main
Case message of
SingleClic :
Begin
Quit
End
End
|
