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] }