You are here

loop의 대한 질문을 하려고합니다..

/무효/
안녕하세요..^^;
제가 조금 초보다 보니 loop를 돌리는것도 힘드네요..
그래서 이렇게 글을 올립니다.

5,6년전에 조금 하다가 그만두었더니
영 어렵네요..

질문으로 들어가자면..
제가 사용하는 것은 intel Sol 2.6 tcltk 8.0입니다.

어떤 파일이 있습니다. 가정 "a"
a 의 내용은 On입니다.
a라는 파일이 OFF로 바뀌면 Button이 disabled에서 normal로 바뀌게 하고 싶은데 영 어렵네요..
어느정도 시간을 주어 계속 a라는 파일을 읽으면서 on에서 off로 바뀔경우에
normal로 되게요..

제가 한것입니다.

button .b -text aaaa -command bbb
pack .b

proc bbb {} {
  .b config -state disabled

set k [open a r]
set p off
while { 1 } {
    if { [lsearch $k $p] < 0 } {
           .b config -state normal
            break
        }
         after 5000
}
}

그냥 이렇게 조합을 해 보았는데 위의 break의 경우 if문만 빠져 나오는것 같아서요..
button이 계속 쑥 들어가서 안나오네요..
이것저것 해 보아도 영 ....
계속 도움의 손길만 기둘리는 초보는 힘드네요..
언제 답변주시는 님들처럼 될런지....에휴~~
이제 나이를 먹어서 머리도 안돌아가고...ㅋㅋㅋ(술질은 몸도 머리도 다 고장낸답니다....ㅎㅎㅎ)
답변주시면 감사하겠습니다. 그리고 머가 잘못된건지???