RosettaCodeData/Task/User-input-Graphical/Tcl/user-input-graphical-1.tcl

6 lines
80 B
Tcl

# create entry widget:
pack [entry .e1]
# read its content:
set input [.e get]