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