invalid command name "text"
    while executing
"text .t -wrap none"
    (in namespace eval "::request" script line 1)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
pack [text .t -wrap none] -fill both -expand 1
set count 0
set tabwidth 0

foreach family [lsort -dictionary [font families]] {
    .t tag configure f10[incr count10] -font [list $family 10] -background cyan
    .t tag configure f6[incr count6] -font [list $family 6] -background green
    set fx [font metrics [list $family 10] -fixed]
    .t insert end "$fx ${family} 10:\t" {} \
            "A..C.L.MFl.l..\n" f10${count10}
    .t insert end "$fx ${family}  6:\t" {} \
            "A..C.L.MFl.l..\n" f6${count6}
    set w [font measure [.t cget -font] "${family} 10:"]
    if {$w+5 > $tabwidth} {
        set tabwidth [expr {$w+5}]
        .t configure -tabs $tabwidth
    }
}