Example: File Viewer (4)

foreach file $files {

if ![file isdirectory $file] {
$tlist insert end -itemtype imagetext \
-image [tix getimage textfile] -text $file
}
}
}

Previous slide

Next slide

Back to first slide

View graphic version