# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1136796970 -3600
# Node ID 6a88c8ffeb14bc11bad68de3538676e2632d6fba
# Parent  6f7df547445bc208581764f0f77f081568bee58b
*** empty log message ***

diff -r 6f7df547445b -r 6a88c8ffeb14 ProgressIndicator.st
--- 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 $'
 ! !