--- a/Scroller.st Sat Oct 16 15:29:52 2004 +0200
+++ b/Scroller.st Sat Oct 16 15:30:10 2004 +0200
@@ -1205,6 +1205,8 @@
self displayRectangleX:l y:t width:w height:h.
].
+ self isMiniScroller ifTrue:[^ self].
+
thumbImage notNil ifTrue:[
thumbImage displayOn:self x:l y:t
].
@@ -1218,7 +1220,6 @@
].
^ self
].
- self isMiniScroller ifTrue:[^ self].
"iris style - draw tallys"
self drawTallyMarks.
@@ -2586,5 +2587,5 @@
!Scroller class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.172 2004-10-16 13:29:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.173 2004-10-16 13:30:10 cg Exp $'
! !