Note that you wanted to control the size of the scrollable region, not the size of the bar, so that is why you mess with Tk::Scrolled.

Tk::Scrolled is an uber-container, not the the little thing you click on with your mouse to move the bar back and forth. If you adjust the width on that, it makes the bar narrower but does not affect the size of the region.