equal
deleted
inserted
replaced
1741 doClearBuildDirectory |
1741 doClearBuildDirectory |
1742 <resource: #uiCallback> |
1742 <resource: #uiCallback> |
1743 |
1743 |
1744 projectBuilder isNil ifTrue:[ self getProjectBuilder ]. |
1744 projectBuilder isNil ifTrue:[ self getProjectBuilder ]. |
1745 projectBuilder buildDirectory notNil ifTrue:[ |
1745 projectBuilder buildDirectory notNil ifTrue:[ |
1746 projectBuilder packageBuildDirectory asFilename recursiveRemove |
1746 self withWaitCursorDo:[ |
|
1747 projectBuilder packageBuildDirectory asFilename recursiveRemove |
|
1748 ] |
1747 ]. |
1749 ]. |
1748 |
1750 |
1749 "Created: / 05-09-2012 / 10:35:54 / cg" |
1751 "Created: / 05-09-2012 / 10:35:54 / cg" |
1750 ! |
1752 ! |
1751 |
1753 |
1848 |
1850 |
1849 |p| |
1851 |p| |
1850 |
1852 |
1851 (p := makeProcess) notNil ifTrue:[ |
1853 (p := makeProcess) notNil ifTrue:[ |
1852 makeProcess := nil. |
1854 makeProcess := nil. |
1853 p terminate. |
1855 self withWaitCursorDo:[ |
1854 p waitUntilTerminated. |
1856 p terminate. |
1855 |
1857 p waitUntilTerminated. |
|
1858 ]. |
1856 makeOutputWindow endEntry. |
1859 makeOutputWindow endEntry. |
1857 makeOutputWindow cr. |
1860 makeOutputWindow cr. |
1858 makeOutputWindow nextPutLine:('Make Cancelled' colorizeAllWith:Color white on:Color red). |
1861 makeOutputWindow nextPutLine:('Make Cancelled' colorizeAllWith:Color white on:Color red). |
1859 makeOutputWindow endEntry. |
1862 makeOutputWindow endEntry. |
1860 ]. |
1863 ]. |
|
1864 |
|
1865 "Modified: / 26-09-2012 / 21:01:37 / cg" |
1861 ! |
1866 ! |
1862 |
1867 |
1863 fetchSelectedProject |
1868 fetchSelectedProject |
1864 |selectedProjectIndex| |
1869 |selectedProjectIndex| |
1865 |
1870 |