From 581a06b7efecf3d1acd01cf774fc1821f16b6b31 Mon Sep 17 00:00:00 2001
From: csaba <csaba>
Date: Thu, 20 Jun 2024 15:59:17 +0000
Subject: Improvements in the proc ::tk::ScrollByPixels.

---
 library/tk.tcl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/library/tk.tcl b/library/tk.tcl
index 7153974..bcbf8ce 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -558,12 +558,12 @@ proc ::tk::PreciseScrollDeltas {dxdy} {
     return [list $deltaX $deltaY]
 }
 
-# Helper for smooth scrolling of widgets that support xview moveto,
-# yview moveto, height and width.
+## Helper for smooth scrolling of widgets that support xview moveto and
+## yview moveto.
 
 proc ::tk::ScrollByPixels {w deltaX deltaY} {
-    set width [expr {1.0 * [$w cget -width]}]
-    set height [expr {1.0 * [$w cget -height]}]
+    set width [expr {1.0 * [winfo width $w]}]
+    set height [expr {1.0 * [winfo height $w]}]
     set X [lindex [$w xview] 0]
     set Y [lindex [$w yview] 0]
     set x [expr {$X - $deltaX / $width}]
-- 
cgit v0.12