Posted to tcl by emiliano at Tue Dec 30 15:04:05 GMT 2008view pretty
package require Tk pack [ttk::notebook .nb -style Plain.TNotebook] -side right -fill both -expand 1 pack [ttk::treeview .tv -show tree] -fill both foreach theme [ttk::style theme names] { ttk::style theme settings $theme { ttk::style layout Plain.TNotebook.Tab null ttk::style layout Plain.TNotebook null } .tv insert {} end -id $theme -text $theme .nb insert end [ttk::frame .nb.$theme] pack [label .nb.$theme.label -bg white -text "I'm theme $theme"] \ -expand 1 -fill both -padx 20 -pady 20 } bind .tv <<TreeviewSelect>> \ {.nb select .nb.[ttk::setTheme [%W select]] }