From 5b2bf9064bdc798b2946edf6d36d669effdd13e1 Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Tue, 16 Jul 2013 17:37:43 -0400
Subject: [PATCH] fixed flicker regression with a scrollbar
---
pd/src/pd.tk | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/pd/src/pd.tk b/pd/src/pd.tk
index 8719d42cb..edf0c79bc 100644
--- a/pd/src/pd.tk
+++ b/pd/src/pd.tk
@@ -3676,17 +3676,17 @@ proc pdtk_canvas_getscroll {name} {
if {$::scroll($parentname) == 1} {
- if {($::xscrollable($parentname) && $::yscrollable($parentname)
- && [expr $winwidth + 14] >= $canvaswidth
- && [expr $winheight + 14] >= $canvasheight)} {
- #puts stderr "TRYING TO ADJUST WIDTH & HEIGHT"
- pack forget $parentname.scrollhort
- set ::xscrollable($parentname) 0
- pack forget $parentname.scrollvert
- set ::yscrollable($parentname) 0
- set winwidth [expr {$winwidth + 14}]
- set winheight [expr {$winheight + 14}]
- }
+ #if {($::xscrollable($parentname) && $::yscrollable($parentname)
+ # && [expr $winwidth + 14] >= $canvaswidth
+ # && [expr $winheight + 14] >= $canvasheight)} {
+ # #puts stderr "TRYING TO ADJUST WIDTH & HEIGHT"
+ # pack forget $parentname.scrollhort
+ # set ::xscrollable($parentname) 0
+ # pack forget $parentname.scrollvert
+ # set ::yscrollable($parentname) 0
+ # set winwidth [expr {$winwidth + 14}]
+ # set winheight [expr {$winheight + 14}]
+ #}
if {$winwidth >= $canvaswidth && $::xscrollable($parentname)} {
#puts stderr "NO HORIZONTAL NECESSARY"
--
GitLab