--- a/Scroller.st Sat Jul 26 16:24:45 1997 +0200
+++ b/Scroller.st Sat Jul 26 21:06:19 1997 +0200
@@ -1756,6 +1756,9 @@
fullSize := width
].
+ absValue < 0 ifTrue:[^ rangeStart].
+ absValue > fullSize ifTrue:[^ rangeEnd].
+
t := fullSize - thumbFrameSizeDifference - (margin * 2).
t = 0 ifTrue:[
"/ in rare cases, this happens ...
@@ -1769,6 +1772,7 @@
val > rangeEnd ifTrue:[^ rangeEnd].
^ val
+ "Modified: 26.7.1997 / 21:05:59 / cg"
! !
!Scroller methodsFor:'private scrollbar & scrollview interface'!
@@ -1953,5 +1957,5 @@
!Scroller class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.85 1997-07-25 14:13:03 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.86 1997-07-26 19:06:19 cg Exp $'
! !