# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1367949273 -7200
# Node ID 68256b19f0361b6ecc1cfaa78d3d5bb77df89b03
# Parent  88de1ef7c8053e3abadc40ce5759f185bb018b57
class: Tools::ProjectBuilderAssistantApplication
changed: #selectedStartupClassChanged

diff -r 88de1ef7c805 -r 68256b19f036 Tools__ProjectBuilderAssistantApplication.st
--- 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.