#!../bltwish

source bltDemo.tcl
#bltdebug 100

image create photo bgTile -file ./images/smblue_rock.gif
image create photo label1 -file ./images/mini-book1.gif
image create photo label2 -file ./images/mini-book2.gif
image create photo testImage -file ./images/txtrflag.gif

scrollbar .s -command { .t view } -orient horizontal
tabset .t \
    -relief flat \
    -bd 2 \
    -textside top \
    -side right \
    -rotate 90  \
    -samewidth yes \
    -tiers 2 \
    -scrollcommand { .s set } \
    -tile bgTile \
    -dashes {4 2} \
    -scrollincrement 1 \

set graph .t.graph1
option clear
source graph1.tcl

set graph .t.graph2
option clear
source graph2.tcl

set graph .t.graph3
option clear
source graph3.tcl
set graph .t.graph5
option clear
source barchart2.tcl

label .t.l -image testImage

option clear

#option add *Tab.state disabled

set attributes {
   "Graph \#1" red	.t.graph1  
    "Graph \#2" green	.t.graph2  
    "Graph \#3" cyan	.t.graph3  
    "Graph \#5" yellow	.t.graph5  
    one		orange	.t.l       
}

foreach { label color window } $attributes {
    .t insert end $label -window $window -fill both \
	-selectbackground ${color}1  \
	-background ${color}2 -activebackground ${color}3  
}

.t insert end \
    there bunky another test of \
    a -image label2 widget

table . \
    .t 0,0 -fill both \
    .s 1,0 -fill x 

table configure . r1 -resize none
#focus .t

#.t invoke end
