--- a/CodeGeneratorTool.st	Fri Jan 31 14:46:54 2003 +0100
+++ b/CodeGeneratorTool.st	Fri Jan 31 15:24:25 2003 +0100
@@ -1020,6 +1020,23 @@
     ].
 !
 
+createInstanceCreationMethodWithSetupFor:selector category:category in:aMetaClass
+    "add an inst-creation method"
+
+    |template|
+
+    (aMetaClass includesSelector:selector) ifFalse:[
+        template := Parser methodSpecificationForSelector:selector.
+        self 
+            compile:
+template , '
+    ^ self new ' , template , '
+'                   
+            forClass:aMetaClass 
+            inCategory:category.
+    ].
+!
+
 createMultiSetterMethodFor:aCollectionOfVarNames in:aClass
     "create a multi-setter method for instvars."
 
@@ -1159,5 +1176,5 @@
 !CodeGeneratorTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.10 2003-01-16 10:15:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.11 2003-01-31 14:24:25 cg Exp $'
 ! !