Commit 297ad413 authored by Ivica Ico Bukvic's avatar Ivica Ico Bukvic
Browse files

fixed occassional scrollbar flicker that resulted from alternating scrollbars

parent 219fa79e
......@@ -3514,10 +3514,16 @@ proc pdtk_canvas_getscroll {name} {
if {$winwidth >= $canvaswidth} {
pack forget $parentname.scrollhort
set ::xscrollable($parentname) 0
update
set winwidth [winfo width $parentname.c]
set winheight [winfo height $parentname.c]
}
if {$winheight >= $canvasheight} {
pack forget $parentname.scrollvert
set ::yscrollable($parentname) 0
update
set winwidth [winfo width $parentname.c]
set winheight [winfo height $parentname.c]
}
if {$winwidth < $canvaswidth} {
pack $parentname.scrollhort -fill x \
......
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