6 lines
80 B
Tcl
6 lines
80 B
Tcl
|
# create entry widget:
|
||
|
|
pack [entry .e1]
|
||
|
|
|
||
|
|
# read its content:
|
||
|
|
set input [.e get]
|