--- a/Tools__NewClassWizardDialog.st	Sat Jan 29 12:59:48 2011 +0100
+++ b/Tools__NewClassWizardDialog.st	Sat Jan 29 15:25:54 2011 +0100
@@ -895,22 +895,37 @@
         self createInitialGUICodeHolder value:false.
     ].
 
+    stereoType = 'Data Object' ifTrue:[
+        self superclassNameHolder value:'Model'.
+        self createAccessorsHolder value:true.
+        self createInitialGUICodeHolder value:false.
+    ].
+"/    stereoType = 'Enumeration' ifTrue:[
+"/        self superclassNameHolder value:'Enumeration'.
+"/        self createInitializerHolder value:true.
+"/        self createAccessorsHolder value:false.
+"/        self createInitialGUICodeHolder value:false.
+"/    ].
     stereoType = 'GUIApplication' ifTrue:[
         self superclassNameHolder value:'ApplicationModel'.
         self createInitializerHolder value:false.
         self createPrintMethodHolder value:false.
         self createInitialGUICodeHolder value:true.
     ].
-    stereoType = 'Data Object' ifTrue:[
-        self superclassNameHolder value:'Model'.
-        self createAccessorsHolder value:true.
+    stereoType = 'SharedPool' ifTrue:[
+        self superclassNameHolder value:'SharedPool'.
+        self createAccessorsHolder value:false.
+        self createInitializerHolder value:true.
+        self createPrintMethodHolder value:false.
         self createInitialGUICodeHolder value:false.
+        self createUpdateMethodHolder value:false.
     ].
-    stereoType = 'Widget' ifTrue:[
-        self superclassNameHolder value:'View'.
+    stereoType = 'TestCase' ifTrue:[
+        self superclassNameHolder value:'TestCase'.
+        self createAccessorsHolder value:false.
         self createInitializerHolder value:false.
         self createPrintMethodHolder value:false.
-        self createInitialGUICodeHolder value:false.
+        self createInitialGUICodeHolder value:true.
     ].
     stereoType = 'WebService' ifTrue:[
         self superclassNameHolder value:'HTTPService'.
@@ -919,13 +934,14 @@
         self createPrintMethodHolder value:false.
         self createInitialGUICodeHolder value:true.
     ].
-    stereoType = 'TestCase' ifTrue:[
-        self superclassNameHolder value:'TestCase'.
-        self createAccessorsHolder value:false.
+    stereoType = 'Widget' ifTrue:[
+        self superclassNameHolder value:'View'.
         self createInitializerHolder value:false.
         self createPrintMethodHolder value:false.
-        self createInitialGUICodeHolder value:true.
+        self createInitialGUICodeHolder value:false.
     ].
+
+    "Modified: / 29-01-2011 / 15:25:44 / cg"
 ! !
 
 !NewClassWizardDialog methodsFor:'aspects'!
@@ -1093,12 +1109,15 @@
     ^ #(
         '<none>'
         'Data Object'
+"/        Enumeration
         GUIApplication
+        SharedPool
         TestCase
         WebService
         Widget
-        "/ Enumeration
     )
+
+    "Modified: / 29-01-2011 / 15:24:18 / cg"
 !
 
 nameSpaceHolder
@@ -1149,5 +1168,5 @@
 !NewClassWizardDialog class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewClassWizardDialog.st,v 1.12 2010-05-07 12:27:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewClassWizardDialog.st,v 1.13 2011-01-29 14:25:54 cg Exp $'
 ! !