--- a/Tools__ProjectBuilderAssistantApplication.st Tue May 07 19:46:05 2013 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st Tue May 07 19:54:33 2013 +0200
@@ -2129,10 +2129,14 @@
selectedStartupClass notNil ifTrue:[
"/ generate startupClass code
- SmalltalkCodeGeneratorTool
- compile:(selectedProjectDefinition startupClassName_codeFor:(selectedStartupClass name))
- forClass:selectedProjectDefinition theMetaclass
- inCategory:'description - startup'.
+ Class packageQuerySignal
+ answer:selectedProjectDefinition package
+ do:[
+ SmalltalkCodeGeneratorTool
+ compile:(selectedProjectDefinition startupClassName_codeFor:(selectedStartupClass name))
+ forClass:selectedProjectDefinition theMetaclass
+ inCategory:'description - startup'.
+ ]
].
self updateButtonEnableState.