--- 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 $'
! !