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

# 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