Posted to tcl by arjen at Wed Mar 25 08:09:28 GMT 2009view raw
- 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]
- }