You are here

윈도우에 포함된 버튼을 눌러 해당 윈도우를 destroy할 때 에러 발생 문제...

안녕하세요.

아래와 같이 코드를 작성했는데, 윈도우를 destroy하는 proc 실행 후,
버튼의 bind로 return이 될 텐데, 이미 버튼이 포함된 윈도우를 destroy해 버렸으니
에러가 나는게 아닌가 싶습니다. 해결 방법이 없을런지요?

toplevel .t
button .t.b -text Destroy
pack .t.b

bind .t.b <ButtonPress-1> { destroy_win }

proc destroy_win {} {
  destroy .t
}

버튼을 누르면 아래와 같은 에러가 발생합니다.
invalid command name ".t.b"
invalid command name ".t.b"
while executing
"$w cget -state"
(procedure "tk::ButtonDown" line 12)
invoked from within
"tk::ButtonDown .t.b"
(command bound to event)