You are here

button에서 변수를 넘기기..

안녕하세요. 처음으로 tcl를 배우고 있는 사람입니다.
간단한듯한데.. 잘 풀리지 않는 문제가 있어서 질문 드립니다.

button에서 -command 또는 bind를 써서 변수를 넘기려 하는데요..

--------------------------------------------------
set a 1
button .b1 -text "a를 넘기자" -command { puts $a }

-------------------------------------------------
이런 식으로 global 변수는 문제가 없는데 proc를 선언후 만든 로컬 변수에서는 a를 찾을 수 없다고 나오네요..

--------------------------------------------------
proc AAA {} {
set a 1
button .b1 -text "a를 넘기자" -command { puts $a }
}
-------------------------------------------------

혹시 문제를 아시는 분 계시면 도움주시면 감사하겠습니다. 좋은 하루 되세요.