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