equal
deleted
inserted
replaced
1739 ! |
1739 ! |
1740 |
1740 |
1741 doClearBuildDirectory |
1741 doClearBuildDirectory |
1742 <resource: #uiCallback> |
1742 <resource: #uiCallback> |
1743 |
1743 |
1744 projectBuilder packageBuildDirectory asFilename recursiveRemove |
1744 projectBuilder isNil ifTrue:[ self getProjectBuilder ]. |
|
1745 projectBuilder buildDirectory notNil ifTrue:[ |
|
1746 projectBuilder packageBuildDirectory asFilename recursiveRemove |
|
1747 ]. |
1745 |
1748 |
1746 "Created: / 05-09-2012 / 10:35:54 / cg" |
1749 "Created: / 05-09-2012 / 10:35:54 / cg" |
1747 ! |
1750 ! |
1748 |
1751 |
1749 doGenerateProjectContentsDefinition |
1752 doGenerateProjectContentsDefinition |
1869 self hasProjectSelectedHolder value:(selectedProjectDefinition notNil). |
1872 self hasProjectSelectedHolder value:(selectedProjectDefinition notNil). |
1870 |
1873 |
1871 "Created: / 04-09-2012 / 09:52:32 / cg" |
1874 "Created: / 04-09-2012 / 09:52:32 / cg" |
1872 ! |
1875 ! |
1873 |
1876 |
|
1877 getProjectBuilder |
|
1878 projectBuilder := ProjectBuilder new. |
|
1879 projectBuilder package:(selectedProjectDefinition package). |
|
1880 projectBuilder usedCompilerForBuild:(usedCompilerHolder value). |
|
1881 ^ projectBuilder |
|
1882 |
|
1883 "Created: / 26-09-2012 / 20:57:32 / cg" |
|
1884 ! |
|
1885 |
1874 projectTypeChanged |
1886 projectTypeChanged |
1875 <resource: #uiCallback> |
1887 <resource: #uiCallback> |
1876 |
1888 |
1877 self updateListOfMatchingProjects |
1889 self updateListOfMatchingProjects |
1878 ! |
1890 ! |
1890 makeOutputWindow nextPutLine:(ex messageText colorizeAllWith:Color white on:Color blue). |
1902 makeOutputWindow nextPutLine:(ex messageText colorizeAllWith:Color white on:Color blue). |
1891 makeOutputWindow endEntry. |
1903 makeOutputWindow endEntry. |
1892 ]. |
1904 ]. |
1893 ex proceed. |
1905 ex proceed. |
1894 ] do:[ |
1906 ] do:[ |
1895 projectBuilder := ProjectBuilder new. |
1907 self getProjectBuilder. |
1896 projectBuilder package:(selectedProjectDefinition package). |
|
1897 projectBuilder usedCompilerForBuild:(usedCompilerHolder value). |
|
1898 projectBuilder makeExeOnly:(what = 'exe'). |
|
1899 |
1908 |
1900 Error handle:[:ex | |
1909 Error handle:[:ex | |
1901 makeOutputWindow endEntry. |
1910 makeOutputWindow endEntry. |
1902 makeOutputWindow cr. |
1911 makeOutputWindow cr. |
1903 makeOutputWindow nextPutLine:(ex description colorizeAllWith:Color white on:Color red). |
1912 makeOutputWindow nextPutLine:(ex description colorizeAllWith:Color white on:Color red). |
1906 ] do:[ |
1915 ] do:[ |
1907 projectBuilder buildWithColorizedOutputTo:makeOutputWindow. |
1916 projectBuilder buildWithColorizedOutputTo:makeOutputWindow. |
1908 ]. |
1917 ]. |
1909 ]. |
1918 ]. |
1910 |
1919 |
1911 "Modified: / 08-09-2012 / 20:18:50 / cg" |
1920 "Modified: / 26-09-2012 / 20:57:42 / cg" |
1912 ! |
1921 ! |
1913 |
1922 |
1914 selectedApplicationChanged |
1923 selectedApplicationChanged |
1915 |idx| |
1924 |idx| |
1916 |
1925 |