Posted to tcl by saedelaere at Wed Mar 25 07:42:08 GMT 2009view raw

  1. set treef [ttk::frame $w.tree_frame -relief raised -borderwidth 5]
  2. ttk::treeview $treef.tv_rec \
  3. -yscrollcommand [list $treef.sb_rec_vert set] \
  4. -xscrollcommand [list $treef.sb_rec_hor set] \
  5. -columns {jobid station time date duration resolution file} \
  6. -show headings
  7. ttk::scrollbar $treef.sb_rec_vert \
  8. -orient vertical \
  9. -command [list $treef.tv_rec yview]
  10. ttk::scrollbar $treef.sb_rec_hor \
  11. -orient horizontal \
  12. -command [list $treef.tv_rec xview]
  13.  
  14. grid $treef -in $w -row 1 -column 0
  15.  
  16. grid $treef.tv_rec -in $treef -row 0 -column 0
  17. grid $treef.sb_rec_vert -in $treef -row 0 -column 1 \
  18. -sticky ns
  19. grid $treef.sb_rec_hor -in $treef -row 1 -column 0 \
  20. -sticky ew
  21.  
  22.