Всем здравствуйте!
Хочется сделать примерно так. Есть основная программа:
package require MyProcessor 0.1
package require Tk
proc Open_file {} {
MyProcessor::Process
}
# Upper frame
frame .top
# Input file name
set inp_file_name "Input file name (press button -->)"
label .top.lbInpFileName
button .top.btInpFile -text "..." -command Open_file
grid .top.lbInpFileName .top.btInpFile
# Two edits
text .inpTxt
text .outTxt
grid .inpTxt
grid .outTxt
vwait ::MyProcessor::inp_file_name
vwait ::MyProcessor::lines
proc Process {} {
set inp_file_name [[tk_getOpenFile -initialdir "./"]
read_lines
set lines [Proceed $inp_lines]
}
