Tcl/Tk - やするん＠Wiki

ファイル読み込み

   set fp [open $fname($x) r]
   while {[gets $fp data]>0} {
       scan $data "%s %s" qj($i) qa($i)
       puts stdout [format "%s %s"  $qj($i) $qa($i)]
       incr i
   }
   close $fp

スプリット

set $c [lindex [split $data ","] $j]

最大化したとき、枠をいっぱいに広げる

grid rowconfigure . 1 -weight 100
grid rowconfigure . 2 -weight 100
grid columnconfigure . 2 -weight 100