32 lines
746 B
Tcl
32 lines
746 B
Tcl
# this script receives "data_block" with the (group) value
|
|
# of the cobol variable and returns "result"
|
|
|
|
## visual tcl leaves the main window iconified, so let's show it
|
|
wm deiconify .
|
|
|
|
###### put in this list varname, size pairs
|
|
|
|
set cobol_fields {
|
|
title 20
|
|
url 50
|
|
}
|
|
|
|
grid [label .msg -text \
|
|
"Use <Tab> to navigate, <Return> (or click button) \n\
|
|
to return to main program."] -columnspan 2
|
|
|
|
grid \
|
|
[label .lab1 -text "Title:"] \
|
|
[entry .e1 -width 20 -textvariable title] -padx 5 -pady 5 -sticky nsw
|
|
grid \
|
|
[label .lab2 -text "URL:"] \
|
|
[entry .e2 -width 50 -textvariable url] -padx 5 -pady 5 -sticky nsw
|
|
|
|
grid [button .ready -text Enter -command do_exit] \
|
|
-columnspan 2 -pady 20 -sticky ns
|
|
|
|
bind all <Return> do_exit
|
|
focus .e1
|
|
|
|
|