4 lines
79 B
Tcl
4 lines
79 B
Tcl
pack [entry .e1 -textvar input]
|
|
|
|
# show the content at any time by
|
|
puts $input
|