Tools__ProjectBuilderAssistantApplication.st
changeset 3002 3c8db6ae6f30
parent 2994 1606aca78699
child 3004 014368fad35b
equal deleted inserted replaced
3001:2d990fdb6496 3002:3c8db6ae6f30
  3106         appClassIndex == 0 ifTrue:[ appClassIndex := nil ].
  3106         appClassIndex == 0 ifTrue:[ appClassIndex := nil ].
  3107 
  3107 
  3108         self listOfApplicationsInProject value:applicationClasses.
  3108         self listOfApplicationsInProject value:applicationClasses.
  3109         self selectedApplicationIndexHolder value:appClassIndex.
  3109         self selectedApplicationIndexHolder value:appClassIndex.
  3110     ].
  3110     ].
       
  3111 
       
  3112     "/ auto select first application
       
  3113     applicationClasses size == 1 ifTrue:[
       
  3114         self selectedApplicationIndexHolder value:1.
       
  3115     ].
  3111 !
  3116 !
  3112 
  3117 
  3113 updateListOfClassesInProject
  3118 updateListOfClassesInProject
  3114     self listOfClassesInProject value:(selectedProjectDefinition classNames).
  3119     self listOfClassesInProject value:(selectedProjectDefinition classNames).
  3115 !
  3120 !