Remove unused variable.

tcltk · Dec 13, 2023 · fa3839b · fa3839b
2 parents e5911fc + 9dd438c
commit fa3839b
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/library/scrlbar.tcl b/library/scrlbar.tcl
@@ -334,13 +334,11 @@ proc ::tk::ScrollbarScrollByPixels {w orient amount} {
 	if {$xyview eq "xview"} {
 	    return
 	}
-	set size [winfo height $w]
     }
     if {$orient eq "h"} {
 	if {$xyview eq "yview"} {
 	    return
 	}
-	set size [winfo width $w]
     }
 
     # The code below works with both the current and old syntax for