invalid command name "ttk::style"
    while executing
"ttk::style theme names"
    (in namespace eval "::request" script line 56)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
catch {console show}
catch {console eval {.console configure -background black -foreground white}}


proc changeopt {} {
    ttk::style layout TCombobox {
	Entry.field -sticky nswe -children {
	    Entry.background -sticky nswe -children {
		Combobox.rightdownarrow -side right -sticky ns
		Combobox.padding -expand 1 -sticky nswe -children {
		    Combobox.textarea -sticky nswe %gttk
		}
	    }
	}
    }
    ttk::style configure TCombobox -padding {1 1 1 1} 

    option add *TCombobox.background black
    option add *TCombobox.foreground white
    option add *TCombobox.disabledBackground black
    option add *TCombobox.disabledForeground white
    option add *TCombobox.selectBackground black
    option add *TCombobox.selectForeground white
    option add *Listbox.background black
    option add *Listbox.foreground white
    option add *Entry.background black
    option add *Entry.foreground white
    option add *Entry.disabledbackground black
    option add *Entry.disabledforeground white
    option add *Text.background black
    option add *Text.foreground white
    option add *Text.disabledbackground black
    option add *Text.disabledforeground white
    
    ttk::style map vdx.TCombobox \
	    -background {{readonly disabled} black} \
	    -foreground {{readonly disabled} white} \
	    -fieldbackground {{readonly disabled active} black} \
	    -fieldforeground {{readonly disabled active} white} \
	    -disabledbackground {{readonly disabled active} black} \
	    -disabledforeground {{readonly disabled active} white} 

    ttk::style configure vdx.TCombobox \
	    -background black \
	    -foreground white \
	    -arrowcolor white \
	    -fieldbackground black \
	    -fieldforeground white
    
    
    return
}


set Lth [ttk::style theme names]
puts "Themes $Lth"
. configure -background "#960530"
#ttk::style theme use default
changeopt
update idletasks

proc ChT {w} {
    set i [$w current]
    set t [lindex [$w cget -values] $i]
    puts "\nt-> $t"    
    ttk::style theme use $t
    changeopt
    puts "element names :"
    puts [join [ttk::style element names] \n]
    puts "layout"
    puts [join [ttk::style layout TCombobox] \n]

    update idletasks
}

ttk::combobox .cbb \
	-values $Lth \
	-width 20 \
	-style vdx.TCombobox \
	-textvariable ThS
grid .cbb -row 0 -column 0 -padx 10 -pady 10
puts "\nmap"
puts [join [ttk::style map TCombobox] \n]
.cbb current 0
bind .cbb <> {ChT %W}