package require Tk
set ready 0
label .lb -text "Text data:"
entry .e -textvariable entry_data
button .b -text ok -command {set ready 1}
set teste danilo
grid .lb .e
grid .b -