--- a/ProgressIndicator.st	Mon Jun 09 10:15:38 2008 +0200
+++ b/ProgressIndicator.st	Mon Jun 09 17:17:20 2008 +0200
@@ -385,7 +385,7 @@
 
 !ProgressIndicator class methodsFor:'instance creation'!
 
-displayBusyIndicator:aLabel at:aPoint during:aBlock
+displayBusyIndicator:aLabel abortable:abortable at:aPoint during:aBlock
     "easy interface - show progress while evaluating aBlock.
      The block is passed a valueHolder, which is to be set to values from
      startValue to endValue during the blocks evaluation.
@@ -398,7 +398,7 @@
             inBoxWithLabel:aLabel 
             icon:nil
             text:aLabel
-            abortable:false
+            abortable:abortable
             view:nil
             closeWhenDone:true.
 
@@ -421,6 +421,20 @@
     "
 !
 
+displayBusyIndicator:aLabel at:aPoint during:aBlock
+    "easy interface - show progress while evaluating aBlock.
+     The block is passed a valueHolder, which is to be set to values from
+     startValue to endValue during the blocks evaluation.
+     This is scaled to 0..100% completion.
+     Set the valueHolder to nil, to get a busy-indicator"
+
+    self
+        displayBusyIndicator:aLabel 
+        abortable:false 
+        at:aPoint 
+        during:aBlock
+!
+
 displayProgress:aLabel at:aPoint from:startValue to:endValue during:aBlock
     "easy interface - show progress while evaluating aBlock.
      The block is passed a valueHolder, which is to be set to values from
@@ -1131,5 +1145,5 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.54 2008-05-30 13:54:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.55 2008-06-09 15:17:20 cg Exp $'
 ! !