Posted to tcl by auriocus at Mon Oct 20 19:20:32 GMT 2014view raw

  1. package require Tk
  2.  
  3. ttk::frame .mainframe
  4. pack .mainframe -expand yes -fill both
  5.  
  6. set nb [ttk::notebook .mainframe.nb]
  7. pack $nb -expand yes -fill both
  8.  
  9. set tab1 [ttk::frame $nb.tab1]
  10. $nb add $tab1 -text Tab1
  11.  
  12. set button [ttk::button $tab1.b -text Exit -command exit]
  13. pack $button