HP/util/HP/lib/blt2.4/demos/tabset2

   1 #!/home/people/tkys/Eos/util/HP/bin/bltwish
   2 #!../bltwish
   3
   4 source bltDemo.tcl
   5 #bltdebug 100
   6
   7 image create photo bgTile -file ./images/smblue_rock.gif
   8 image create photo label1 -file ./images/mini-book1.gif
   9 image create photo label2 -file ./images/mini-book2.gif
  10 image create photo testImage -file ./images/txtrflag.gif
  11
  12 scrollbar .s -command { .t view } -orient horizontal
  13 tabset .t \
  14     -relief flat \
  15     -bd 2 \
  16     -textside top \
  17     -side right \
  18     -rotate 90  \
  19     -samewidth yes \
  20     -tiers 2 \
  21     -scrollcommand { .s set } \
  22     -tile bgTile \
  23     -dashes {4 2} \
  24     -scrollincrement 1 \
  25
  26 set graph .t.graph1
  27 option clear
  28 source graph1.tcl
  29
  30 set graph .t.graph2
  31 option clear
  32 source graph2.tcl
  33
  34 set graph .t.graph3
  35 option clear
  36 source graph3.tcl
  37 set graph .t.graph5
  38 option clear
  39 source barchart2.tcl
  40
  41 label .t.l -image testImage
  42
  43 option clear
  44
  45 #option add *Tab.state disabled
  46
  47 set attributes {
  48    "Graph \#1" red      .t.graph1
  49     "Graph \#2" green   .t.graph2
  50     "Graph \#3" cyan    .t.graph3
  51     "Graph \#5" yellow  .t.graph5
  52     one         orange  .t.l
  53 }
  54
  55 foreach { label color window } $attributes {
  56     .t insert end $label -window $window -fill both \
  57         -selectbackground ${color}1  \
  58         -background ${color}2 -activebackground ${color}3
  59 }
  60
  61 .t insert end \
  62     there bunky another test of \
  63     a -image label2 widget
  64
  65 table . \
  66     .t 0,0 -fill both \
  67     .s 1,0 -fill x
  68
  69 table configure . r1 -resize none
  70 #focus .t
  71
  72 #.t invoke end