You are here

Tkcon을 삽입을 하긴 했는데, 도움이 필요합니다.

Tkcon을 커뮤니티 예전 글을 보면서 겨우 삽입을 했습니다.
그런데 하나 궁금한게 생겼습니다.
기존에는 bgexec를 사용해서 외부 실행파일 (win.exe)을 실행했는데,
Tkcon을 사용해서 실행하는 방법을 알고 싶습니다.
콘솔 창에 직접 입력하는 방법말고, Run 버튼이 눌러졌을 때 실행하는 방법이요~
아니면, win.exe의 실행 결과 stdout으로 나오는 결과를 Tkcon에 뿌려주는 방법이요...

아시는 분 조언 좀 부탁드립니다...

현재 코드의 일부분 첨부합니다.

proc Run {} {

        set pushd [pwd]

        cd ju

        variable pid
        variable execstatus

        variable setting
        variable runbutton
        variable stopbutton

        $setting configure -state disabled
        $runbutton configure -state disabled
        $stopbutton configure -state normal

        set ::progress_file "./process"

        initwatch
        watchfile $::progress_file UpdateProgress 10

        set cmd "./win.exe"

        if { [catch { set pid [eval \
                blt::bgexec execstatus \
                -onoutput ::StdoutMessage \
                -onerror ::StderrMessage \
                -keepnewline true \
                $cmd &] } errmsg] } {
                tk_messageBox -message $errmsg -icon error

                stopwatch
       
                $runbutton configure -state normal
                $stopbutton configure -state disabled
        } else {
                tkwait variable execstatus
                stopwatch
       
                $runbutton configure -state normal
                $stopbutton configure -state disabled
        }; # end if then else

        tk_messageBox -message "Finished." -icon info

        UpdateProgress
        cd $pushd

}; # end proc Run

첨부 파일파일 크기
Image icon main.JPG115.47 KB