set i 0
set f$i "System"; incr i
set f$i "SystemFixed"; incr i
set f$i "Ansi"; incr i
set f$i "AnsiFixed"; incr i
set f$i "Device"; incr i
set f$i "OemFixed"; incr i

for {set j 0} {$j < $i} {incr j} {
    set fontvar f$j
    set font [set $fontvar]
    pack [button .b$j -text $font -font $font]
}
