Mercurial Mercurial > hg > stx-libtool2 / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tools__ProjectBuilderAssistantApplication.st
changeset 2919 f6656592583b
parent 2917 086fcfdbd182
child 2922 995b64590960
equal deleted inserted replaced
2918:47d5c20da62d 2919:f6656592583b 
    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 		nameOfUsedCompilerSuiteHolder usedCompilerIndexHolder'
 
    35 	classVariableNames:'LastUsedCompiler'
 
    35 	classVariableNames:'LastUsedCompiler'
 
    36 	poolDictionaries:''
 
    36 	poolDictionaries:''
 
    37 	category:'System-Support-Projects'
 
    37 	category:'System-Support-Projects'
 
    38 !
 
    38 !
 
    39 
    39 
  1214                   )
 
  1214                   )
 
  1215                  )
 
  1215                  )
 
  1216                
  1216                
  1217               )
 
  1217               )
 
  1218             )
 
  1218             )
 
  1219            (LabelSpec
 
  1219            (TextEditorSpec
 
  1220               label: 'Compiler Warn-Label'
 
  1220               name: 'TextEditor1'
 
  1221               name: 'Label1'
 
       
  1222               layout: (LayoutFrame 2 0.0 158 0 -2 1.0 303 0)
 
  1221               layout: (LayoutFrame 2 0.0 158 0 -2 1.0 303 0)
 
  1223               level: -1
 
  1222               level: -1
 
  1224               visibilityChannel: compilerWarnMessageVisibleHolder
 
  1223               visibilityChannel: compilerWarnMessageVisibleHolder
 
       
  1224               model: compilerWarnMessageHolder
 
       
  1225               hasHorizontalScrollBar: true
 
       
  1226               hasVerticalScrollBar: true
 
       
  1227               miniScrollerHorizontal: true
 
  1225               backgroundColor: (Color 100.0 49.9992370489052 49.9992370489052)
 
  1228               backgroundColor: (Color 100.0 49.9992370489052 49.9992370489052)
 
  1226               translateLabel: true
 
  1229               hasKeyboardFocusInitially: false
 
  1227               labelChannel: compilerWarnMessageHolder
 
  1230               postBuildCallback: postBuildWarnMessageView:
 
  1228               adjust: left
 
       
  1229             )
 
  1231             )
 
  1230            )
 
  1232            )
 
  1231          
  1233          
  1232         )
 
  1234         )
 
  1233       )
 
  1235       )
 
  2092 !
 
  2094 !
 
  2093 
  2095 
  2094 listOfPossibleCompilers
 
  2096 listOfPossibleCompilers
 
  2095     ^ Tools::ProjectBuilder listOfPossibleCompilers
 
  2097     ^ Tools::ProjectBuilder listOfPossibleCompilers
 
  2096 
  2098 
  2097     "Modified: / 21-01-2012 / 14:05:52 / cg"
 
  2099     "Modified: / 05-09-2012 / 19:10:24 / cg"
 
  2098 !
 
  2100 !
 
  2099 
  2101 
  2100 listOfPrerequisitesInProject
 
  2102 listOfPrerequisitesInProject
 
  2101     <resource: #uiAspect>
 
  2103     <resource: #uiAspect>
 
  2102 
  2104 
  2413             acceptOnPointerLeave:true;
 
  2415             acceptOnPointerLeave:true;
 
  2414             acceptOnReturn:true;
 
  2416             acceptOnReturn:true;
 
  2415             acceptOnTab:true.
 
  2417             acceptOnTab:true.
 
  2416 
  2418 
  2417     newProjectsNameListExtendedComboBox := anExtendedComboBox.
 
  2419     newProjectsNameListExtendedComboBox := anExtendedComboBox.
 
       
  2420 !
 
       
  2421 
       
  2422 postBuildWarnMessageView:aView
 
       
  2423     aView font:(Label defaultFont).
 
       
  2424 
       
  2425     "Created: / 05-09-2012 / 19:34:29 / cg"
 
  2418 !
 
  2426 !
 
  2419 
  2427 
  2420 postBuildWith:aBuilder
 
  2428 postBuildWith:aBuilder
 
  2421     super postBuildWith:aBuilder.
 
  2429     super postBuildWith:aBuilder.
 
  2422     self updateListOfMatchingProjects.
 
  2430     self updateListOfMatchingProjects.
 
  2655 ! !
 
  2663 ! !
 
  2656 
  2664 
  2657 !ProjectBuilderAssistantApplication methodsFor:'update'!
 
  2665 !ProjectBuilderAssistantApplication methodsFor:'update'!
 
  2658 
  2666 
  2659 checkCompilerAvailability
 
  2667 checkCompilerAvailability
 
  2660     |cmd suite warnMsg1 warnMsg2 sep|
 
  2668     |cmd suite warnMsg1 warnMsg2 sep usedCompiler|
 
  2661 
  2669 
  2662     cmd := 'cc'.
 
  2670     cmd := 'cc'.
 
  2663     warnMsg1 := warnMsg2 := ''.
 
  2671     warnMsg1 := warnMsg2 := ''.
 
  2664 
  2672 
  2665     self usedCompilerHolder value = 'bcc' ifTrue:[
 
  2673     usedCompiler := self usedCompilerHolder value.
 
       
  2674     usedCompiler = 'bcc' ifTrue:[
 
  2666         cmd := 'bcc32'.
 
  2675         cmd := 'bcc32'.
 
  2667     ].
 
  2676     ].
 
  2668     self usedCompilerHolder value = 'vc' ifTrue:[
 
  2677     usedCompiler = 'vc' ifTrue:[
 
  2669         cmd := 'cl'.
 
  2678         cmd := 'cl'.
 
  2670         warnMsg1 := 'Due to bugs in this C-compiler, some classes may not be compilable.'.
 
  2679         warnMsg1 := 'Due to bugs in this C-compiler, some classes may not be compilable.'.
 
  2671     ].
 
  2680     ].
 
  2672     self usedCompilerHolder value = 'lcc' ifTrue:[
 
  2681     usedCompiler = 'lcc' ifTrue:[
 
  2673         cmd := 'lcc'.
 
  2682         cmd := 'lcc'.
 
  2674         warnMsg1 := 'The LCC C-compiler suite is not yet supported (linkage).'.
 
  2683         warnMsg1 := 'The LCC C-compiler suite is not officially supported.'.
 
  2675     ].
 
  2684     ].
 
  2676     self usedCompilerHolder value = 'tcc' ifTrue:[
 
  2685     usedCompiler = 'tcc' ifTrue:[
 
  2677         cmd := 'tcc'.
 
  2686         cmd := 'tcc'.
 
  2678         OperatingSystem isMSWINDOWSlike ifTrue:[
 
  2687         OperatingSystem isMSWINDOWSlike ifTrue:[
 
  2679             warnMsg1 := 'The Tiny C-compiler suite is not yet supported on MSDOS systems.'.
 
  2688             warnMsg1 := 'The Tiny C-compiler suite is not yet supported (linkage).'.
 
  2680         ].
 
  2689         ].
 
  2681     ].
 
  2690     ].
 
  2682     self usedCompilerHolder value = 'gcc' ifTrue:[
 
  2691     usedCompiler = 'gcc' ifTrue:[
 
       
  2692         cmd := 'gcc'.
 
       
  2693     ].
 
       
  2694     usedCompiler = 'mingw' ifTrue:[
 
  2683         cmd := 'gcc'.
 
  2695         cmd := 'gcc'.
 
  2684         OperatingSystem isMSWINDOWSlike ifTrue:[
 
  2696         OperatingSystem isMSWINDOWSlike ifTrue:[
 
  2685             warnMsg1 := 'The GNU C-compiler suite is not yet supported on MSDOS systems.'.
 
  2697             warnMsg1 := 'The MINGW C-compiler suite is not officially supported.'.
 
  2686         ].
 
  2698         ].
 
  2687     ].
 
  2699     ].
 
       
  2700 
  2688     suite := self suiteNameOfCompiler:(self usedCompilerHolder value).
 
  2701     suite := self suiteNameOfCompiler:(self usedCompilerHolder value).
 
  2689     self nameOfUsedCompilerSuiteHolder value:suite.
 
  2702     self nameOfUsedCompilerSuiteHolder value:suite.
 
  2690 
  2703 
  2691     (OperatingSystem canExecuteCommand:cmd) ifFalse:[
 
  2704     (OperatingSystem canExecuteCommand:cmd) ifFalse:[
 
  2692         warnMsg2 :=
 
  2705         warnMsg2 :=
 
  2706         self compilerWarnMessageVisibleHolder value:true.
 
  2719         self compilerWarnMessageVisibleHolder value:true.
 
  2707     ] ifFalse:[
 
  2720     ] ifFalse:[
 
  2708         self compilerWarnMessageVisibleHolder value:false
 
  2721         self compilerWarnMessageVisibleHolder value:false
 
  2709     ].
 
  2722     ].
 
  2710 
  2723 
  2711     "Modified: / 04-09-2012 / 09:57:37 / cg"
 
  2724     "Modified: / 05-09-2012 / 19:14:00 / cg"
 
  2712 !
 
  2725 !
 
  2713 
  2726 
  2714 enterContentsSpecification
 
  2727 enterContentsSpecification
 
  2715     |toAdd|
 
  2728     |toAdd|
 
  2716 
  2729 
  2813         ^ 'Tiny C-Compiler'.
 
  2826         ^ 'Tiny C-Compiler'.
 
  2814     ].
 
  2827     ].
 
  2815     usedCompiler = 'gcc' ifTrue:[
 
  2828     usedCompiler = 'gcc' ifTrue:[
 
  2816         ^ 'GNU C-Compiler'.
 
  2829         ^ 'GNU C-Compiler'.
 
  2817     ].
 
  2830     ].
 
       
  2831     usedCompiler = 'mingw' ifTrue:[
 
       
  2832         ^ 'MINGW GNU C-Compiler'.
 
       
  2833     ].
 
  2818 
  2834 
  2819     ^ 'C-Compiler'.
 
  2835     ^ 'C-Compiler'.
 
  2820 
  2836 
  2821     "Created: / 03-09-2012 / 19:28:41 / cg"
 
  2837     "Created: / 03-09-2012 / 19:28:41 / cg"
 
  2822 !
 
  2838 !
hg/stx-libtool2