--- a/Tools__ProjectBuilderAssistantApplication.st	Thu Oct 22 21:54:55 2009 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st	Thu Oct 22 21:58:39 2009 +0200
@@ -20,6 +20,23 @@
 	category:'System-Support-Projects'
 !
 
+!ProjectBuilderAssistantApplication class methodsFor:'documentation'!
+
+documentation
+"
+    a user friendly interface to the build process.
+    Simply wraps up existing tools like the CodeGeneratorTool, the browsers
+    and the ProjetBuilder
+
+    [see also:]
+        CodeGeneratorTool
+        ProjectBuilder
+        ProjectDefinition
+
+    [author:]
+        Claus Gittinger
+"
+! !
 
 !ProjectBuilderAssistantApplication class methodsFor:'interface specs'!
 
@@ -973,7 +990,7 @@
     self hasApplicationSelected ifTrue:[
         appClass := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value).
         UserPreferences systemBrowserClass 
-            openInClass:appClass.
+            openInClass:appClass class selector:#windowSpec.
     ].
 !
 
@@ -1003,7 +1020,7 @@
     self hasStartupClassSelected ifTrue:[
         startupClass := self listOfStartupClassesInProject value at:(self selectedStartupClassIndexHolder value).
         UserPreferences systemBrowserClass 
-            openInClass:startupClass.
+            openInClass:startupClass class selector:#main:.
     ].
 !
 
@@ -1676,10 +1693,10 @@
 !
 
 updateListOfApplicationsInProject
-    |applicationClasses package startUpClassName startUpClass appClassIndex|
+    |oldList applicationClasses package startUpClassName startUpClass 
+     appClass appClassIndex|
 
     appClassIndex := nil.
-    self selectedApplicationIndexHolder value:nil.
 
     selectedProjectDefinition isNil ifTrue:[
         applicationClasses := #()
@@ -1694,18 +1711,25 @@
         applicationClasses := applicationClasses asOrderedCollection.
         applicationClasses sort:[:a :b | a name < b name].
 
-        startUpClassName := [ selectedProjectDefinition startupClassName ] ifError:[ nil ].
-        startUpClassName notNil ifTrue:[
-            startUpClass := Smalltalk classNamed:startUpClassName.
-            startUpClass notNil ifTrue:[
-                appClassIndex := applicationClasses indexOf:startUpClass.
-                appClassIndex == 0 ifTrue:[ appClassIndex := nil ].
-            ].
-        ].
+"/        startUpClassName := [ selectedProjectDefinition startupClassName ] ifError:[ nil ].
+"/        startUpClassName notNil ifTrue:[
+"/            startUpClass := Smalltalk classNamed:startUpClassName.
+"/            startUpClass notNil ifTrue:[
+"/                appClassIndex := applicationClasses indexOf:startUpClass.
+"/                appClassIndex == 0 ifTrue:[ appClassIndex := nil ].
+"/            ].
+"/        ].
     ].
-    self listOfApplicationsInProject value:applicationClasses.
 
-    self selectedApplicationIndexHolder value:appClassIndex.
+    oldList := self listOfApplicationsInProject value.
+    oldList = applicationClasses ifFalse:[
+        appClass := selectedApplication.
+        appClassIndex := applicationClasses indexOf:appClass.
+        appClassIndex == 0 ifTrue:[ appClassIndex := nil ].
+
+        self listOfApplicationsInProject value:applicationClasses.
+        self selectedApplicationIndexHolder value:appClassIndex.
+    ].
 !
 
 updateListOfClassesInProject