--- a/Tools__ProjectBuilderAssistantApplication.st	Thu Jan 27 12:54:20 2011 +0100
+++ b/Tools__ProjectBuilderAssistantApplication.st	Mon Jan 31 18:30:45 2011 +0100
@@ -1384,11 +1384,13 @@
                             classVariableNames:''
                             poolDictionaries:''
                             category:'Applications'.
-            CodeGeneratorTool createApplicationCodeFor:newAppClass.
+            SmalltalkCodeGeneratorTool createApplicationCodeFor:newAppClass.
         ].
         self updateListOfApplicationsInProject.
         self selectedApplicationIndexHolder value:(listOfApplicationsInProject value indexOf:newAppClass).
     ].
+
+    "Modified: / 31-01-2011 / 18:29:50 / cg"
 !
 
 createNewProject
@@ -1473,11 +1475,13 @@
                             category:'Applications'.   
 
             self projectTypeIsGuiApplication ifTrue: [startupApplication := selectedApplication].
-            CodeGeneratorTool createStartupCodeFor:newStartupClass forStartOf:startupApplication.
+            SmalltalkCodeGeneratorTool createStartupCodeFor:newStartupClass forStartOf:startupApplication.
         ].
         self updateListOfStartupClassesInProject.
         self selectedStartupClassIndexHolder value:(listOfStartupClassesInProject value indexOf:newStartupClass).
     ].
+
+    "Modified: / 31-01-2011 / 18:29:47 / cg"
 !
 
 doAddClassToProject
@@ -1725,12 +1729,14 @@
 
     selectedStartupClass notNil ifTrue:[
         "/ generate startupClass code
-        CodeGeneratorTool
+        SmalltalkCodeGeneratorTool
             compile:(selectedProjectDefinition startupClassName_codeFor:(selectedStartupClass name))
             forClass:selectedProjectDefinition theMetaclass
             inCategory:'description - startup'.
     ].
     self updateButtonEnableState.
+
+    "Modified: / 31-01-2011 / 18:29:42 / cg"
 ! !
 
 !ProjectBuilderAssistantApplication methodsFor:'aspects'!
@@ -2208,7 +2214,7 @@
     do:[
         selectedProjectDefinition 
             forEachContentsMethodsCodeToCompileDo:[:code :category |
-                    CodeGeneratorTool
+                    SmalltalkCodeGeneratorTool
                         compile:code
                         forClass:selectedProjectDefinition theMetaclass
                         inCategory:category.
@@ -2216,6 +2222,8 @@
             ignoreOldDefinition:true
     ].
     self updateListOfClassesInProject
+
+    "Modified: / 31-01-2011 / 18:29:44 / cg"
 !
 
 hasApplicationSelected