Formularios en Tcl/Tk
Hay varias maneras de mostrar los datos de nuestro formulario Tcl/Tk. Una de ellas es crear una etiqueta para asignarle el valor del campo entry a su atributo -text, y todo ello lo hará un procedimiento que llamaremos «Enviar». Éste configura el valor -text de la etiqueta .etiqueta obteniendo el valor del contenido escrito en el elemento del formulario.
# Formulario
entry .campo -textvariable «Introduce texto aquí»
button .boton -text Enviar -command { Enviar }
pack .boton .campo
# Etiqueta vacía
label .etiqueta
pack .etiqueta
# Procedimiento
proc Enviar { } {
set texto [.campo get]
.etiqueta configure -text $texto
}