*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sat, 16 Oct 2004 15:30:10 +0200
changeset 3073 a804d0acaca2
parent 3072 5d9adc17b9f1
child 3074 56b72f8b1492
*** empty log message ***
Scroller.st
--- 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 $'
 ! !