set i 0
set f$i "Symbol-Medium-18"; incr i
set f$i "WingDings-Medium-18"; incr i

set f$i "Arial-Thin Italic-30"; incr i
set f$i "Arial-Extralight Italic-30"; incr i
set f$i "Arial-Light Italic-30"; incr i
set f$i "Arial-Normal Italic-30"; incr i
set f$i "Arial-Medium Italic-30"; incr i
set f$i "Arial-Semibold Italic-30"; incr i
set f$i "Arial-Bold Italic-30"; incr i
set f$i "Arial-Extrabold Italic-30"; incr i
set f$i "Arial-Heavy Italic-30"; 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]
}
