Commit a887bb94 authored by Ivica Ico Bukvic's avatar Ivica Ico Bukvic
Browse files

additional fix to a sporadic tcl error

parent 6eaf13e6
......@@ -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]
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment