>>332   他のファイル内で定義された変数を使う例:

# ---- a.tcl ----------------------------------------
source b.tcl    ;# グロ変数 b'data が定義される
set a'data AAA

proc main {} {
  global a'data
  global b'data
  proc packit w {pack $w -expand yes -fill x}
  packit [label .l0 -text "a'data: ${a'data}" -bg lightblue]
  packit [label .l1 -text "b'data: ${b'data}" -bg lightgreen]
  packit [label .l2 -text [join [info globals] \n] -bg pink1]
}

main

# ---- b.tcl ----------------------------------------
set b'data BBB