Follwing ticket copied from tcllib tracker: [http://core.tcl.tk/tcllib/tktview/9d21e52e39c37d9521e8d34da3b301219b8f909c]

As stated in the title, the ScrollableFrame changes width upon unmap and map events.

See: [https://groups.google.com/forum/#!topic/comp.lang.tcl/Q5prg9lsOYc]


I have found the bug and solved it. Here are the original and modified
procedures:

<verbatim>
proc ScrollableFrame::_frameConfigure {canvas {unmap 0}} {
    # This ensures that we don't get funny scrollability in the frame
    # when it is smaller than the canvas space
    # use [winfo] to get height & width of frame

    # [winfo] doesn't work for unmapped frame
    set frameh [expr {$unmap ? 0 : [winfo height $canvas.frame]}]
    set framew [expr {$unmap ? 0 : [winfo width $canvas.frame]}]

    set height [_max $frameh [winfo height $canvas]]
    set width [_max $framew [winfo width $canvas]]

    $canvas:cmd configure -scrollregion [list 0 0 $width $height]
}
</verbatim>

This is the modified above procedure.
<verbatim>
proc ScrollableFrame::_frameConfigure {canvas {unmap 0}} {
    # This ensures that we don't get funny scrollability in the frame
    # when it is smaller than the canvas space
    # use [winfo] to get height & width of frame

    # [winfo] doesn't work for unmapped frame
    if {$unmap} {  return  }

    set frameh [winfo height $canvas.frame]
    set framew [winfo width $canvas.frame]

    set height [_max $frameh [winfo height $canvas]]
    set width [_max $framew [winfo width $canvas]]

    $canvas:cmd configure -scrollregion [list 0 0 $width $height]
}
</verbatim>

ScrollableFrame changes width upon unmap and map events