--- a/Scroller.st	Sat Oct 16 14:58:58 2004 +0200
+++ b/Scroller.st	Sat Oct 16 15:29:52 2004 +0200
@@ -1218,6 +1218,7 @@
         ].
         ^ self
     ].
+    self isMiniScroller ifTrue:[^ self].
 
     "iris style - draw tallys"
     self drawTallyMarks.
@@ -2512,6 +2513,10 @@
 
 !Scroller methodsFor:'queries'!
 
+isMiniScroller
+    ^ false
+!
+
 isScrolling
     "true, if thumb is being moved (by user)"
 
@@ -2581,5 +2586,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.171 2004-09-14 15:30:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.172 2004-10-16 13:29:52 cg Exp $'
 ! !