# These are tests of different X font patterns.

set i 0
set f$i "*-Times-Medium-R-Normal-*-180-*"; incr i
set f$i "*Times"; incr i
set f$i "*Times*"; incr i
set f$i "-Adobe-helvetica-medium-r-normal-*-240*"; incr i
set f$i "-*-Courier-Bold-o-*-*-*-120-75-75-*-*-*"; incr i
set f$i "-*-Courier-Bold-o-*-75-75-*"; incr i
set f$i "*Courier-Bold-o-*-120*"; incr i
set f$i "*Times-Medium-o-*-120*"; incr i
set f$i "*Courier-Bold-*-120*"; incr i
set f$i "*Courier-Bold*180"; 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]
}
