에은 Tcl / Tk 프로그램> 실행 PDRACULA 정보

[shrbht]

[박았 표준 출력]를 CD를 경로, 그게 성공할 수 있어요
]에 박았 표준 출력 [PDRACULA, 그것은 작동하지 않을 수 있습니다
간부인 PDRACULA가, 그것은 일할 수 있습니다.하지만 실행의 정보를 볼 수 없습니다
어떻게해야합니까?실행할 수있는 정보를 볼 수 있습니까?감사합니다.
내가 TK에은 Tcl / 오전 초급 있습니다.

 

[Guest]

[No message]

 

[rimser9]

네 남자 u는 임 / 수 있는지 O를PDF 파일을 경우 TK에 u는 가지고은 Tcl /.또는 그것이 책은 유 실행의 피 / O를 표시합니다 execlog 어느 발견 코드를.명령을하면 u 개 fileevent 그럴수는 시도 찾아 그것.나중에 코드를 게시하려고합니다.

 

[rimser9]

#! / 빈 usr / 지방 / / 소원 - f 옵션
# execlog가 - 프로그램을 실행 유닉스 및 출력 로그
# 설정 창 제목
wm 제목입니다.ExecLog
# 작성 및 항목 버튼 프레임.
프레임. 상위 10 borderwidth
갑. 최상위 쪽 최상위 작성 엑스
# 만들기 명령 단추.
버튼을 누릅니다. top.quit 텍스트 종료 - 명령 종료
하지만 세트 [버튼을 누릅니다. top.run 텍스트 "뛰어"- 명령을 실행]
갑. top.quit. top.run 쪽 오른쪽
# 만들기위한 명령 항목 라벨
레이블을 붙입니다. top.l 텍스트 명령 : - padx 0
항목. top.cmd - 물밑의 너비 20 - 릴리프 \
- textvariable 명령
팩. top.l 쪽 왼쪽으로
팩. top.cmd 쪽 왼쪽 채우기 엑스레이 사실 확장
# 버튼 바인딩에 상응하는 키를 설정
바인드가. 실행 top.cmd <Return>
바인드가. 그만 top.cmd <Control-c>
초점. top.cmd
# 만들기 텍스트 위젯 출력을 로그
프레임. 톤
텍스트를 설정 로그 [국가. t.log - \ 너비 80 높이 10
- 제기 borderwidth 2 - 구호를 - setgrid 사실 \
- (yscrollcommand.] t.scroll 세트)
스크롤바. t.scroll - 명령 (. t.log yview)
팩. t.scroll 사이드 오른쪽 단추로 y를 입력
팩. t.log 쪽 왼쪽은 - 사실이 기입 모두 확장 -
팩. 톤 - 사이드 맨 위로은 - 사실이 기입 모두 확장 -
# 프로그램을 실행하고 배열 입력 자사 읽기
proc 디렉토리를 실행 () (
글로벌 명령을 입력 로그지만
(않으면 잡기 (열고 "| $ 명령") 입력]
$는 N 로그 삽입 엔드를 입력 $ \
다른) (
읽을 fileevent $ 입력 로그
$는 N 로그 삽입 끝 $ 명령 \
$하지만 설정 텍스트 중지 - 명령 중지
)
)
#은 읽기 및 프로그램에서 로그 출력
로그인 proc 디렉토리 () (
글로벌 입력 로그
만약 [EOF $ 입력] (
정지
다른) (
라인을 놓친 $ 입력
$는 N 로그 삽입 엔드 라인 $ \
$는 끝을 볼 로그
)
)#이 프로그램을 중지하고 버튼을 클릭하여 수정 프로그램까지
proc 디렉토리 그만 () (
글로벌 입력하지만
잡기) (가까운 $ 입력
$하지만 설정 - 텍스트 "뛰어"- 명령을 실행
)등록일 초 후에 24 :u는 필요한 경우 코드를 수정해야 할 수도 있습니다.