# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1348686275 -7200
# Node ID f24fa4b3758dd6de77d820c999fd8f1c8089718a
# Parent  74762eba597e5959815d262e662f61aabceeeeab
changed:
        #doClearBuildDirectory
        #doStopMake

diff -r 74762eba597e -r f24fa4b3758d Tools__ProjectBuilderAssistantApplication.st
--- a/Tools__ProjectBuilderAssistantApplication.st	Wed Sep 26 21:00:43 2012 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st	Wed Sep 26 21:04:35 2012 +0200
@@ -1743,7 +1743,9 @@
 
     projectBuilder isNil ifTrue:[ self getProjectBuilder ].
     projectBuilder buildDirectory notNil ifTrue:[   
-        projectBuilder packageBuildDirectory asFilename recursiveRemove
+        self withWaitCursorDo:[
+            projectBuilder packageBuildDirectory asFilename recursiveRemove
+        ]
     ].
 
     "Created: / 05-09-2012 / 10:35:54 / cg"
@@ -1850,14 +1852,17 @@
 
     (p := makeProcess) notNil ifTrue:[
         makeProcess := nil.
-        p terminate.
-        p waitUntilTerminated.
-
+        self withWaitCursorDo:[
+            p terminate.
+            p waitUntilTerminated.
+        ].
         makeOutputWindow endEntry.
         makeOutputWindow cr.
         makeOutputWindow nextPutLine:('Make Cancelled' colorizeAllWith:Color white on:Color red).
         makeOutputWindow endEntry.
     ].
+
+    "Modified: / 26-09-2012 / 21:01:37 / cg"
 !
 
 fetchSelectedProject