--- 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