You are here

위짓 생성관련 질문을 드립니다.

안녕하세요.
관리자님의 열성적인 답변에 항상 감사드리며,,,,

Q&A를 통해서 많은 도움을 받고 있네요!

잘 안되는 부분이 있어서 이렇게 질문을 올립니다.

애매한 질문인지 모르겠지만 주요 내용은..

tcl파일에서 이미 생성된 위짓에서 버튼을 이용한 함수 호출로

새로운 캔버스 위짓을 생성시키려는데 잘 안되네요.. /한숨/

#!/bin/sh
# This comment extends to the next line for tcl
#exec wish8.0 $0 -name dbevents`getunique` -- $*
#
exec orbwish8 $0 $*

proc 1 {} {
.
}
proc 100 {} {
.
}

proc ShakeMap {} {
 exec orbwish8
 image create photo myimage - file /opt/dsap/3.4/bin/pga/pga.gif
 canvas .can -width 540 -height 640
 .can create image -75 -60 -image myimage -anchor nw
 pack .can
}

button .mbar.shakemap -text Shakemap -command ShakeMap

pack .mbar.shakemap
.
.
.

대충 이런내용입니다.
그런데 일단 기본적인 Main 창은 뜨고 그 위에 ShakeMap 번튼을 만들어졌구요
다른 위짓을 띄워 이미지를 불러올려고 하는데 그냥 텅빈 위짓만 떠 있네요.
그리고 어디선가 리소스를 잡아먹고 있는지 느려지기 까지 하네요.

그냥 orbwish8 커맨드상에서는 아무런 이상없이 잘되는데요..

해결책이 없을련지요?

그럼 이만..