Posted to tcl by Stu at Tue Sep 01 02:53:24 GMT 2020view pretty

This Guhb code:

f
@f0 info

>info -keys {@la@ @en@} -values {Name nam Address addr Telephone tel}
l e
.l0 -text @la@
:l0 -sticky w
/e0 @en@


Generates this Tcl code:

grid [frame .f0] -row 0 -column 0

grid [label .f0.l0 -text Name] -sticky w -row 1 -column 0
grid [set gui(nam) [entry .f0.e0]] -row 1 -column 1

grid [label .f0.l1 -text Address] -sticky w -row 2 -column 0
grid [set gui(addr) [entry .f0.e1]] -row 2 -column 1

grid [label .f0.l2 -text Telephone] -sticky w -row 3 -column 0
grid [set gui(tel) [entry .f0.e2]] -row 3 -column 1