# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1345493174 -7200
# Node ID c842e3e6f52659cd0cace75bff44f9d3997116f6
# Parent  8057ed7bccd2b2ec7ce7ae4ad23c2ccd3b10ea0d
added: #updateListOfMatchingProjectsAndProjectIDs
changed:
        #assistantSpec
        #updateListOfNewProjectsName

diff -r 8057ed7bccd2 -r c842e3e6f526 Tools__ProjectBuilderAssistantApplication.st
--- a/Tools__ProjectBuilderAssistantApplication.st	Mon Aug 20 17:40:25 2012 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st	Mon Aug 20 22:06:14 2012 +0200
@@ -219,8 +219,8 @@
         (AssistantPageSpec
             pageTitle: 'ProjectDefinition Selection'
             windowSpecSelector: page2_projectSelectionSpec
-            enterCallbackSelector: updateListOfMatchingProjects
-            infoText: 'Choose an existing project definition or create a new one. These are subclasses of <I>ProjectDefinition</I> and define the type and contents of a project.'
+            enterCallbackSelector: updateListOfMatchingProjectsAndProjectIDs
+            infoText: 'Choose an existing project definition or create a new one. These are subclasses of <I>ProjectDefinition</I> and define the type and contents of a project. Notice that the ID directly reflects the project''s location within the source code repository (module:directory/subdirectory...). If in doubt, use "&lt;yourname&gt;:demos/xxx_n".'
         )
 
         (AssistantPageSpec
@@ -254,7 +254,7 @@
             windowSpecSelector: page5b_specifyPrerequisitePackages
             enterCallbackSelector: enterPrerequisitesSpecification
             canEnterQuerySelector: #canEnterPrerequisitesSelection
-            infoText: 'Define which (other) packages are needed as prerequisites. Press "<I>Scan</I>" to search for prerequisites; browse to edit the list manually.'
+            infoText: 'Define which packages are needed as prerequisites. Press "<I>Scan</I>" to search for prerequisites; browse to edit the list manually.'
         )
 
         (AssistantPageSpec
@@ -278,18 +278,18 @@
             canEnterQuerySelector: #canEnterBuild
             enterCallbackSelector: #restoreMakeOutputsContents
             leaveCallbackSelector: #rememberMakeOutputsContents
-            infoText: 'Start the build-process. This will run make/bcc to compile all required classes and nsis to generate a self-installable executable. You must have the borland-cc and NullSoft NSIS packages installed for this to work.'
+            infoText: 'Start the build-process. This will run make+bcc/vc to compile all required classes and nsis to generate a self-installable executable. You must have the compiler (borland-bcc or visual-c) and NullSoft NSIS packages installed for this to work.'
         )
 
         (AssistantPageSpec
             pageTitle: 'Deploy'
             windowSpecSelector: page8_deploySpec
             canEnterQuerySelector: #canEnterDeploy
-            infoText: 'Find the installer to be deployed (or test-run the binary). You can open a WindowsExplorer there to copy the files for deployment. After that, the build directory is no longer needed (but you can keep it for a faster compile the next time).'
+            infoText: 'Find the installer to be deployed (or test-run the binary). You can open a Windows-Explorer there to copy the files for deployment. After that, the build directory is no longer needed. However, you can keep it for a faster compile the next time.'
         )
     ) decodeAsLiteralArray.
 
-    "Modified: / 19-01-2012 / 15:36:05 / cg"
+    "Modified: / 20-08-2012 / 19:44:04 / cg"
 ! !
 
 !ProjectBuilderAssistantApplication class methodsFor:'defaults'!
@@ -2841,8 +2841,14 @@
     "Modified: / 20-07-2012 / 15:04:15 / cg"
 !
 
+updateListOfMatchingProjectsAndProjectIDs
+    self updateListOfMatchingProjects.
+    self updateListOfNewProjectsName.
+
+    "Created: / 20-08-2012 / 19:33:12 / cg"
+!
+
 updateListOfNewProjectsName
-
     |loadedProjectIDsWithoutProjectDefinition|
 
     loadedProjectIDsWithoutProjectDefinition := Smalltalk allLoadedProjectIDs 
@@ -2850,7 +2856,11 @@
                                                                 eachProjectID ~= PackageId noProjectID 
                                                                 and:[ (ProjectDefinition definitionClassForPackage: eachProjectID) isNil ].
                                                             ].
+    loadedProjectIDsWithoutProjectDefinition := loadedProjectIDsWithoutProjectDefinition asOrderedCollection.
+    loadedProjectIDsWithoutProjectDefinition addFirst:(OperatingSystem getLoginName,':','demos','/','demo1').
     self listOfNewProjectsName value:loadedProjectIDsWithoutProjectDefinition.
+
+    "Modified: / 20-08-2012 / 19:31:35 / cg"
 !
 
 updateListOfPrerequisitesInProject