--- a/Tools__NewClassWizardDialog.st	Sun Jan 29 12:56:58 2012 +0000
+++ b/Tools__NewClassWizardDialog.st	Sun Jan 29 15:33:37 2012 +0000
@@ -94,10 +94,10 @@
     ^ super flyByHelpSpec addPairsFrom:#(
 
 #chooseSuperclass
-'Open a dialog for superclass selection.'
+'Open a dialog for superclass selection'
 
 #classInstVariableNames
-'Special: instance variables of the CLASS object (separated by blanks).'
+'Special: instance variables of the CLASS object (separated by blanks)'
 
 #stereotype
 'Some often used class creation templates'
@@ -106,7 +106,7 @@
 'The name of the new class (without namespace prefix)'
 
 #classVariableNames
-'Special: class variables (separated by blanks).'
+'Special: class variables (separated by blanks)'
 
 #createAccessors
 'Create getters and setters for all instance variables'
@@ -123,28 +123,42 @@
 #createUpdateMethod
 'Create an initial update method template'
 
+#createInitialGUICode
+'Create initial template code (mostly useful for applications)'
+
 #instanceVariableNames
-'Instance variables (separated by blanks).'
+'Instance variables (separated by spaces)'
 
 #namespace
-'Optional namespace in which this class is to be created (default: Smalltalk)'
+'Optional namespace in which this class is to be created (default: Smalltalk).\Notice: namespaces are used to avoid name conflicts, not for organization\(that is what categries are for)'
 
 #namespaceChooser
-'Open a dialog for namespace selection.'
+'Open a dialog for namespace selection'
 
 #package
-'Package into which this class should be placed'
+'Package into which this class should be placed.\Packages are units for deployment\(separately compiled & deployable libraries and applications)'
+
+#project
+'Project-ID (aka package) into which this class should be placed'
+
+#category
+'Category into which the new class should be organized (in the browser)'
+
+#categoryChooser
+'Open a dialog for category selection'
 
 #packageChooser
-'Open a dialog for package selection.'
+'Open a dialog for package selection'
 
 #programmingLanguage
 'Programming Language to use for code in this class'
 
 #superclass
-'Superclass of the new class.'
+'Superclass of the new class'
 
 )
+
+    "Modified: / 27-01-2012 / 14:41:44 / cg"
 ! !
 
 !NewClassWizardDialog class methodsFor:'image specs'!
@@ -381,7 +395,7 @@
               model: openSuperClassChooser
             )
            (LabelSpec
-              label: 'Package ID:'
+              label: 'Project ID:'
               name: 'Label3'
               layout: (LayoutFrame 10 0 220 0 180 0 242 0)
               activeHelpKey: package
@@ -434,9 +448,9 @@
               label: 'Category:'
               name: 'Label12'
               layout: (LayoutFrame 10 0 279 0 180 0 301 0)
+              activeHelpKey: category
               translateLabel: true
               adjust: right
-              activeHelpKey: category
             )
            (ComboBoxSpec
               name: 'ComboBox3'
@@ -527,9 +541,9 @@
               label: 'Initial Template Code'
               name: 'CheckBox6'
               layout: (LayoutFrame 310 0 419 0 470 0 441 0)
+              activeHelpKey: createInitialGUICode
               model: createInitialGUICodeHolder
               translateLabel: true
-              activeHelpKey: createInitialGUICode
             )
            (CheckBoxSpec
               label: 'Initializer'
@@ -597,8 +611,6 @@
          
         )
       )
-
-    "Modified: / 30-01-2011 / 10:32:34 / cg"
 ! !
 
 !NewClassWizardDialog class methodsFor:'menu specs'!
@@ -793,7 +805,7 @@
         ].
     ].
 
-"/ done in caller (for future undo handling...)
+"/ done in caller (for undo handling...)
 "/    createdClass :=
 "/            superclass
 "/                subclass: newClassName asSymbol
@@ -813,6 +825,7 @@
     super doAccept.
 
     "Modified: / 30-01-2011 / 09:33:28 / cg"
+    "Modified (comment): / 27-01-2012 / 14:53:02 / cg"
 !
 
 doCancel
@@ -943,6 +956,14 @@
         self createInitialGUICodeHolder value:false.
         self createUpdateMethodHolder value:false.
     ].
+    (stereoType startsWith: 'Startup') ifTrue:[
+        self superclassNameHolder value:'StandaloneStartup'.
+        self createAccessorsHolder value:false.
+        self createInitializerHolder value:true.
+        self createPrintMethodHolder value:false.
+        self createInitialGUICodeHolder value:true.
+        self createUpdateMethodHolder value:false.
+    ].
     stereoType = 'TestCase' ifTrue:[
         self superclassNameHolder value:'TestCase'.
         self createAccessorsHolder value:false.
@@ -967,7 +988,7 @@
         self createUpdateMethodHolder value:true.
     ].
 
-    "Modified: / 30-01-2011 / 16:27:13 / cg"
+    "Modified: / 27-01-2012 / 14:47:20 / cg"
 ! !
 
 !NewClassWizardDialog methodsFor:'aspects'!
@@ -1134,16 +1155,18 @@
 listOfStereotypes
     ^ #(
         '<none>'
+"/        ConsoleApplication
         'Data Object'
 "/        Enumeration
         GUIApplication
         SharedPool
         TestCase
+        'StartupClass (main entry for standalone apps)'
         WebService
         Widget
     )
 
-    "Modified: / 29-01-2011 / 15:24:18 / cg"
+    "Modified: / 27-01-2012 / 14:46:39 / cg"
 !
 
 listOfSuperclasses
@@ -1217,10 +1240,12 @@
         superclassNameHolder := (LastSuperclass ? 'Object') asValue.
     ].
     ^ superclassNameHolder.
+
+    "Modified: / 27-01-2012 / 14:49:43 / cg"
 ! !
 
 !NewClassWizardDialog class methodsFor:'documentation'!
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools__NewClassWizardDialog.st,v 1.16 2011/08/18 23:01:55 cg Exp §'
-! !
\ No newline at end of file
+    ^ '§Header: /cvs/stx/stx/libtool/Tools__NewClassWizardDialog.st,v 1.17 2012/01/27 13:55:52 cg Exp §'
+! !