--- a/Tools__ProjectBuilderAssistantApplication.st	Tue May 07 17:29:09 2013 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st	Tue May 07 19:08:32 2013 +0200
@@ -328,7 +328,9 @@
 
 #nameOfApplicationClass
 'For GUI applications: the name of your application class (subclass of ApplicationModel).
-This will be opened by the startup sequence and defines the UI.'
+This will be opened by the startup sequence and defines the UI.
+(Usually, these are named "XXXApplication" or "XXXApp")
+Click on the "Create"-button to create a simple helloWorld app to start with.'
 
 #createNewApplication
 'Create a new simple dummy application (HelloWorld-like). 
@@ -337,7 +339,9 @@
 #nameOfStartupClass
 'This class contains the main method, in which the show starts when the executable runs.
 Its main task is to parse command line arguments (if any) and fire up the real application.
-It should inherit from StandaloneStartup.'
+It should inherit from StandaloneStartup.
+(Usually, these are named "XXXStart" or "XXXStartup")
+Click on the "Create"-button to create something to start with (will launch your application)'
 
 #createNewStartupClass
 'Create a new simple startup class which fires up the defined application.
@@ -1665,6 +1669,16 @@
         Dialog warn:'Please enter the name of the Application-Class first.'.
         ^ self
     ].
+    newAppName isUppercaseFirst ifFalse:[
+        (Dialog confirm:(resources 
+                    stringWithCRs:'Class names must start with an uppercase character.\\Change to "%1"?'
+                    with:newAppName asUppercaseFirst))
+        ifFalse:[
+            ^ self
+        ].
+        newAppName := newAppName asUppercaseFirst.
+        self newApplicationsName value:newAppName.
+    ].
 
     self withWaitCursorDo:[
         Class packageQuerySignal answer:(selectedProjectDefinition package)
@@ -1750,6 +1764,16 @@
         Dialog warn:'Please enter the name of the Startup-Class first.'.
         ^ self
     ].
+    newClassName isUppercaseFirst ifFalse:[
+        (Dialog confirm:(resources 
+                    stringWithCRs:'Class names must start with an uppercase character.\\Change to "%1"?'
+                    with:newClassName asUppercaseFirst))
+        ifFalse:[
+            ^ self
+        ].
+        newClassName := newClassName asUppercaseFirst.
+        self newStartupClassName value:newClassName.
+    ].
 
     self withWaitCursorDo:[ 
         |pkg|