El ejemplo de hoy es excelente para confirmar el porque Tcl/Tk es:
"El poder de lo simple!"
Script: A little multiplication toy
Link: http://wiki.tcl.tk/9219
Este script tiene únicamente 2 procedimientos ("main" y "recompute") y tiene como característica interesante el hecho de que no hay que presionar algún botón para calcular el total de la multiplicación de los 2 números que se hayan capturado, sino que se va calculando automáticamente según se vayan "entrando" los factores.
* Vea como es que ".*" y ".=" son nombres validos para controles en la ventana principal.
* las cajas de captura (entry) están asociadas a las variables a y b
* el comando "trace variable" es el que hace posible que, un procedimiento sea ejecutado cada vez que se escribe (w = write) en dicha variable.
* el procedimiento en cuestión es "recompute" el cual simplemente calcula el valor de c como el resultado de la multiplicación. Esto ocurre en cada cambio que se hace en las cajas de texto/captura.
* se hace un manejo de errores con catch por si uno de los factores es aun inexistente o se le introduce algo que produce un error
* Para finalizar, y a manera de "bonus", se recomienda apreciar la técnica de hacer un pack de todos los "hijos" de ".", a través de los comandos "eval" y "winfo children"
hasta el próximo "post" !
No comments:
Post a Comment