You are here

알람 On / Off 문제...

/슬픔/

안녕하세요... 간만에 들어와서 질문만 올리네요... -_-;

다름이 아니라, 알람 On/Off 문제인데요.

지난번 자료실에 올려 놓으신 Disk usage 모니터링 툴(disk.tcl)에

일정 디스크 용량을 초과하면 알람 소리를 지속적으로 울리고,

사용자가 버튼을 누르면 알람을 Off할 수 있게 만들고 싶습니다.

알람 On/Off 프로시져를 아래와 같이 했더니 Off 버튼을 눌러도

계속 울리네요.

proc AlarmCon { mode } {

    if {$mode == "On"} {
            exec play ./alarm.wav
    } else {
            return 0
    }
    after 1000 AlarmCon On
}

button .b1 -text "On" -command { AlarmCon On }
button .b2 -text "Off" -command { AlarmCon Off }

pack .b1 .b2

대충 이런식으로 했는데요. 실행시키고, On 버튼을 누르면

알람은 1초 간격으로 계속 울리거든요.

근데, 이걸 Off 시킬 수가 없네요. Off 버튼을 눌러도 프로시져내의

after 명령때문에 계속 울리게 되는것 같은데요.

해결 방법이 없겠는지요? 제가 봐도 위 소스는 엉터리 같기도 한데요.. T.T

좋은 하루 되시구요... 답변 부탁드립니다~~~~