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
|
package require BLT
source scripts/demo.tcl
blt::drawerset .ds \
-handlethickness 3 \
-animate yes \
-width 800 \
-height 700 \
-window .ds.g
blt::graph .ds.g -bg \#CCCCFF
blt::barchart .ds.top -bg \#FFCCCC -height 1600 -width 300
blt::barchart .ds.left -bg \#CCFFCC -height 300 -width 300
blt::barchart .ds.right -bg \#FFFFCC -height 300 -width 300
blt::barchart .ds.bot -bg \#CCFFFF -height 300 -width 300
.ds add top -window .ds.top \
-side top \
-variable top \
-handlecolor \#FFCCCC \
-showhandle no \
-fill none
.ds add left \
-window .ds.left \
-side left \
-width { 2i 4i } \
-variable left \
-handlecolor \#CCFFCC \
-showhandle yes \
-fill none
.ds add right \
-window .ds.right \
-side right \
-variable right \
-handlecolor \#FFFFCC \
-fill none
.ds add bottom \
-window .ds.bot \
-side right \
-variable bottom \
-handlecolor \#CCFFFF \
-showhandle yes \
-resize no \
-fill both
blt::tk::pushbutton .left -text "L" -variable left
blt::tk::pushbutton .right -text "R" -overrelief raised \
-variable right
blt::tk::pushbutton .top -text "T" -overrelief raised \
-variable top
blt::tk::pushbutton .bottom -text "B" -overrelief raised \
-variable bottom
blt::table . \
0,0 .ds -fill both -rspan 5 \
0,1 .left -pady 4 \
1,1 .right -pady 4 \
2,1 .top -pady 4 \
3,1 .bottom -pady 4 -padx 4
blt::table configure . r* -resize none
blt::table configure . r4 -resize both
.ds open all
update
after 2000 {
.ds raise top
}
focus .ds
|
