changed:
#flyByHelpSpec
#page1_projectTypeSelectionSpec
#page2_projectSelectionSpec
--- 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
)
)