Posted to tcl by stwo at Sun May 12 13:42:10 GMT 2019view raw

  1. Guhb:
  2.  
  3. f b
  4. .b0 -text a
  5. @f0 q
  6. >q
  7. b
  8. .b0 -text b
  9. >q
  10. b
  11. .b0 -text c
  12.  
  13.  
  14. Yields:
  15.  
  16. grid [frame .f0 ] -row 1 -column 0
  17. grid [button .f0.b0 -text a] -row 0 -column 0
  18. grid [button .f0.b1 -text b] -row 1 -column 0
  19. grid [button .f0.b2 -text c] -row 2 -column 0