Posted to tcl by Stu at Thu Jul 20 12:24:45 GMT 2023view raw

  1. # A row of labels over a row of entries
  2. # Use row/column adjustments to turn it
  3. # into a vertical stack of widgets.
  4.  
  5. # This is understandable when working it out
  6. # but I'm not sure it can be easily understood
  7. # just by reading it.
  8.  
  9.  
  10. L L L L
  11. E E E E
  12.  
  13. .{L} -text a b c d
  14.  
  15. !:-L1-3 +2
  16. !:-E0 -6
  17. !:-E1-3 +2
  18. !:|L1-3,E1-3 -1
  19.  
  20.  
  21. # EOF