--- a/ProgressIndicator.st Tue Jun 04 22:36:22 1996 +0200
+++ b/ProgressIndicator.st Wed Jun 05 20:15:49 1996 +0200
@@ -410,22 +410,22 @@
self fillRectangleX:m y:m width:w height:h.
showPercentage ifTrue:[
- rx <= (sx+sw) ifTrue:[
- self paint:Color black.
- self displayString:s x:sx y:sy.
- ]
+ rx <= (sx+sw) ifTrue:[
+ self paint:Color black.
+ self displayString:s x:sx y:sy.
+ ]
].
self paint:fgColor.
self fillRectangleX:m y:m width:rx height:h.
showPercentage ifTrue:[
- rx >= sx ifTrue:[
- self clipRect:(m@m corner:rx+1 @ h).
- self paint:Color white.
- self displayString:s x:sx y:sy.
- self clipRect:nil
- ]
+ rx >= sx ifTrue:[
+ self clippingRectangle:(m@m corner:rx+1 @ h).
+ self paint:Color white.
+ self displayString:s x:sx y:sy.
+ self clippingRectangle:nil
+ ]
]
! !
@@ -531,5 +531,5 @@
!ProgressIndicator class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.6 1996-05-18 15:43:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.7 1996-06-05 18:15:49 cg Exp $'
! !