# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1346959112 -7200
# Node ID 995b645909600a90d1ae20f6149bb3640ae5140d
# Parent  bea9c6bb6a907ab3e29f50d2a6295e00374b5177
class definition
added: #cancelButtonVisible
changed:
        #postBuildWith:
        #windowSpec

diff -r bea9c6bb6a90 -r 995b64590960 Tools__ProjectBuilderAssistantApplication.st
--- a/Tools__ProjectBuilderAssistantApplication.st	Thu Sep 06 20:59:03 2012 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st	Thu Sep 06 21:18:32 2012 +0200
@@ -334,7 +334,30 @@
 'PackageID (module:directory).
 Click to create a new (empty) ProjectDefinition for the given PackageID.'
 
+#clearBuildDirectory
+'Clear the build directory.'
+
+#makeAll
+'Build a self-installing deployable package.'
+
+#makeExe
+'Build the executable only (for test-running).'
+
+#makeOutput
+'Displays the output of the build process (make command).'
+
+#openExplorer
+'Open a Windows Explorer on the build directory. You can double-click on the built executable there.'
+
+#openFileBrowser
+'Open a Filebrowser on the build directory.'
+
+#stopMake
+'Abort the ongoing build process. Please clear the build directory afterwards to remove any leftover garbage.'
+
 )
+
+    "Modified: / 06-09-2012 / 16:09:10 / cg"
 ! !
 
 !ProjectBuilderAssistantApplication class methodsFor:'interface specs'!
@@ -1274,6 +1297,7 @@
                  (TextEditorSpec
                     name: 'MakeOutputWindow'
                     layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+                    activeHelpKey: makeOutput
                     model: makeOutputHolder
                     hasHorizontalScrollBar: true
                     hasVerticalScrollBar: true
@@ -1298,6 +1322,7 @@
                  (ActionButtonSpec
                     label: 'Make All'
                     name: 'Button3'
+                    activeHelpKey: makeAll
                     translateLabel: true
                     model: doStartMakeAll
                     enableChannel: startMakeButtonEnabled
@@ -1306,6 +1331,7 @@
                  (ActionButtonSpec
                     label: 'Make EXE only'
                     name: 'Button5'
+                    activeHelpKey: makeExe
                     translateLabel: true
                     model: doStartMakeExe
                     enableChannel: startMakeButtonEnabled
@@ -1318,6 +1344,7 @@
                  (ActionButtonSpec
                     label: 'Stop Make'
                     name: 'Button4'
+                    activeHelpKey: stopMake
                     visibilityChannel: stopMakeButtonVisible
                     translateLabel: true
                     model: doStopMake
@@ -1340,6 +1367,7 @@
                  (ActionButtonSpec
                     label: 'Explorer on Build Directory'
                     name: 'Button13'
+                    activeHelpKey: openExplorer
                     visibilityChannel: osIsWindows
                     translateLabel: true
                     model: doOpenExplorer
@@ -1348,17 +1376,19 @@
                  (ActionButtonSpec
                     label: 'Browser on Build Directory'
                     name: 'Button11'
+                    activeHelpKey: openFileBrowser
                     translateLabel: true
                     model: doBrowseBuildDirectory
                     extent: (Point 167 22)
                   )
                  (ViewSpec
-                    name: 'Box1'
+                    name: 'Box2'
                     extent: (Point 20 10)
                   )
                  (ActionButtonSpec
                     label: 'Clear Build Directory'
                     name: 'Button12'
+                    activeHelpKey: clearBuildDirectory
                     translateLabel: true
                     model: doClearBuildDirectory
                     extent: (Point 167 22)
@@ -1371,8 +1401,6 @@
          
         )
       )
-
-    "Modified: / 05-09-2012 / 11:19:06 / cg"
 !
 
 page8_deploySpec
@@ -1884,7 +1912,7 @@
         ].
     ].
 
-    "Modified: / 22-01-2012 / 10:51:01 / cg"
+    "Modified: / 06-09-2012 / 16:22:51 / cg"
 !
 
 selectedApplicationChanged
@@ -2698,7 +2726,7 @@
         ].
     ].
 
-    suite := self suiteNameOfCompiler:(self usedCompilerHolder value).
+    suite := ProjectBuilder suiteNameOfCompiler:(self usedCompilerHolder value).
     self nameOfUsedCompilerSuiteHolder value:suite.
 
     (OperatingSystem canExecuteCommand:cmd) ifFalse:[
@@ -2721,7 +2749,7 @@
         self compilerWarnMessageVisibleHolder value:false
     ].
 
-    "Modified: / 05-09-2012 / 19:14:00 / cg"
+    "Modified: / 06-09-2012 / 15:58:58 / cg"
 !
 
 enterContentsSpecification
@@ -2812,31 +2840,6 @@
     makeOutputWindow contents:makeOutputHolder value
 !
 
-suiteNameOfCompiler:usedCompiler
-    usedCompiler = 'bcc' ifTrue:[
-        ^ 'Borland C-Compiler'.
-    ].
-    usedCompiler = 'vc' ifTrue:[
-        ^ 'Microsoft Visual C C-Compiler'.
-    ].
-    usedCompiler = 'lcc' ifTrue:[
-        ^ 'LCC C-Compiler'.
-    ].
-    usedCompiler = 'tcc' ifTrue:[
-        ^ 'Tiny C-Compiler'.
-    ].
-    usedCompiler = 'gcc' ifTrue:[
-        ^ 'GNU C-Compiler'.
-    ].
-    usedCompiler = 'mingw' ifTrue:[
-        ^ 'MINGW GNU C-Compiler'.
-    ].
-
-    ^ 'C-Compiler'.
-
-    "Created: / 03-09-2012 / 19:28:41 / cg"
-!
-
 update:something with:anArgument from:changedObject
     changedObject == Smalltalk ifTrue:[
         (something == #newClass