Horizontal ScrollBar paging bug

Bob Arning arning at charm.net
Wed Oct 7 03:26:41 UTC 1998


The scroll-by-page function of a horizontal ScrollBar doesn't work. The following fixes it:

'From Squeak 2.2beta of Sept 16, 1998 on 6 October 1998 at 11:20:20 pm'!

!ScrollBar methodsFor: 'scrolling' stamp: 'RAA 10/6/1998 22:01'!
scrollByPage: event 

"fixed direction test for horizontal scroll bars"

	nextPageDirection == nil ifTrue: [nextPageDirection _ bounds isWide
					ifTrue: [event cursorPoint x >= slider center x]
					ifFalse: [event cursorPoint y >= slider center y]].
	(self waitForDelay1: 300 delay2: 100)
		ifFalse: [^ self].
	nextPageDirection
		ifTrue: [self setValue: (value + pageDelta min: 1.0)]
		ifFalse: [self setValue: (value - pageDelta max: 0.0)]! !

Cheers,
Bob





More information about the Squeak-dev mailing list