Posted to tcl by auriocus at Mon Oct 20 19:20:32 GMT 2014view raw
- 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