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

  1. This Guhb code:
  2.  
  3. f
  4. @f0 info
  5.  
  6. >info -keys {@la@ @en@} -values {Name nam Address addr Telephone tel}
  7. l e
  8. .l0 -text @la@
  9. :l0 -sticky w
  10. /e0 @en@
  11.  
  12.  
  13. Generates this Tcl code:
  14.  
  15. grid [frame .f0] -row 0 -column 0
  16.  
  17. grid [label .f0.l0 -text Name] -sticky w -row 1 -column 0
  18. grid [set gui(nam) [entry .f0.e0]] -row 1 -column 1
  19.  
  20. grid [label .f0.l1 -text Address] -sticky w -row 2 -column 0
  21. grid [set gui(addr) [entry .f0.e1]] -row 2 -column 1
  22.  
  23. grid [label .f0.l2 -text Telephone] -sticky w -row 3 -column 0
  24. grid [set gui(tel) [entry .f0.e2]] -row 3 -column 1