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] 
}