1 files changed, 100 insertions, 0 deletions
diff --git a/blt/demos/hierbox2.tcl b/blt/demos/hierbox2.tcl
new file mode 100755
index 00000000000..dad7dd1e7f6
--- /dev/null
+++ b/blt/demos/hierbox2.tcl
@@ -0,0 +1,100 @@
+#!../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
+
+proc AddDirEntries { w dir } {
+    if { [file isdirectory $dir] } {
+	set files [glob -nocomplain $dir/*] 
+	eval $w insert end [lsort $files]
+	set subdirs [glob -nocomplain $dir/*/]
+	eval $w entry configure [lsort $subdirs] -button yes
+    }
+}
+
+set imageList {}
+foreach f [glob ./images/mini-*.gif] {
+    lappend imageList [image create photo -file $f]
+}
+
+set top ../
+
+#option add *Hierbox.Tile	bgTexture
+option add *Hierbox.TileOffset  yes
+
+option add *forceGadgets	no
+option add *Hierbox.openCommand	{ 
+    AddDirEntries %W "$top/%P"
+}
+option add *Hierbox.closeCommand {
+    eval %W delete %n 0 end
+}
+
+image create photo openFolder -file images/open.gif
+image create photo closeFolder -file images/close.gif
+
+option add *Hierbox.icons "closeFolder openFolder"
+
+#option add *Hierbox.Button.activeForeground red
+#option add *Hierbox.bindTags "Label all"
+
+hierbox .h  \
+    -selectmode multiple \
+    -hideroot yes \
+    -yscrollcommand { .vs set } \
+    -xscrollcommand { .hs set }
+
+.h button configure -activebackground grey92
+scrollbar .vs -orient vertical -command { .h yview }
+scrollbar .hs -orient horizontal -command { .h xview }
+button .test -text Test -command {
+    set index [.h curselection]
+    set names [eval .h get -full $index]
+    puts "selected names are $names"
+}
+
+button .quit -text Quit -command { exit 0 }
+
+table . \
+    0,0 .h  -fill both \
+    2,0 .quit \
+    0,1 .vs -fill y 1,0 .hs -fill x \
+    3,0 .test
+
+table configure . c1 r1 r2 r3 -resize none
+
+.h configure -separator "/" -trim $top \
+    -allowduplicates no 
+
+#.h entry configure 0 -label [file tail $top] 
+
+AddDirEntries .h $top
+focus .h
+set nodes [.h find -glob -name *.c]
+eval .h entry configure $nodes -labelcolor red 
+
+wm protocol . WM_DELETE_WINDOW { destroy . }
+#blt::bltdebug 100
+\ No newline at end of file