--- 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