You are here

질문 드립니다.

array set test {
a "aa"
b "bb"
c "cc"
}

proc test1 {param} {
upvar $param gVar
set test(d) "dd"
button .a -text "A" -command [list puts "tmp1: [array get gVar]"]
button .b -text "B" -command [list test2 gVar]
pack .a .b
}

proc test2 {param} {
upvar $param gVar
set gVar(d) "dd"
puts "tmp2: [array get gVar]"
}

test1 test

결과
tmp1: a aa b bb c cc
tmp2: d dd

B버튼을 누를 때 global array 변수 d를 추가하여 출력하려고 하는데 추가한 d 만 출력됩니다.
tmp2: d dd a aa b bb c cc 처럼 나오게 하려면 어떻게 해야 하나요?
답변 부탁드립니다.