set foo "GOMI"
hoge 123
みたいに使う。
一番上のウインドウの名前は . である。
これがどんな設定になっているかをみるには
. configure
とすればよい
set f1 [open |/home/junichi/work/perl/ticker.pl r+]
while {[gets $f1 line] >= 0} {
}