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]
}