1 files changed, 57 insertions, 0 deletions
diff --git a/blt/demos/tabset1.tcl b/blt/demos/tabset1.tcl
new file mode 100755
index 00000000000..ce72f34ef0f
--- /dev/null
+++ b/blt/demos/tabset1.tcl
@@ -0,0 +1,57 @@
+#!../src/bltwish
+
+package require BLT
+# --------------------------------------------------------------------------
+# Starting with Tcl 8.x, the BLT commands are stored in their own 
+# namespace called "blt".  The idea is to prevent name clashes with
+# Tcl commands and variables from other packages, such as a "table"
+# command in two different packages.  
+#
+# You can access the BLT commands in a couple of ways.  You can prefix
+# all the BLT commands with the namespace qualifier "blt::"
+#  
+#    blt::graph .g
+#    blt::table . .g -resize both
+# 
+# or you can import all the command into the global namespace.
+#
+#    namespace import blt::*
+#    graph .g
+#    table . .g -resize both
+#
+# --------------------------------------------------------------------------
+if { $tcl_version >= 8.0 } {
+    namespace import blt::*
+    namespace import -force blt::tile::*
+}
+
+source scripts/demo.tcl
+
+image create photo bgTile -file ./images/chalk.gif
+image create photo label1 -file ./images/mini-book1.gif
+image create photo label2 -file ./images/mini-book2.gif
+
+tabset .t -relief raised \
+    -activebackground yellow \
+    -bg red -borderwidth 0 -highlightthickness 0 \
+    -scrollcommand { .s set } \
+    -width 3i 
+
+#option add *iPadX 4
+#option add *iPadY 2
+
+.t insert end First \
+    -image label1 \
+    -anchor center \
+    -selectbackground darkolivegreen2  \
+    Again Next another test of \
+    a -image label2 widget 
+
+scrollbar .s -command { .t view } -orient horizontal
+table . \
+    .t 0,0 -fill both \
+    .s 1,0 -fill x 
+
+table configure . r1 -resize none
+focus .t
+