Scroller.st
changeset 1283 1d1a04076471
parent 1279 4cb391ed6fbf
child 1295 dd5ba64ae8a9
--- 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 $'
 ! !