invalid command name "text"
    while executing
"text .t -width 10 -height 10"
    (in namespace eval "::request" script line 11)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/wish



proc gTag {w p} {
    lassign [split [$w index $p] .] y x
    $w tag add Mrk $y.$x $y.[expr {$x+1}]
    puts "[$w index $p]"
}

pack [text .t -width 10 -height 10]
.t insert end [string repeat "012345679\n" 10]
.t tag configure toto -background green
.t tag add toto 2.4 2.8 4.4 4.8 6.4 6.8
.t tag bind toto  {
    puts "tag bind"
    break
}
.t tag configure Mrk -foreground white -background blue
bind .t <1> {gTag %W @%x,%y}