blob: 7e521dad3132cc1bb66de9940a7804eb738fcaa0 (
plain) (
blame)
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
# PANEL.GUI -- Test GUI for the frame and layout widgets.
# This gui can be run as "cl> hello gui=panel.gui".
reset-server
appInitialize panel Panel {
*objects:\
toplevel Frame frame\
frame Layout panel\
panel Frame label1F\
label1F Label label1\
panel Frame label2F\
label2F Label label2\
panel Command button1\
panel Command button2\
panel RadioGroup color
*background: gray
*foreground: black
*frame.highlightThickness: 0
*frame.frameWidth: 2
*frame.frameType: chiseled
*frame.innerOffset: 5
*frame.outerOffset: 5
*panel.debug: False
*panel.borderWidth: 0
*panel.layout: horizontal { \
0 < +inf > \
vertical { \
5 < +inf -5 > \
horizontal { \
-1 \
label1F < +inf * +inf > \
-1 \
} \
5 < +inf -5 > \
horizontal { \
-1 \
label2F < +inf * +inf > \
-1 \
} \
5 < +inf -5 > \
horizontal {\
-1 < +inf > \
button1 < +inf * +inf > \
5 < +inf -5 > \
button2 < +inf * +inf > \
-1 < +inf > \
}\
5 < +inf -5 > \
} \
0 < +inf > \
color < +inf * +inf > \
0 < +inf > \
}
*Command.highlightThickness: 0
*Label.borderWidth: 0
*Label.background: gray60
*label1*shadowWidth: 0
*label1F.frameType: sunken
*label1F.frameWidth: 2
*label2*shadowWidth: 0
*label2F.frameType: sunken
*label2F.frameWidth: 2
*color.location: 0 0 100 0
*color.shrinkToFit: True
*color.outerOffset: 5
*color.innerOffset: 5
*color.frameWidth: 2
*color*offIcon: diamond0s
*color*onIcon: diamond1s
*color.red.highlightColor: red
*color.green.highlightColor: green
*color.blue.highlightColor: blue
*color.yellow.highlightColor: yellow
*color.label: Color:
*color.labels: |red|green|blue|yellow
*color.selectionStyle: multi
*color.selection: 0
*allowShellResize: true
*beNiceToColormap: False
}
# Start up the GUI.
createObjects
activate
proc quit args { send client gkey q; deactivate unmap }
send button1 addCallback quit
|
