Commit 51ce9223 authored by Ivica Ico Bukvic's avatar Ivica Ico Bukvic
Browse files

better fix for the flickering scrollbars that resolves regressions

parent 87a86116
......@@ -3511,19 +3511,15 @@ proc pdtk_canvas_getscroll {name} {
#puts stderr "$winwidth ? $canvaswidth $winheight ? $canvasheight"
if {$::scroll($parentname) == 1} {
if {$winwidth >= $canvaswidth} {
if {$winwidth >= $canvaswidth || $::xscrollable($parentname) && [expr $winwidth + 14] >= $canvaswidth} {
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]
}
if {$winheight >= $canvasheight} {
if {$winheight >= $canvasheight || $::yscrollable($parentname) && [expr $winheight + 14] >= $canvasheight} {
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