invalid command name "font"
    while executing
"font create SeqFont -family Courier -size 8"
    (in namespace eval "::request" script line 3)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/home/moumou/tcl8.6b1/lubin/bin/wish8.6

font create SeqFont -family Courier -size 8
text .t \
	-relief sunken \
	-bd 2 \
	-font SeqFont \
	-cursor left_ptr \
	-yscrollcommand ".sy set" \
	-setgrid 1 \
	-width 20 \
	-wrap none \
	-foreground black \
	-background white \
	-selectbackground white \
	-selectforeground black \
	-selectborderwidth 0 \
	-inactiveselectbackground white \
	-state disabled \
	-selectforeground black \
	-selectborderwidth 0 \
	-autoseparators 0 \
	-undo 1 \
	-highlightthickness 0
scrollbar .sy -orient vertical -command ".t yview"

grid .t  -row 0 -column 0
grid .sy -row 0 -column 1 -sticky ns

.t configure -state normal
for {set i 0} {$i < 100} {incr i} {
    .t insert end "[string repeat $i 30]\n"
}
.t configure -state disabled