Posted to tcl by emiliano at Thu Nov 11 19:26:09 GMT 2010view raw

  1. package require Tk
  2.  
  3. proc buildtree {tv} {
  4. catch {destroy $tv}
  5. append tv $i
  6. ttk::treeview $tv -columns {hello bye} -show headings
  7. $tv column hello -width 120 -stretch 0
  8. $tv column bye -width 120 -stretch 0
  9. $tv heading hello -text "Hello\nWorld"
  10. $tv heading bye -text "Bye\nWorld"
  11. # this set the correct heading height, but only on the first treeview
  12. $tv heading #0 -text "H\nj"
  13. pack $tv
  14. }
  15.  
  16. buildtree .tv
  17. after 3000 buildtree .tv
  18.  

Comments

Posted by emiliano at Thu Nov 11 19:36:25 GMT 2010 [text] [code]

oops, remove the [append tv $i] line