Posted to tcl by kevin_walzer at Sat Aug 01 16:39:34 GMT 2009view raw
- image create photo folder -data {R0lGODlhEAAMAKEAAAD//wAAAPD/gAAAACH5\
- BAEAAAAALAAAAAAQAAwAAAIghINhyycvVFsB\
- QtmS3rjaH1Hg141WaT5ouprt2HHcUgAAOw==}
- image create photo filename -data {R0lGODlhDAAMAKEAALLA3AAAAP//8wAAACH5\
- BAEAAAAALAAAAAAMAAwAAAIgRI4Ha+IfWHsO\
- rSASvJTGhnhcV3EJlo3kh53ltF5nAhQAOw==}
- ttk::treeview .listbox -columns {file path} -show headings
- foreach col {file path} name {File Path} {
- .listbox heading $col -text $name
- }
- pack .listbox -fill both -expand yes
- set data {
- test.txt /Home/Documents/code
- mail.txt /Home/Documents/mail
- finances.txt /Home/Documents/finances
- }
- foreach {file path} $data {
- .listbox insert {} end -values [list $file $path]
- }