diff -r 468d20a04f3f -r 1d6e1f6086f1 Tools__NewClassWizardDialog.st
--- a/Tools__NewClassWizardDialog.st	Sat Nov 07 14:34:17 2009 +0100
+++ b/Tools__NewClassWizardDialog.st	Sat Nov 07 16:49:27 2009 +0100
@@ -269,8 +269,8 @@
         name: windowSpec
         window: 
        (WindowSpec
-          label: 'Tools::NewClassDialog'
-          name: 'Tools::NewClassDialog'
+          label: 'Class Creation Wizard'
+          name: 'Class Creation Wizard'
           min: (Point 10 10)
           max: (Point 1024 768)
           bounds: (Rectangle 0 0 506 600)
@@ -308,6 +308,22 @@
               useIndex: true
             )
            (LabelSpec
+              label: 'Stereotype:'
+              name: 'Label13'
+              layout: (LayoutFrame 10 0 120 0 180 0 142 0)
+              activeHelpKey: className
+              translateLabel: true
+              adjust: right
+            )
+           (ComboListSpec
+              name: 'ComboList3'
+              layout: (LayoutFrame 190 0 119 0 -32 1 141 0)
+              activeHelpKey: programmingLanguage
+              model: stereotypeHolder
+              comboList: listOfStereotypes
+              useIndex: true
+            )
+           (LabelSpec
               label: 'Class Name:'
               name: 'Label1'
               layout: (LayoutFrame 10 0 149 0 180 0 171 0)
@@ -326,6 +342,12 @@
               acceptOnPointerLeave: true
             )
            (LabelSpec
+              label: '*'
+              name: 'Label14'
+              layout: (LayoutFrame 180 0 150 0 190 0 172 0)
+              translateLabel: true
+            )
+           (LabelSpec
               label: 'Superclass:'
               name: 'Label2'
               layout: (LayoutFrame 10 0 179 0 180 0 201 0)
@@ -342,6 +364,12 @@
               comboList: recentlyVisitedClasses
               useIndex: false
             )
+           (LabelSpec
+              label: '*'
+              name: 'Label15'
+              layout: (LayoutFrame 180 0 179 0 190 0 201 0)
+              translateLabel: true
+            )
            (ActionButtonSpec
               label: '...'
               name: 'Button1'
@@ -561,22 +589,6 @@
                
               )
             )
-           (LabelSpec
-              label: 'Stereotype:'
-              name: 'Label13'
-              layout: (LayoutFrame 10 0 120 0 180 0 142 0)
-              activeHelpKey: className
-              translateLabel: true
-              adjust: right
-            )
-           (ComboListSpec
-              name: 'ComboList3'
-              layout: (LayoutFrame 190 0 119 0 -32 1 141 0)
-              activeHelpKey: programmingLanguage
-              model: stereotypeHolder
-              comboList: listOfStereotypes
-              useIndex: true
-            )
            )
          
         )
@@ -947,10 +959,10 @@
     |idx|
 
     languageHolder isNil ifTrue:[
-        (self listOfLanguages size == 1 or:[LastLanguage isNil]) ifTrue:[
+        (self listOfLanguages size == 1) ifTrue:[
             idx := 1.
         ] ifFalse:[
-            idx := self listOfLanguages indexOf:LastLanguage.
+            idx := self listOfLanguages indexOf:(LastLanguage ? 'Smalltalk').
         ].
         languageHolder := idx asValue.
 
@@ -1036,5 +1048,5 @@
 !NewClassWizardDialog class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewClassWizardDialog.st,v 1.6 2009-11-07 03:44:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewClassWizardDialog.st,v 1.7 2009-11-07 15:49:27 cg Exp $'
 ! !