--- a/CodeGeneratorTool.st	Mon Aug 21 18:37:14 2006 +0200
+++ b/CodeGeneratorTool.st	Mon Aug 21 18:37:21 2006 +0200
@@ -1845,30 +1845,6 @@
     ].
 ! !
 
-!CodeGeneratorTool methodsFor:'compilation'!
-
-compile:theCode forClass:aClass inCategory:cat 
-    "install some code for a class.
-     If refactory browser stuff is avaliable the refactory tools are used to support undo"
-
-    |change|
-
-    self canUseRefactoringSupport ifFalse:[
-        "/ compile immediately
-        aClass compile:theCode classified:cat.
-        ^ self.
-    ].
-
-    change := InteractiveAddMethodChange compile:(theCode asString) in:aClass classified:cat.
-
-    "/ if collecting, add to changes (to be executed as one change at the end,
-    "/ in order to have only one change in the undo-list (instead of many)
-    compositeChangeCollector notNil ifTrue:[
-        compositeChangeCollector addChange:change
-    ] ifFalse:[
-        RefactoryChangeManager instance performChange:change.
-    ]
-! !
 
 !CodeGeneratorTool methodsFor:'private'!
 
@@ -1934,5 +1910,5 @@
 !CodeGeneratorTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.40 2006-08-21 10:15:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.41 2006-08-21 16:37:21 cg Exp $'
 ! !