From 94f9b05ad821eb9238ca71bffa1b4194478eece1 Mon Sep 17 00:00:00 2001
From: Seb Shader <sebfumaster@aol.com>
Date: Fri, 28 Jan 2022 22:54:15 -0800
Subject: [PATCH] use $box instead of hover_theme in click

---
 color-themes-plugin.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/color-themes-plugin.tcl b/color-themes-plugin.tcl
index a951b8e..a4ef68b 100644
--- a/color-themes-plugin.tcl
+++ b/color-themes-plugin.tcl
@@ -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 \