Posted to tcl by arjen at Wed Mar 25 08:09:28 GMT 2009view pretty

set w [toplevel .w]
set treef [ttk::frame $w.tree_frame -relief raised -borderwidth 5]
ttk::treeview $treef.tv_rec \
	-yscrollcommand [list $treef.sb_rec_vert set] \
	-xscrollcommand [list $treef.sb_rec_hor set] \
	-columns {jobid station time date duration resolution file} \
	-show headings
ttk::scrollbar $treef.sb_rec_vert \
	-orient vertical \
	-command [list $treef.tv_rec yview]
ttk::scrollbar $treef.sb_rec_hor \
	-orient horizontal \
	-command [list $treef.tv_rec xview]

grid $treef -in $w -row 0 -column 0
grid $treef.tv_rec -in $treef -row 0 -column 0 -sticky news
grid $treef.sb_rec_vert -in $treef -row 0 -column 1 \
        -sticky news
grid $treef.sb_rec_hor -in $treef -row 1 -column 0 \
	-sticky news


#grid $treef.tv_rec $treef.sb_rec_vert -sticky news
#grid $treef.sb_rec_hor -sticky news
#grid $treef -sticky news

grid rowconfigure $w 0 -weight 1
grid columnconfigure $w 0 -weight 1
grid rowconfigure $treef 0 -weight 1 
grid columnconfigure $treef 0 -weight 1

for {set i 0} { $i < 20 } {incr i} {
    $treef.tv_rec insert {} end -text Hm -values [list $i B C D E F G]
}