added: expecco_1_7_2rc1
authorfm
Mon, 26 Oct 2009 13:54:58 +0100
changeset 2696c5bbc6a8dfb7
parent 2695 4788e8e6e24a
child 2697 34585829b151
added:
#projectTypeIsGuiApplication
#projectTypeIsNotLibrary
changed:
#assistantSpec
#createNewStartupClass
category of: #projectTypeIsLibrary
Tools__ProjectBuilderAssistantApplication.st
     1.1 --- a/Tools__ProjectBuilderAssistantApplication.st	Mon Oct 26 11:13:20 2009 +0100
     1.2 +++ b/Tools__ProjectBuilderAssistantApplication.st	Mon Oct 26 13:54:58 2009 +0100
     1.3 @@ -1027,7 +1027,7 @@
     1.4  createNewStartupClass
     1.5      <resource: #uiCallback>
     1.6  
     1.7 -    |newClassName newStartupClass|
     1.8 +    |newClassName newStartupClass startupApplication|
     1.9  
    1.10      newClassName := self newStartupClassName value.
    1.11      newClassName isEmptyOrNil ifTrue:[
    1.12 @@ -1043,8 +1043,10 @@
    1.13                              instanceVariableNames:''
    1.14                              classVariableNames:''
    1.15                              poolDictionaries:''
    1.16 -                            category:'Applications'.
    1.17 -            CodeGeneratorTool createStartupCodeFor:newStartupClass forStartOf:selectedApplication.
    1.18 +                            category:'Applications'.   
    1.19 +
    1.20 +            self projectTypeIsGuiApplication ifTrue: [startupApplication := selectedApplication].
    1.21 +            CodeGeneratorTool createStartupCodeFor:newStartupClass forStartOf:startupApplication.
    1.22          ].
    1.23          self updateListOfStartupClassesInProject
    1.24      ].
    1.25 @@ -1516,14 +1518,6 @@
    1.26      ^ projectTypeHolder.
    1.27  !
    1.28  
    1.29 -projectTypeIsLibrary
    1.30 -    ^ self projectTypeHolder value == #libraryType
    1.31 -!
    1.32 -
    1.33 -projectTypeIsNotLibrary
    1.34 -    ^ self projectTypeIsLibrary not
    1.35 -!
    1.36 -
    1.37  selectedApplicationIndexHolder
    1.38      <resource: #uiAspect>
    1.39  
    1.40 @@ -1736,6 +1730,18 @@
    1.41  
    1.42  canEnterStartupClassSelection
    1.43      ^ self hasProjectSelected "and:[ self hasApplicationSelected ]"
    1.44 +!
    1.45 +
    1.46 +projectTypeIsGuiApplication
    1.47 +    ^ self projectTypeHolder value == #guiApplicationType
    1.48 +!
    1.49 +
    1.50 +projectTypeIsLibrary
    1.51 +    ^ self projectTypeHolder value == #libraryType
    1.52 +!
    1.53 +
    1.54 +projectTypeIsNotLibrary
    1.55 +    ^ self projectTypeIsLibrary not
    1.56  ! !
    1.57  
    1.58  !ProjectBuilderAssistantApplication methodsFor:'specs'!
    1.59 @@ -1759,9 +1765,9 @@
    1.60          )
    1.61  
    1.62          (AssistantPageSpec
    1.63 -            pageTitle: 'Application Selection'
    1.64 +            pageTitle: 'Startup Application Selection'
    1.65              windowSpecSelector: page3_applicationSelectionSpec
    1.66 -            isEnabledQuerySelector: #projectTypeIsNotLibrary
    1.67 +            isEnabledQuerySelector: #projectTypeIsGuiApplication
    1.68              canEnterQuerySelector: #canEnterApplicationSelection
    1.69              enterCallbackSelector: updateListOfApplicationsInProject
    1.70              infoText: 'Choose an existing application or create a new one.