# Change /etc/mail to a folder on your system that has files and subfolders. # /Volumes/Scratch is good on the Lab Macs # "C:/Documents and Folders/All/Documents" is good on a Windows XP box. # cd /etc/mail set winNum 0 set row 0 set col 0 foreach name [glob *] { if {[file type $name] eq "file"} { set w [label .l[incr winNum] -text $name -foreground blue] } elseif {[file type $name] eq "directory"} { set w [label .l[incr winNum] -text $name -foreground red] } else { set w [label .l[incr winNum] -text $name -foreground black] } grid $w -row $row -column $col incr col if {$col > 4} { set col 0 incr row } }