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
}

 

 

 

Write a Reply or Comment

Your email address will not be published.