Hi,

This is my first contribution to the community. I found TwoWayScrollPane 
recentry posted is quite useful, but the width of the horizontal scrollbar
become incorrect when there is no leftover of the vertical one.

The following is the fix for the probrem.

Regards,

'From Squeak2.6 of 11 October 1999 [latest update: #1559] on 26 November 1999 at 8:31:51 pm'!

!TwoWayScrollPane methodsFor: 'access' stamp: 'ike 11/26/1999 20:06'!
setScrollDeltas
	| range |
	scroller hasSubmorphs ifFalse: [scrollBar interval: 1.0. hsb interval: 1.0. ^ self].
	range _ self leftoverScrollRange.
	range = 0 ifTrue: [ scrollBar scrollDelta: 0.02 pageDelta: 0.2; interval: 1.0. 
						"hsb scrollDelta: 0.02 pageDelta: 0.2; interval: 1.0.
						^self"] 
	ifFalse: [scrollBar scrollDelta: (self scrollDeltaHeight / range) asFloat 
					pageDelta: ((self innerBounds height - self scrollDeltaHeight) / range) asFloat.
			scrollBar interval: ((self innerBounds height - self scrollDeltaHeight) / self 
					totalScrollRange) asFloat].
	range _ self bottomScrollRange.
	range = 0 ifTrue: [ hsb scrollDelta: 0.02 pageDelta: 0.2; interval: 1.0] 
	ifFalse: [hsb scrollDelta: (self scrollDeltaWidth / range) asFloat 
					pageDelta: ((self innerBounds width - self scrollDeltaWidth) / range) asFloat.
			hsb interval: ((self innerBounds width - self scrollDeltaWidth) / self 
					totalScrollRangeWidth) asFloat].! !