invalid command name "font"
    while executing
"font create SeqFont -family Courier -size 24"
    (in namespace eval "::request" script line 2)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
font create SeqFont -family Courier -size 24
text .t \
    -width 10 \
    -height 10 \
    -font SeqFont \
    -bd 0 \
    -highlightthickness 0 \
    -pady 0 \
    -relief flat \
    -setgrid 1 \
    -wrap none \
    -yscrollcommand ".sv set "
scrollbar .sv \
    -bg blue \
    -command ".t yview "
pack .t .sv -expand 1 -fill y

bind .t <4> {+.t yview scroll -1 units ; break}
bind .t <5> {+.t yview scroll  1 units ; break}

set Lt [list]
foreach a {0 1 2 3 4 5 6 7 8 9 a b c d e f g h i} {
    set s [string repeat $a 10]
    lappend Lt $s
}
.t insert end [join $Lt \n]