You are here

bind Error 질문 입니다.

안녕 하세요 오래 간만에 질문을 하네요
아래 코드처럼 bind시에 WS라는 변수을 읽을수 없어 문제가
생기는데 해결 방법이 있는지요
변수을 쓰지 않고 풀로 플어 쓰면 Error가 안나는데요
꼭 변수을 쓰면 나는데 이렇게 (an't read "WS": no such variable
while executing
"focus $WS.astepy_nay"
(command bound to event))

도움 주시면 감사 하겠습니다.

proc main {} {

set WS .a
        frame $WS  -relief sunken -bd 1
       
       
        button $WS.astepx  -text "AAAAA"  
               
               
        entry  $WS.astepx_nax  -bg  #FFFFFF  
                -textvariable VPIG(Q(  -width 10       
               
        button $WS.astepy  -text "BBBBBBB"  
               
               
        entry  $WS.astepy_nay  -bg  #FFFFFF  
                -textvariable VPIG(R(  -width 10
       
        pack    $WS.astepx $WS.astepx_nax $WS.astepy $WS.astepy_nay
 pack $WS  
 

       
bind  $WS.astepx_nax <Key-Return> { focus  $WS.astepy_nay}
bind  $WS.astepx_nax <KP_Enter> {+  focus  $WS.astepy_nay}     
}
main