332 |
332 |
333 #'createNewProject' |
333 #'createNewProject' |
334 'PackageID (module:directory). |
334 'PackageID (module:directory). |
335 Click to create a new (empty) ProjectDefinition for the given PackageID.' |
335 Click to create a new (empty) ProjectDefinition for the given PackageID.' |
336 |
336 |
|
337 #clearBuildDirectory |
|
338 'Clear the build directory.' |
|
339 |
|
340 #makeAll |
|
341 'Build a self-installing deployable package.' |
|
342 |
|
343 #makeExe |
|
344 'Build the executable only (for test-running).' |
|
345 |
|
346 #makeOutput |
|
347 'Displays the output of the build process (make command).' |
|
348 |
|
349 #openExplorer |
|
350 'Open a Windows Explorer on the build directory. You can double-click on the built executable there.' |
|
351 |
|
352 #openFileBrowser |
|
353 'Open a Filebrowser on the build directory.' |
|
354 |
|
355 #stopMake |
|
356 'Abort the ongoing build process. Please clear the build directory afterwards to remove any leftover garbage.' |
|
357 |
337 ) |
358 ) |
|
359 |
|
360 "Modified: / 06-09-2012 / 16:09:10 / cg" |
338 ! ! |
361 ! ! |
339 |
362 |
340 !ProjectBuilderAssistantApplication class methodsFor:'interface specs'! |
363 !ProjectBuilderAssistantApplication class methodsFor:'interface specs'! |
341 |
364 |
342 page1_projectTypeSelectionSpec |
365 page1_projectTypeSelectionSpec |
1272 (SpecCollection |
1295 (SpecCollection |
1273 collection: ( |
1296 collection: ( |
1274 (TextEditorSpec |
1297 (TextEditorSpec |
1275 name: 'MakeOutputWindow' |
1298 name: 'MakeOutputWindow' |
1276 layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
1299 layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
|
1300 activeHelpKey: makeOutput |
1277 model: makeOutputHolder |
1301 model: makeOutputHolder |
1278 hasHorizontalScrollBar: true |
1302 hasHorizontalScrollBar: true |
1279 hasVerticalScrollBar: true |
1303 hasVerticalScrollBar: true |
1280 hasKeyboardFocusInitially: false |
1304 hasKeyboardFocusInitially: false |
1281 viewClassName: 'TextCollector' |
1305 viewClassName: 'TextCollector' |
1296 (SpecCollection |
1320 (SpecCollection |
1297 collection: ( |
1321 collection: ( |
1298 (ActionButtonSpec |
1322 (ActionButtonSpec |
1299 label: 'Make All' |
1323 label: 'Make All' |
1300 name: 'Button3' |
1324 name: 'Button3' |
|
1325 activeHelpKey: makeAll |
1301 translateLabel: true |
1326 translateLabel: true |
1302 model: doStartMakeAll |
1327 model: doStartMakeAll |
1303 enableChannel: startMakeButtonEnabled |
1328 enableChannel: startMakeButtonEnabled |
1304 extent: (Point 107 22) |
1329 extent: (Point 107 22) |
1305 ) |
1330 ) |
1306 (ActionButtonSpec |
1331 (ActionButtonSpec |
1307 label: 'Make EXE only' |
1332 label: 'Make EXE only' |
1308 name: 'Button5' |
1333 name: 'Button5' |
|
1334 activeHelpKey: makeExe |
1309 translateLabel: true |
1335 translateLabel: true |
1310 model: doStartMakeExe |
1336 model: doStartMakeExe |
1311 enableChannel: startMakeButtonEnabled |
1337 enableChannel: startMakeButtonEnabled |
1312 extent: (Point 107 22) |
1338 extent: (Point 107 22) |
1313 ) |
1339 ) |
1338 (SpecCollection |
1365 (SpecCollection |
1339 collection: ( |
1366 collection: ( |
1340 (ActionButtonSpec |
1367 (ActionButtonSpec |
1341 label: 'Explorer on Build Directory' |
1368 label: 'Explorer on Build Directory' |
1342 name: 'Button13' |
1369 name: 'Button13' |
|
1370 activeHelpKey: openExplorer |
1343 visibilityChannel: osIsWindows |
1371 visibilityChannel: osIsWindows |
1344 translateLabel: true |
1372 translateLabel: true |
1345 model: doOpenExplorer |
1373 model: doOpenExplorer |
1346 extent: (Point 167 22) |
1374 extent: (Point 167 22) |
1347 ) |
1375 ) |
1348 (ActionButtonSpec |
1376 (ActionButtonSpec |
1349 label: 'Browser on Build Directory' |
1377 label: 'Browser on Build Directory' |
1350 name: 'Button11' |
1378 name: 'Button11' |
|
1379 activeHelpKey: openFileBrowser |
1351 translateLabel: true |
1380 translateLabel: true |
1352 model: doBrowseBuildDirectory |
1381 model: doBrowseBuildDirectory |
1353 extent: (Point 167 22) |
1382 extent: (Point 167 22) |
1354 ) |
1383 ) |
1355 (ViewSpec |
1384 (ViewSpec |
1356 name: 'Box1' |
1385 name: 'Box2' |
1357 extent: (Point 20 10) |
1386 extent: (Point 20 10) |
1358 ) |
1387 ) |
1359 (ActionButtonSpec |
1388 (ActionButtonSpec |
1360 label: 'Clear Build Directory' |
1389 label: 'Clear Build Directory' |
1361 name: 'Button12' |
1390 name: 'Button12' |
|
1391 activeHelpKey: clearBuildDirectory |
1362 translateLabel: true |
1392 translateLabel: true |
1363 model: doClearBuildDirectory |
1393 model: doClearBuildDirectory |
1364 extent: (Point 167 22) |
1394 extent: (Point 167 22) |
1365 ) |
1395 ) |
1366 ) |
1396 ) |
2696 OperatingSystem isMSWINDOWSlike ifTrue:[ |
2724 OperatingSystem isMSWINDOWSlike ifTrue:[ |
2697 warnMsg1 := 'The MINGW C-compiler suite is not officially supported.'. |
2725 warnMsg1 := 'The MINGW C-compiler suite is not officially supported.'. |
2698 ]. |
2726 ]. |
2699 ]. |
2727 ]. |
2700 |
2728 |
2701 suite := self suiteNameOfCompiler:(self usedCompilerHolder value). |
2729 suite := ProjectBuilder suiteNameOfCompiler:(self usedCompilerHolder value). |
2702 self nameOfUsedCompilerSuiteHolder value:suite. |
2730 self nameOfUsedCompilerSuiteHolder value:suite. |
2703 |
2731 |
2704 (OperatingSystem canExecuteCommand:cmd) ifFalse:[ |
2732 (OperatingSystem canExecuteCommand:cmd) ifFalse:[ |
2705 warnMsg2 := |
2733 warnMsg2 := |
2706 'The "%1"-command seems to be not in your path. |
2734 'The "%1"-command seems to be not in your path. |
2810 |
2838 |
2811 restoreMakeOutputsContents |
2839 restoreMakeOutputsContents |
2812 makeOutputWindow contents:makeOutputHolder value |
2840 makeOutputWindow contents:makeOutputHolder value |
2813 ! |
2841 ! |
2814 |
2842 |
2815 suiteNameOfCompiler:usedCompiler |
|
2816 usedCompiler = 'bcc' ifTrue:[ |
|
2817 ^ 'Borland C-Compiler'. |
|
2818 ]. |
|
2819 usedCompiler = 'vc' ifTrue:[ |
|
2820 ^ 'Microsoft Visual C C-Compiler'. |
|
2821 ]. |
|
2822 usedCompiler = 'lcc' ifTrue:[ |
|
2823 ^ 'LCC C-Compiler'. |
|
2824 ]. |
|
2825 usedCompiler = 'tcc' ifTrue:[ |
|
2826 ^ 'Tiny C-Compiler'. |
|
2827 ]. |
|
2828 usedCompiler = 'gcc' ifTrue:[ |
|
2829 ^ 'GNU C-Compiler'. |
|
2830 ]. |
|
2831 usedCompiler = 'mingw' ifTrue:[ |
|
2832 ^ 'MINGW GNU C-Compiler'. |
|
2833 ]. |
|
2834 |
|
2835 ^ 'C-Compiler'. |
|
2836 |
|
2837 "Created: / 03-09-2012 / 19:28:41 / cg" |
|
2838 ! |
|
2839 |
|
2840 update:something with:anArgument from:changedObject |
2843 update:something with:anArgument from:changedObject |
2841 changedObject == Smalltalk ifTrue:[ |
2844 changedObject == Smalltalk ifTrue:[ |
2842 (something == #newClass |
2845 (something == #newClass |
2843 or:[something == #classRemove |
2846 or:[something == #classRemove |
2844 or:[something == #projectOrganization]]) ifTrue:[ |
2847 or:[something == #projectOrganization]]) ifTrue:[ |