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
|
#!../src/bltwish
package require BLT
source scripts/demo.tcl
image create picture bgTile -file ./images/smblue_rock.gif
image create picture label1 -file ./images/mini-book1.gif
image create picture label2 -file ./images/mini-book2.gif
image create picture testImage -file ./images/txtrflag.gif
scrollbar .s -command { .t view } -orient horizontal
blt::tabset .t \
-outerborderwidth 2 \
-outerrelief sunken \
-tabwidth same \
-scrollcommand { .s set } \
-slant right \
-tiers 2
label .t.l -imageicon testImage
set attributes {
graph1 "Graph \#1" red .t.graph1
graph2 "Graph \#2" green .t.graph2
graph3 "Graph \#3" cyan .t.graph3
graph5 "Graph \#5" yellow .t.graph5
graph6 one orange .t.l
}
foreach { entry label color window } $attributes {
.t insert end -text $label -fill both
}
foreach label { there bunky another test of a widget } {
set id [.t insert end -text $label]
}
set img [image create picture -file ./images/blt98.gif]
.t tab configure $id -icon label2
blt::table . \
.t 0,0 -fill both \
.s 1,0 -fill x
blt::table configure . r1 -resize none
set index 0
foreach file { graph1 graph2 graph3 graph5 } {
namespace eval $file {
set graph [blt::graph .t.$file]
source scripts/$file.tcl
.t tab configure $index -window $graph
incr index
}
}
|
