diff -r 64aa9ac2e8a1 -r 2ab6062e33ab Tools__ProjectBuilderAssistantApplication.st
--- a/Tools__ProjectBuilderAssistantApplication.st	Tue Nov 03 11:25:35 2009 +0100
+++ b/Tools__ProjectBuilderAssistantApplication.st	Tue Nov 03 13:11:56 2009 +0100
@@ -145,14 +145,25 @@
 
     ^ super flyByHelpSpec addPairsFrom:#(
 
-#newProjectsName
-'PackageID (module:directory)'
+#'projectType'
+'Choose the type of Project you are about to deploy.'
+
+#existingProjects
+'Projects with an existing ProjectDefinition of the chosen type (above).'
 
-#createNewProject
-'Click to create a new (empty) ProjectDefinition for the given PackageID'
+#browseSelectedProject
+'Open a SystemBrowser on the selected Project.'
+
+#hideSTXBasePackages
+'Only show packages which are not already included in the basic ST/X delivery.'
 
 #'listOfNewProjectsName'
-'foo  bar baz'
+'PackageID (module:directory).
+The pull-down list contains packageIDs for which no ProjectDefinition exists (yet).'
+
+#'createNewProject'
+'PackageID (module:directory).
+Click to create a new (empty) ProjectDefinition for the given PackageID.'
 
 )
 ! !
@@ -187,9 +198,10 @@
        (SpecCollection
           collection: (
            (FramedBoxSpec
-              label: 'Project Type Filter'
+              label: 'Project Type'
               name: 'FramedBox1'
               layout: (LayoutFrame 0 0.0 0 0 4 1.0 120 0)
+              activeHelpKey: projectType
               labelPosition: topLeft
               translateLabel: true
               component: 
@@ -248,9 +260,10 @@
               )
             )
            (FramedBoxSpec
-              label: 'Existing Projects (PackageID''s)'
+              label: 'Existing Projects of this Type (PackageID''s)'
               name: 'FramedBox2'
               layout: (LayoutFrame 0 0.0 123 0 4 1.0 0 1)
+              activeHelpKey: existingProjects
               labelPosition: topLeft
               translateLabel: true
               component: 
@@ -287,6 +300,7 @@
                     label: 'Hide ST/X Base Packages'
                     name: 'CheckBox1'
                     layout: (LayoutFrame -1 0 -18 1 0 1 4 1)
+                    activeHelpKey: hideSTXBasePackages
                     model: hideSTXProjects
                     translateLabel: true
                   )
@@ -328,7 +342,7 @@
        (SpecCollection
           collection: (
            (FramedBoxSpec
-              label: 'New PackageID'
+              label: 'New Project''s PackageID'
               name: 'FramedBox3'
               layout: (LayoutFrame 0 0.0 5 0 4 1.0 72 0)
               labelPosition: topLeft
@@ -336,6 +350,15 @@
               component: 
              (SpecCollection
                 collection: (
+                 (ExtendedComboBoxSpec
+                    name: 'NewProjectsNameListExtendedComboBox'
+                    layout: (LayoutFrame 1 0 6 0 -113 1 28 0)
+                    model: newProjectsName
+                    readOnly: false
+                    miniScrollerHorizontal: true
+                    postBuildCallback: postBuildNewProjectsNameListExtendedComboBox:
+              activeHelpKey: listOfNewProjectsName
+                  )
                  (ActionButtonSpec
                     label: 'Create'
                     name: 'Button1'
@@ -343,22 +366,15 @@
                     translateLabel: true
                     model: createNewProject
               activeHelpKey: createNewProject
+
                   )
-                 (ExtendedComboBoxSpec
-                    name: 'NewProjectsNameListExtendedComboBox'
-                    layout: (LayoutFrame 1 0 6 0 -113 1 28 0)
-                    model: newProjectsName
-                    readOnly: false
-                    miniScrollerHorizontal: true
-                    postBuildCallback: postBuildNewProjectsNameListExtendedComboBox:
-              activeHelpKey: newProjectsName
-                  )
+
                  )
                
               )
             )
            (FramedBoxSpec
-              label: 'Existing PackageID''s with Project Definition'
+              label: 'Existing Projects with ProjectDefinition'
               name: 'FramedBox4'
               layout: (LayoutFrame 0 0.0 70 0 4 1.0 -30 1)
               labelPosition: topLeft
@@ -400,6 +416,7 @@
                     layout: (LayoutFrame -1 0 -17 1 0 1 5 1)
                     model: hideSTXProjects
                     translateLabel: true
+                    activeHelpKey: hideSTXBasePackages
                   )
                  )
                
@@ -422,6 +439,7 @@
                     model: doBrowseProject
                     enableChannel: hasProjectSelectedHolder
                     extent: (Point 180 22)
+                    activeHelpKey: browseSelectedProject
                   )
                  )