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