# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1322564186 -3600
# Node ID dcee90ff33983fbca299703cb2f75fe4fabdf460
# Parent  56ace1a8a474597ef62dcd361ef2927223436328
changed: #drawThumb

diff -r 56ace1a8a474 -r dcee90ff3398 Scroller.st
--- a/Scroller.st	Tue Nov 08 22:03:10 2011 +0100
+++ b/Scroller.st	Tue Nov 29 11:56:26 2011 +0100
@@ -1245,7 +1245,7 @@
         ] ifFalse:[
             n := h
         ].
-        (1 to:n-1) do:[:i |
+        1 to:n-1 do:[:i |
             |m|
 
             i == (n-1) ifTrue:[
@@ -1368,6 +1368,8 @@
 
     "iris style - draw tallys"
     self drawTallyMarks.
+
+    "Modified: / 29-11-2011 / 11:55:24 / cg"
 !
 
 drawThumbBackgroundInX:x y:y width:w height:h
@@ -2750,9 +2752,9 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.199 2010-12-15 10:54:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.200 2011-11-29 10:56:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.199 2010-12-15 10:54:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.200 2011-11-29 10:56:26 cg Exp $'
 ! !