Posted to tcl by auriocus at Mon Oct 20 19:20:32 GMT 2014view pretty
package require Tk ttk::frame .mainframe pack .mainframe -expand yes -fill both set nb [ttk::notebook .mainframe.nb] pack $nb -expand yes -fill both set tab1 [ttk::frame $nb.tab1] $nb add $tab1 -text Tab1 set button [ttk::button $tab1.b -text Exit -command exit] pack $button