You are here

이 프로그램 좀 봐주실래요?

안녕하세요.
지금 프로그램 하나를 짜고있는데 계속 잘 안되네요.
어떤 프로그램이냐면요...
윈도우하나가 떠서 사용자가 어떤 숫자를 입력하고 OK를 클릭하면
그 윈도우가 사라지고 새로운 윈도우가 다시 뜨면서
Your input is xxx 라고 뜨는 프로그램이거든요.

아래는 제가 짠건데요. 보시고 수정좀 해주실수 있을까요?

proc    p1       {} {
                entry      .win         -textvariable   num   -relief  sunken
                button     .but         -text           OK    -command { destroy . }
                pack       .win  .but
                return     $num
                }

proc    p2 { var1 } {
                label      .msg         -text "Your input is $var1"
                pack       .msg
                }

p2      [p1]                   

       

그럼 좀, 부탁드립니다~