# create entry widget:
pack [entry .e1]

# read its content:
set input [.e get]