use $box instead of hover_theme in click

This commit is contained in:
Seb Shader 2022-01-28 22:54:15 -08:00
parent 2c9312e139
commit 94f9b05ad8

View file

@ -188,9 +188,8 @@ proc ::color-themes::motion {box} {
}
proc ::color-themes::click {box} {
set {::color-themes::hover_theme} $box
if {${::color-themes::selected_theme} ne "" && \
${::color-themes::selected_theme} ne ${::color-themes::hover_theme}} {
${::color-themes::selected_theme} ne $box} {
.colortheme_dialog.theme_list.c.f${::color-themes::selected_theme}.c \
itemconfigure box${::color-themes::selected_theme} -outline \
black -width 1
@ -198,7 +197,8 @@ proc ::color-themes::click {box} {
itemconfigure box${::color-themes::selected_theme} -outline \
black -width 1
}
set {::color-themes::selected_theme} ${::color-themes::hover_theme}
set {::color-themes::hover_theme} $box
set {::color-themes::selected_theme} $box
.colortheme_dialog.theme_list.c.f$box.c itemconfigure \
box${::color-themes::hover_theme} -outline \