30 lines
1.0 KiB
COBOL
30 lines
1.0 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. ex1.
|
|
AUTHOR. Rildo Pragana.
|
|
ENVIRONMENT DIVISION.
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
77 TSCR PIC X(128).
|
|
77 TRES PIC X(80).
|
|
77 EOSTR pic X value LOW-VALUES.
|
|
77 WKEY pic X.
|
|
|
|
PROCEDURE DIVISION.
|
|
|
|
CALL "initTcl"
|
|
* source (load) our script into the tcl interpreter
|
|
string "source ex1.tcl" EOSTR into TSCR
|
|
call "stcleval" using TSCR TRES.
|
|
* make it stay with control till the variable "ready" is modified
|
|
string "tkwait variable ready" EOSTR into TSCR
|
|
call "stcleval" using TSCR TRES.
|
|
* make the window unmapped (invisible) and grab the result we want
|
|
string "wm withdraw . ; set entry_data" EOSTR into TSCR
|
|
call "stcleval" using TSCR TRES.
|
|
* show the result which came from tcl
|
|
display "tcl result: '" TRES "'"
|
|
display "bata uma tecla (no xterm)..." no advancing
|
|
accept wkey
|
|
STOP RUN.
|
|
|