equal
deleted
inserted
replaced
2127 ]. |
2127 ]. |
2128 self hasStartupClassSelectedHolder value:(selectedStartupClass notNil). |
2128 self hasStartupClassSelectedHolder value:(selectedStartupClass notNil). |
2129 |
2129 |
2130 selectedStartupClass notNil ifTrue:[ |
2130 selectedStartupClass notNil ifTrue:[ |
2131 "/ generate startupClass code |
2131 "/ generate startupClass code |
2132 SmalltalkCodeGeneratorTool |
2132 Class packageQuerySignal |
2133 compile:(selectedProjectDefinition startupClassName_codeFor:(selectedStartupClass name)) |
2133 answer:selectedProjectDefinition package |
2134 forClass:selectedProjectDefinition theMetaclass |
2134 do:[ |
2135 inCategory:'description - startup'. |
2135 SmalltalkCodeGeneratorTool |
|
2136 compile:(selectedProjectDefinition startupClassName_codeFor:(selectedStartupClass name)) |
|
2137 forClass:selectedProjectDefinition theMetaclass |
|
2138 inCategory:'description - startup'. |
|
2139 ] |
2136 ]. |
2140 ]. |
2137 self updateButtonEnableState. |
2141 self updateButtonEnableState. |
2138 |
2142 |
2139 "Modified: / 31-01-2011 / 18:29:42 / cg" |
2143 "Modified: / 31-01-2011 / 18:29:42 / cg" |
2140 ! ! |
2144 ! ! |