28 selectedApplicationsComment buildDirectoryHolder makeProcess |
28 selectedApplicationsComment buildDirectoryHolder makeProcess |
29 listOfClassesInProject makeOutputWindow projectBuilder |
29 listOfClassesInProject makeOutputWindow projectBuilder |
30 newStartupClassName usedCompilerHolder listOfNewProjectsName |
30 newStartupClassName usedCompilerHolder listOfNewProjectsName |
31 newProjectsNameListExtendedComboBox productNameHolder |
31 newProjectsNameListExtendedComboBox productNameHolder |
32 companyNameHolder compilerWarnMessageHolder |
32 companyNameHolder compilerWarnMessageHolder |
33 compilerWarnMessageVisibleHolder listOfPrerequisitesInProject' |
33 compilerWarnMessageVisibleHolder listOfPrerequisitesInProject |
|
34 nameOfUsedCompilerSuiteHolder' |
34 classVariableNames:'' |
35 classVariableNames:'' |
35 poolDictionaries:'' |
36 poolDictionaries:'' |
36 category:'System-Support-Projects' |
37 category:'System-Support-Projects' |
37 ! |
38 ! |
38 |
39 |
1199 layout: (LayoutFrame 0 0 10 0 137 0 32 0) |
1200 layout: (LayoutFrame 0 0 10 0 137 0 32 0) |
1200 model: usedCompilerHolder |
1201 model: usedCompilerHolder |
1201 comboList: listOfPossibleCompilers |
1202 comboList: listOfPossibleCompilers |
1202 useIndex: false |
1203 useIndex: false |
1203 ) |
1204 ) |
|
1205 (LabelSpec |
|
1206 label: 'Compiler Suite' |
|
1207 name: 'Label2' |
|
1208 layout: (LayoutFrame 163 0 10 0 0 1 32 0) |
|
1209 translateLabel: true |
|
1210 labelChannel: nameOfUsedCompilerSuiteHolder |
|
1211 adjust: left |
|
1212 ) |
1204 ) |
1213 ) |
1205 |
1214 |
1206 ) |
1215 ) |
1207 ) |
1216 ) |
1208 (LabelSpec |
1217 (LabelSpec |
1209 label: 'Compiler Warn-Label' |
1218 label: 'Compiler Warn-Label' |
1210 name: 'Label1' |
1219 name: 'Label1' |
1211 layout: (LayoutFrame 2 0.0 158 0 -2 1.0 303 0) |
1220 layout: (LayoutFrame 2 0.0 158 0 -2 1.0 303 0) |
1212 level: -1 |
1221 level: -1 |
1213 visibilityChannel: compilerWarnMessageVisibleHolder |
1222 visibilityChannel: compilerWarnMessageVisibleHolder |
1214 backgroundColor: (Color 100.0 49.999237048905 49.999237048905) |
1223 backgroundColor: (Color 100.0 49.9992370489052 49.9992370489052) |
1215 translateLabel: true |
1224 translateLabel: true |
1216 labelChannel: compilerWarnMessageHolder |
1225 labelChannel: compilerWarnMessageHolder |
1217 adjust: left |
1226 adjust: left |
1218 ) |
1227 ) |
1219 ) |
1228 ) |
2067 makeOutputHolder := ValueHolder new. |
2076 makeOutputHolder := ValueHolder new. |
2068 ]. |
2077 ]. |
2069 ^ makeOutputHolder. |
2078 ^ makeOutputHolder. |
2070 ! |
2079 ! |
2071 |
2080 |
|
2081 nameOfUsedCompilerSuiteHolder |
|
2082 <resource: #uiAspect> |
|
2083 |
|
2084 nameOfUsedCompilerSuiteHolder isNil ifTrue:[ |
|
2085 nameOfUsedCompilerSuiteHolder := nil asValue. |
|
2086 ]. |
|
2087 ^ nameOfUsedCompilerSuiteHolder. |
|
2088 |
|
2089 "Created: / 03-09-2012 / 19:32:27 / cg" |
|
2090 ! |
|
2091 |
2072 newApplicationsName |
2092 newApplicationsName |
2073 <resource: #uiAspect> |
2093 <resource: #uiAspect> |
2074 |
2094 |
2075 "automatically generated by UIPainter ..." |
2095 "automatically generated by UIPainter ..." |
2076 |
2096 |
2585 |
2605 |
2586 checkCompilerAvailability |
2606 checkCompilerAvailability |
2587 |cmd suite warnMsg1 warnMsg2 sep| |
2607 |cmd suite warnMsg1 warnMsg2 sep| |
2588 |
2608 |
2589 cmd := 'cc'. |
2609 cmd := 'cc'. |
2590 suite := 'C-Compiler'. |
|
2591 warnMsg1 := warnMsg2 := ''. |
2610 warnMsg1 := warnMsg2 := ''. |
2592 |
2611 |
2593 self usedCompilerHolder value = 'bcc' ifTrue:[ |
2612 self usedCompilerHolder value = 'bcc' ifTrue:[ |
2594 cmd := 'bcc32'. |
2613 cmd := 'bcc32'. |
2595 suite := 'Borland C-Compiler'. |
|
2596 ]. |
2614 ]. |
2597 self usedCompilerHolder value = 'vc' ifTrue:[ |
2615 self usedCompilerHolder value = 'vc' ifTrue:[ |
2598 cmd := 'cl'. |
2616 cmd := 'cl'. |
2599 suite := 'Microsoft Visual C C-Compiler'. |
|
2600 warnMsg2 := 'Due to bugs in this C-compiler, some classes may not be compilable.'. |
2617 warnMsg2 := 'Due to bugs in this C-compiler, some classes may not be compilable.'. |
2601 ]. |
2618 ]. |
2602 self usedCompilerHolder value = 'lcc' ifTrue:[ |
2619 self usedCompilerHolder value = 'lcc' ifTrue:[ |
2603 cmd := 'lcc'. |
2620 cmd := 'lcc'. |
2604 suite := 'LCC C-Compiler'. |
|
2605 warnMsg2 := 'The LCC C-compiler suite is not yet supported (linkage).'. |
2621 warnMsg2 := 'The LCC C-compiler suite is not yet supported (linkage).'. |
|
2622 ]. |
|
2623 self usedCompilerHolder value = 'tcc' ifTrue:[ |
|
2624 cmd := 'tcc'. |
|
2625 OperatingSystem isMSWINDOWSlike ifTrue:[ |
|
2626 warnMsg2 := 'The Tiny C-compiler suite is not yet supported on MSDOS systems.'. |
|
2627 ]. |
2606 ]. |
2628 ]. |
2607 self usedCompilerHolder value = 'gcc' ifTrue:[ |
2629 self usedCompilerHolder value = 'gcc' ifTrue:[ |
2608 cmd := 'gcc'. |
2630 cmd := 'gcc'. |
2609 suite := 'GNU C-Compiler'. |
|
2610 OperatingSystem isMSWINDOWSlike ifTrue:[ |
2631 OperatingSystem isMSWINDOWSlike ifTrue:[ |
2611 warnMsg2 := 'The GNU C-compiler suite is not yet supported on MSDOS systems.'. |
2632 warnMsg2 := 'The GNU C-compiler suite is not yet supported on MSDOS systems.'. |
2612 ]. |
2633 ]. |
2613 ]. |
2634 ]. |
|
2635 suite := self suiteNameOfCompiler:(self usedCompilerHolder value). |
|
2636 self nameOfUsedCompilerSuiteHolder value:suite. |
2614 |
2637 |
2615 (OperatingSystem canExecuteCommand:cmd) ifFalse:[ |
2638 (OperatingSystem canExecuteCommand:cmd) ifFalse:[ |
2616 warnMsg1 := |
2639 warnMsg1 := |
2617 'The "%1"-command seems to be not in your path. |
2640 'The "%1"-command seems to be not in your path. |
2618 Please ensure that you installed the |
2641 Please ensure that you installed the |
2619 "%2" compiler suite correctly.' bindWith:cmd with:suite. |
2642 "%2" compiler suite correctly. |
|
2643 (However, the makefiles might know where to find the compiler)' bindWith:cmd with:suite. |
2620 ]. |
2644 ]. |
2621 |
2645 |
2622 (warnMsg1 notEmpty or:[warnMsg2 notEmpty]) ifTrue:[ |
2646 (warnMsg1 notEmpty or:[warnMsg2 notEmpty]) ifTrue:[ |
2623 sep := ''. |
2647 sep := ''. |
2624 (warnMsg2 notEmpty) ifTrue:[ sep := '\\' withCRs ]. |
2648 (warnMsg2 notEmpty) ifTrue:[ sep := '\\' withCRs ]. |
2628 ',warnMsg1,sep,warnMsg2). |
2652 ',warnMsg1,sep,warnMsg2). |
2629 self compilerWarnMessageVisibleHolder value:true. |
2653 self compilerWarnMessageVisibleHolder value:true. |
2630 ] ifFalse:[ |
2654 ] ifFalse:[ |
2631 self compilerWarnMessageVisibleHolder value:false |
2655 self compilerWarnMessageVisibleHolder value:false |
2632 ]. |
2656 ]. |
|
2657 |
|
2658 "Modified: / 03-09-2012 / 19:32:09 / cg" |
2633 ! |
2659 ! |
2634 |
2660 |
2635 enterContentsSpecification |
2661 enterContentsSpecification |
2636 |toAdd| |
2662 |toAdd| |
2637 |
2663 |
2702 |
2728 |
2703 restoreMakeOutputsContents |
2729 restoreMakeOutputsContents |
2704 makeOutputWindow contents:makeOutputHolder value |
2730 makeOutputWindow contents:makeOutputHolder value |
2705 ! |
2731 ! |
2706 |
2732 |
|
2733 suiteNameOfCompiler:usedCompiler |
|
2734 usedCompiler = 'bcc' ifTrue:[ |
|
2735 ^ 'Borland C-Compiler'. |
|
2736 ]. |
|
2737 usedCompiler = 'vc' ifTrue:[ |
|
2738 ^ 'Microsoft Visual C C-Compiler'. |
|
2739 ]. |
|
2740 usedCompiler = 'lcc' ifTrue:[ |
|
2741 ^ 'LCC C-Compiler'. |
|
2742 ]. |
|
2743 usedCompiler = 'tcc' ifTrue:[ |
|
2744 ^ 'Tiny C-Compiler'. |
|
2745 ]. |
|
2746 usedCompiler = 'gcc' ifTrue:[ |
|
2747 ^ 'GNU C-Compiler'. |
|
2748 ]. |
|
2749 |
|
2750 ^ 'C-Compiler'. |
|
2751 |
|
2752 "Created: / 03-09-2012 / 19:28:41 / cg" |
|
2753 ! |
|
2754 |
2707 update:something with:anArgument from:changedObject |
2755 update:something with:anArgument from:changedObject |
2708 changedObject == Smalltalk ifTrue:[ |
2756 changedObject == Smalltalk ifTrue:[ |
2709 (something == #newClass |
2757 (something == #newClass |
2710 or:[something == #classRemove |
2758 or:[something == #classRemove |
2711 or:[something == #projectOrganization]]) ifTrue:[ |
2759 or:[something == #projectOrganization]]) ifTrue:[ |