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

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