You are here

VTCL에서 다른 VTCL 파일 source시 에러 발생..

안녕하세요.

VTCL에서 다른 VTCL을 불러오는데 않되어서 ㅜㅜ
고생하고 있어서 도움을 요청드립니다.....

VTCL 에서 다른 VTCL을 불러올때.

버튼 위젯에서 커맨드에서 source를 하면 문제없이 실행이 되는데요.
함수로 만들어서 버튼에서 함수를 실행하고 함수에서 source를 하면은 아래와 같은 에러 메세지가 나옵니다.

이게 상황에 따라 GUI를 띄워서 진행수도 있고 아니면 GUI 없이 진행도 필요해서 함수에서 source를 해야 합니다..

어떻게 해야할지 도움좀 부탁드립니다....

-- 에러 메시지 --
can't read "tcl_platform(platform)": no such variable
can't read "tcl_platform(platform)": no such variable
while executing
"switch $tcl_platform(platform) {
windows {
option add *Button.padY 0
}
default {
option add *Scrollbar.width 10
..."
invoked from within
"if {![info exists vTcl(sourcing)]} {

package require Tk
switch $tcl_platform(platform) {
windows {
option add *Button.padY 0
}
..."
(file "/s/user/kjy/tmp/tttt/test3.tcl" line 6)
invoked from within
"source /s/user/kjy/tmp/tttt/test3.tcl"
(procedure "pLOAD" line 6)
invoked from within
"pLOAD"
invoked from within
".top73.but74 invoke"
("uplevel" body line 1)
invoked from within
"uplevel #0 [list $w invoke]"
(procedure "tk::ButtonUp" line 22)
invoked from within
"tk::ButtonUp .top73.but74"
(command bound to event)