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