take out pointless variable

This commit is contained in:
Seb Shader 2022-01-28 22:44:55 -08:00
parent 28f4a04f41
commit 2c9312e139

View file

@ -213,10 +213,9 @@ proc ::color-themes::scroll {box coord units boxincr} {
# not sure of a better way to simulate hovering..
set ocanvy [.colortheme_dialog.theme_list.c canvasy 0]
.colortheme_dialog.theme_list.c yview scroll [expr {- ($units)}] units
set boxnum [expr max(0, min($box + int($coord + \
{::color-themes::motion} [expr max(0, min($box + int($coord + \
[.colortheme_dialog.theme_list.c canvasy 0] - $ocanvy)/$boxincr, \
$num_themes-1))]
{::color-themes::motion} $boxnum
}
proc ::color-themes::apply {names} {