
set heirarchy_library ..
source ../heirarchy.tcl

proc test {} {
    global env
    wm minsize . 1 1
    catch {destroy .box.h .sv .sh .box}
    frame .box
    pack .box -expand 1 -fill both -side left
    heirarchy .box.h \
	-height 200 \
	-width 400 \
	-expand 1 \
	-rootnode $env(HOME) \
	-rootanchor s \
	-commonselect 1 \
	-debug 0 \
	-xscroll ".sh set" \
	-yscroll ".sv set"

    scrollbar .sh -orient hor -command ".box.h.canv xview"
    scrollbar .sv -orient vert -command ".box.h.canv yview"
    pack .box.h -side top -expand yes -fill both
    pack .sh -in .box -side bottom -fill x
    pack .sv -side right -fill y
}


proc t {} {
    source ./test
    source ../heirarchy.tcl
    test
}


after 1 { test }
