From a887bb949864ac17279c4c4239d98ea3266c9eb1 Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@monsoon.(none)>
Date: Tue, 6 Nov 2012 23:03:24 -0500
Subject: [PATCH] additional fix to a sporadic tcl error
---
src/pd.tk | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/src/pd.tk b/src/pd.tk
index 8818fb59c..25f4ad3f8 100644
--- a/src/pd.tk
+++ b/src/pd.tk
@@ -3383,7 +3383,7 @@ proc pdtk_canvas_getscroll_ping {name} {
return
}
if {$::update_tick($wname) == 2} {
- set ::update_tick($wname) 3
+ set ::update_tick($wname) 3
pdtk_canvas_getscroll $name
}
after 50 [list pdtk_canvas_getscroll_ping $name]
@@ -3416,7 +3416,7 @@ proc pdtk_canvas_getscroll {name} {
global pdtk_canvas_mouseup_ymaxval
# kludge since this gets called sometimes after a canvas is destroyed
- if {! [winfo exists $name]} {return}
+ if {![winfo exists $name]} {return}
# waiting for refresh
if {$::update_tick([winfo parent $name]) == 2} {return}
@@ -3515,6 +3515,7 @@ proc pdtk_canvas_getscroll {name} {
pack forget $parentname.scrollhort
set ::xscrollable($parentname) 0
update
+ if {![winfo exists $name]} {return}
set winwidth [winfo width $parentname.c]
set winheight [winfo height $parentname.c]
}
@@ -3522,6 +3523,7 @@ proc pdtk_canvas_getscroll {name} {
pack forget $parentname.scrollvert
set ::yscrollable($parentname) 0
update
+ if {![winfo exists $name]} {return}
set winwidth [winfo width $parentname.c]
set winheight [winfo height $parentname.c]
}
--
GitLab