1#!/usr/local/bin/bltwish 2 3package require BLT 4# -------------------------------------------------------------------------- 5# Starting with Tcl 8.x, the BLT commands are stored in their own 6# namespace called "blt". The idea is to prevent name clashes with 7# Tcl commands and variables from other packages, such as a "table" 8# command in two different packages. 9# 10# You can access the BLT commands in a couple of ways. You can prefix 11# all the BLT commands with the namespace qualifier "blt::" 12# 13# blt::graph .g 14# blt::table . .g -resize both 15# 16# or you can import all the command into the global namespace. 17# 18# namespace import blt::* 19# graph .g 20# table . .g -resize both 21# 22# -------------------------------------------------------------------------- 23if { $tcl_version >= 8.0 } { 24 namespace import blt::* 25 namespace import -force blt::tile::* 26} 27 28source scripts/demo.tcl 29 30image create photo bgTile -file ./images/chalk.gif 31image create photo label1 -file ./images/mini-book1.gif 32image create photo label2 -file ./images/mini-book2.gif 33 34tabset .t -relief raised \ 35 -activebackground yellow \ 36 -bg red -borderwidth 0 -highlightthickness 0 \ 37 -scrollcommand { .s set } \ 38 -width 3i 39 40#option add *iPadX 4 41#option add *iPadY 2 42 43.t insert end First \ 44 -image label1 \ 45 -anchor center \ 46 -selectbackground darkolivegreen2 \ 47 Again Next another test of \ 48 a -image label2 widget 49 50scrollbar .s -command { .t view } -orient horizontal 51table . \ 52 .t 0,0 -fill both \ 53 .s 1,0 -fill x 54 55table configure . r1 -resize none 56focus .t 57 58