Posted to tcl by haole at Fri Jul 18 18:35:59 GMT 2014view raw
- # main widgets
- ttk::frame .c
- ttk::entry .c.traces
- ttk::notebook .c.nb
- grid .c -column 0 -row 0 -sticky nsew
- pack .c -fill both -expand yes
- grid rowconfigure .c 0 -weight 1
- grid columnconfigure .c 0 -weight 1
- # notebook
- .c.nb add [ttk::frame .c.nb.f1] -text "First tab"
- .c.nb add [ttk::frame .c.nb.f2] -text "Second tab"
- .c.nb select .c.nb.f2
- pack .c.traces -in .c.nb.f2 -fill both -expand yes
- grid .c.nb -column 0 -row 0 -columnspan 1 -rowspan 1 -sticky nsew -padx 1 -pady 1