From 29e0670602d32813eacd66bbfb7ba6318a1c9849 Mon Sep 17 00:00:00 2001
From: Seb Shader <sebfumaster@aol.com>
Date: Thu, 4 Nov 2021 12:01:56 -0700
Subject: [PATCH] move reset_defaults to beginning of loop

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

diff --git a/color-themes-plugin.tcl b/color-themes-plugin.tcl
index 81805ec..af96081 100644
--- a/color-themes-plugin.tcl
+++ b/color-themes-plugin.tcl
@@ -241,6 +241,7 @@ proc ::color-themes::opendialog {} {
     set counter 0
     set names ""
     foreach i $themes {
+        ::color-themes::reset_defaults
         source ${i}
         set name [{::color-themes::trimsubstringright} [file tail ${i}] -plugin.tcl]
         lappend names $name
@@ -405,7 +406,7 @@ proc ::color-themes::opendialog {} {
             -anchor nw -font $fontinfo -fill $::pd_colors(graph_text)
         incr height $boxincr
         incr counter
-        ::color-themes::reset_defaults
+
     }
     set canvas_height $height
     set num_themes $counter