A puzzle about Sewing

box b 0 0 0 1 2 3
proc test {shape} {
    sewing s $shape
}
test $b

Failed to run. 'sewing' doesn't seem to get the parameters.

frank pian's picture

Oh, I found the reason.
TCL scope is a little different.