doohoyi/color-themes-plugin
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

move reset_defaults to beginning of loop

Browse source
This commit is contained in:
Seb Shader 2021-11-04 12:01:56 -07:00
parent 0e491e2fb4
commit 29e0670602
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
color-themes-plugin.tcl
View file

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