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
|