blob: c6561a7a72472772f2862b7b61a7879e07a0fe19 (
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
|
# FRAME.GUI -- Test GUI for the frame and layout widgets.
# This gui can be run as "cl> hello gui=frame.gui".
reset-server
appInitialize frame Frame {
*objects:\
toplevel Frame frame\
frame Layout panel\
panel Frame label1_frame\
label1_frame Label label1\
panel Frame label2_frame\
label2_frame Label label2\
panel Command button1\
panel Command button2
*background: gray
*foreground: black
*frame.highlightThickness: 0
*frame.frameWidth: 4
*frame.frameType: chiseled
*frame.innerOffset: 5
*frame.outerOffset: 5
*panel.debug: True
*panel.borderWidth: 0
*panel.layout: vertical {\
5 < +inf - 5 > \
horizontal { \
-1 \
label1_frame < +inf * +inf > \
-1 \
} \
5 < +inf - 5 > \
horizontal { \
-1 \
label2_frame < +inf * +inf > \
-1 \
} \
5 < +inf - 5 > \
horizontal {\
-1 < +inf > \
button1 \
5 < +inf -5 > \
button2 \
-1 < +inf > \
}\
5 < +inf - 5 > \
}
*Label.borderWidth: 0
*Label.background: gray60
*label1*shadowWidth: 0
*label1_frame.frameType: sunken
*label1_frame.frameWidth: 2
*label2*shadowWidth: 0
*label2_frame.frameType: sunken
*label2_frame.frameWidth: 2
*allowShellResize: true
*beNiceToColormap: False
}
# Start up the GUI.
createObjects
activate
proc quit args { send client gkey q; deactivate unmap }
send button1 addCallback quit
|
