library(tcltk)
tkt.test<-tktoplevel()
heading <- tklabel(tkt.test, text="Input Data File")
row1.name <- tklabel(tkt.test, text=" following is chinese ÀÉ®×")
row2.name <- tklabel(tkt.test, text="File2")
row1.entry <- tkentry(tkt.test, width=30)
row2.entry <- tkentry(tkt.test, width=20)
tkgrid(heading,columnspan=2)
tkgrid(row1.name, row1.entry)
tkgrid(row2.name, row2.entry)
tkgrid.configure(row1.entry, row2.entry, sticky="w")
tkgrid.configure(row1.name, row2.name, sticky="e")

# row.entry = variable
file1.name<-tclVar()
tkconfigure(row1.entry, textvariable=file1.name)
file2.name<-tclVar()
tkconfigure(row2.entry, textvariable=file2.name)
# get the filenames
# tclvalue(file1.name)
# tclvalue(file2.name) 
# we can put the entry content to the window
# tclvalue(file1.name)<-"aa"

flag<-tkbutton(tkt.test, text="OK", command=function() tkdestroy(tkt.test))
#flag<-tkbutton(tkt.test, text="OK")
#flag<-tkbutton(tkt.test, text="OK", command=tkdestroy(tkt.test))
# must use command=function() tkdestroy(tkt.test), 
# cannot use command=tkdestroy(tkt.test)
tkgrid(flag)

#next.step <- function(){
##cat("OW!\n")
##tkconfigure(flag, text="receive successful")
#tkdestroy(tkt.test)
#}

#tkconfigure(flag,command=next.step)