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} { ...@@ -3511,19 +3511,15 @@ proc pdtk_canvas_getscroll {name} {
#puts stderr "$winwidth ? $canvaswidth $winheight ? $canvasheight" #puts stderr "$winwidth ? $canvaswidth $winheight ? $canvasheight"
if {$::scroll($parentname) == 1} { if {$::scroll($parentname) == 1} {
if {$winwidth >= $canvaswidth} { if {$winwidth >= $canvaswidth || $::xscrollable($parentname) && [expr $winwidth + 14] >= $canvaswidth} {
pack forget $parentname.scrollhort pack forget $parentname.scrollhort
set ::xscrollable($parentname) 0 set ::xscrollable($parentname) 0
update
if {![winfo exists $name]} {return}
set winwidth [winfo width $parentname.c] set winwidth [winfo width $parentname.c]
set winheight [winfo height $parentname.c] set winheight [winfo height $parentname.c]
} }
if {$winheight >= $canvasheight} { if {$winheight >= $canvasheight || $::yscrollable($parentname) && [expr $winheight + 14] >= $canvasheight} {
pack forget $parentname.scrollvert pack forget $parentname.scrollvert
set ::yscrollable($parentname) 0 set ::yscrollable($parentname) 0
update
if {![winfo exists $name]} {return}
set winwidth [winfo width $parentname.c] set winwidth [winfo width $parentname.c]
set winheight [winfo height $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