Posted to tcl by mjanssen at Sun May 06 22:33:31 GMT 2007view pretty
frame .f1 frame .f2 text .f1.t1 text .f1.t2 entry .f2.e button .f2.b -text PushButton pack .f1 -fill both -expand 1 pack .f2 -fill x -expand 0 grid .f1.t1 .f1.t2 -sticky nsew grid columnconfigure .f1 0 -weight 1 grid columnconfigure .f1 1 -weight 1 grid rowconfigure .f1 0 -weight 1 pack .f2.e -fill x -expand 1 -side left pack .f2.b -side left