Posted to tcl by mjanssen at Sun May 06 22:33:31 GMT 2007view raw

  1. frame .f1
  2. frame .f2
  3. text .f1.t1
  4. text .f1.t2
  5. entry .f2.e
  6. button .f2.b -text PushButton
  7.  
  8. pack .f1 -fill both -expand 1
  9. pack .f2 -fill x -expand 0
  10.  
  11. grid .f1.t1 .f1.t2 -sticky nsew
  12. grid columnconfigure .f1 0 -weight 1
  13. grid columnconfigure .f1 1 -weight 1
  14. grid rowconfigure .f1 0 -weight 1
  15. pack .f2.e -fill x -expand 1 -side left
  16. pack .f2.b -side left