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

5 lines
79 B
Tcl

pack [entry .e1 -textvar input]
# show the content at any time by
puts $input