Posted to tcl by kevin_walzer at Sat Aug 01 16:39:34 GMT 2009view pretty
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] }