--- a/ProgressIndicator.st Mon Jan 09 09:51:44 2006 +0100
+++ b/ProgressIndicator.st Mon Jan 09 09:56:10 2006 +0100
@@ -1013,11 +1013,11 @@
] newProcess.
Processor activeProcess
- withPriority:(Processor activePriority + 1)
- do:[
- p resume.
- self topView show.
- ].
+ withHigherPriorityDo:
+ [
+ p resume.
+ self topView show.
+ ].
p notNil ifTrue:[p terminate].
"
@@ -1099,8 +1099,7 @@
] newProcess.
Processor activeProcess
- withPriority:(Processor activePriority + 1)
- do:[
+ withHigherPriorityDo:[
p resume.
self topView show.
].
@@ -1137,5 +1136,5 @@
!ProgressIndicator class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.49 2005-10-04 19:57:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.50 2006-01-09 08:56:10 cg Exp $'
! !