Tools__ProjectBuilderAssistantApplication.st
changeset 2929 f24fa4b3758d
parent 2928 74762eba597e
child 2930 60ac412ce3f8
--- 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