Posted to tcl by haole at Fri Jul 18 18:35:59 GMT 2014view raw

  1. # main widgets
  2. ttk::frame .c
  3. ttk::entry .c.traces
  4. ttk::notebook .c.nb
  5.  
  6. grid .c -column 0 -row 0 -sticky nsew
  7. pack .c -fill both -expand yes
  8.  
  9. grid rowconfigure .c 0 -weight 1
  10. grid columnconfigure .c 0 -weight 1
  11.  
  12. # notebook
  13. .c.nb add [ttk::frame .c.nb.f1] -text "First tab"
  14. .c.nb add [ttk::frame .c.nb.f2] -text "Second tab"
  15. .c.nb select .c.nb.f2
  16.  
  17. pack .c.traces -in .c.nb.f2 -fill both -expand yes
  18.  
  19. grid .c.nb -column 0 -row 0 -columnspan 1 -rowspan 1 -sticky nsew -padx 1 -pady 1