You are here

이 error 가 왜 발생하는 건가요??

아.. 저만 연속으로 질문하고 있네요 ㅜ.ㅠ

원래 목적은 버튼을 누르면 타장비의 특정파일들을 가지고 오게 하려고 작성했었습니다.
shell script 로는 쉽게 구현이 되었었는데, 그렇게 사용하니 파일 가져오는 동안 아무것도 못하게 되더군요.
그래서 update 명령을 하기 위해 재작성하였는데 실행시 아래 error 가 발생합니다.

source

#!/usr/local/bin/wish
package require ftp

proc update {} {
        toplevel .t
        label .t.l -text "Downloading..."
        pack .t.l
        focus .t
        update

        if [ catch { set mlist [ open /home2/.smc/tcltk/tsview/mlista r ] } errorMessage ] {
                puts stderr "Error : $errorMessage"
        }
        while { [ gets $mlist mcno ] >= 0 } {
                cd /home2/.smc/tcltk/tsview/mcstat/$mcno
                set con [::ftp::Open $mcno asx asx-asx]
                ::ftp::Type $con binary
                ::ftp::Cd $con /home2/.smc/tcltk/uc
                ::ftp::Get $con user
                ::ftp::Get $con tel
                ::ftp::Get $con owner
                ::ftp::Close $con
                puts $mcno
        }
        close $mlist

        destroy .t
}

button .b -text "update" -command {update}
pack .b

button 실행시 error msg

#./update.tcl
bgerror failed to handle background error.
     Original error: window name "t" already exists in parent
     Error in bgerror: wrong # args: should be "update"
#