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

  1. set w [toplevel .w]
  2. set treef [ttk::frame $w.tree_frame -relief raised -borderwidth 5]
  3. ttk::treeview $treef.tv_rec \
  4. -yscrollcommand [list $treef.sb_rec_vert set] \
  5. -xscrollcommand [list $treef.sb_rec_hor set] \
  6. -columns {jobid station time date duration resolution file} \
  7. -show headings
  8. ttk::scrollbar $treef.sb_rec_vert \
  9. -orient vertical \
  10. -command [list $treef.tv_rec yview]
  11. ttk::scrollbar $treef.sb_rec_hor \
  12. -orient horizontal \
  13. -command [list $treef.tv_rec xview]
  14.  
  15. grid $treef -in $w -row 0 -column 0
  16. grid $treef.tv_rec -in $treef -row 0 -column 0 -sticky news
  17. grid $treef.sb_rec_vert -in $treef -row 0 -column 1 \
  18. -sticky news
  19. grid $treef.sb_rec_hor -in $treef -row 1 -column 0 \
  20. -sticky news
  21.  
  22.  
  23. #grid $treef.tv_rec $treef.sb_rec_vert -sticky news
  24. #grid $treef.sb_rec_hor -sticky news
  25. #grid $treef -sticky news
  26.  
  27. grid rowconfigure $w 0 -weight 1
  28. grid columnconfigure $w 0 -weight 1
  29. grid rowconfigure $treef 0 -weight 1
  30. grid columnconfigure $treef 0 -weight 1
  31.  
  32. for {set i 0} { $i < 20 } {incr i} {
  33. $treef.tv_rec insert {} end -text Hm -values [list $i B C D E F G]
  34. }