# 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 *] {
  set w [label .l[incr winNum] -text $name  ]
  grid $w -row $row -column $col
  incr col
  # Only go four columns wide
  if {$col > 4} {
     set col 0
     incr row
  }
}