From 297ad413be6a960468c71abdbe939f623bbfaecd Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@monsoon.(none)>
Date: Fri, 2 Nov 2012 22:59:15 -0400
Subject: [PATCH] fixed occassional scrollbar flicker that resulted from
alternating scrollbars
---
src/pd.tk | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/src/pd.tk b/src/pd.tk
index 50aed4528..15501e5b0 100644
--- a/src/pd.tk
+++ b/src/pd.tk
@@ -3514,10 +3514,16 @@ proc pdtk_canvas_getscroll {name} {
if {$winwidth >= $canvaswidth} {
pack forget $parentname.scrollhort
set ::xscrollable($parentname) 0
+ update
+ set winwidth [winfo width $parentname.c]
+ set winheight [winfo height $parentname.c]
}
if {$winheight >= $canvasheight} {
pack forget $parentname.scrollvert
set ::yscrollable($parentname) 0
+ update
+ set winwidth [winfo width $parentname.c]
+ set winheight [winfo height $parentname.c]
}
if {$winwidth < $canvaswidth} {
pack $parentname.scrollhort -fill x \
--
GitLab