Posted to tcl by kevin_walzer at Sat Aug 01 16:39:34 GMT 2009view raw

  1. image create photo folder -data {R0lGODlhEAAMAKEAAAD//wAAAPD/gAAAACH5\
  2. BAEAAAAALAAAAAAQAAwAAAIghINhyycvVFsB\
  3. QtmS3rjaH1Hg141WaT5ouprt2HHcUgAAOw==}
  4.  
  5. image create photo filename -data {R0lGODlhDAAMAKEAALLA3AAAAP//8wAAACH5\
  6. BAEAAAAALAAAAAAMAAwAAAIgRI4Ha+IfWHsO\
  7. rSASvJTGhnhcV3EJlo3kh53ltF5nAhQAOw==}
  8.  
  9.  
  10. ttk::treeview .listbox -columns {file path} -show headings
  11.  
  12. foreach col {file path} name {File Path} {
  13. .listbox heading $col -text $name
  14. }
  15.  
  16. pack .listbox -fill both -expand yes
  17.  
  18.  
  19.  
  20. set data {
  21.  
  22. test.txt /Home/Documents/code
  23. mail.txt /Home/Documents/mail
  24. finances.txt /Home/Documents/finances
  25.  
  26. }
  27.  
  28. foreach {file path} $data {
  29. .listbox insert {} end -values [list $file $path]
  30. }