You are here

menu button에서 다른 tcl화일이 실행되지 않습니다.

vtcl을 사용하여 menu bar를 만들어 보려고 하는데

  menubutton $top.men74 -menu "$top.men74.m" -padx 5 -pady 4 -text test
    vTcl:DefineAlias "$top.men74" "Menubutton1" vTcl:WidgetProc "test_window" 1
    menu $top.men74.m \
        -activeborderwidth 1 -borderwidth 1 -font {???? 9} -tearoff 0
    $top.men74.m add command \
        -command {source /tmp/scripts/test.tcl} \
        -font {{MS Sans Serif} 9} -hidemargin 0 -label test \
        -underline -1

일때 menu bar는 형성이 되는데 test.tcl이 실행되지 않습니다.
경로도 올바르고, test.tcl만을 실행했을때는 잘됩니다.

    $top.men77.m add command \
        -command {exit} \
        -font {{MS Sans Serif} 9} -label exit

위와같이 exit 명령도 잘 먹힙니다.
단순 명령어의 조합인 tcl file은 실행이 되는데
개별적으로 작성한 tcl file은 실행이 안됩니다.
어떤게 문제인가요?
p.s 죄송한데 code만 따로 분리되어 보이하는 방법은 먼가요?
다른분들이나 운영자님이 올리시는 code는 보기 편하게
구분이 되는데 제꺼는 안되네요~