Posted to tcl by kbk at Sat Nov 23 15:02:21 GMT 2013view pretty

package require Tk
package require tkcon
grid [label .l -text "This is the rest of the application"] -sticky ew -pady 5
grid [button .b -text Quit -command exit] -row 2 -column 0 -pady 5
tkcon::Init -root .c
wm forget .c
grid .c -row 1 -column 0 -sticky nsew