Posted to tcl by daapp at Thu Aug 28 02:35:42 GMT 2008view raw

  1. option add *Frame*padX 10
  2. option add *Frame*padY 10
  3.  
  4. set f [frame .data -relief groove -bd 2]
  5. foreach r {1 2 3 4} {
  6. label $f.l$r -text "Label $r" -bg lightblue
  7. grid $f.l$r -row $r
  8. foreach c {1 2 3 4} {
  9. entry $f.e$r$c
  10. grid $f.e$r$c -row $r -column $c
  11. }
  12. }
  13.  
  14. grid $f -sticky nsew
  15.  
  16.