From 7939edd0ef2256707654419b9789613f5f3ab7d3 Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Sun, 9 Mar 2014 21:45:04 -0400
Subject: [PATCH] more optimizations for getscroll logic
---
pd/src/pd.tk | 2 ++
1 file changed, 2 insertions(+)
diff --git a/pd/src/pd.tk b/pd/src/pd.tk
index fdb2ea3bc..4dc911efa 100644
--- a/pd/src/pd.tk
+++ b/pd/src/pd.tk
@@ -4193,6 +4193,8 @@ proc pdtk_find_highest_widget_withtag {canvas name} {
#}
proc pdtk_canvas_getscroll {name} {
+ set parentname [winfo parent $name]
+ if {$::scroll($parentname) == 0} {return}
catch { after cancel $::doscroll($name) }
set ::doscroll($name) [after idle [concat pdtk_canvas_do_getscroll $name]]
}
--
GitLab