Tools__ProjectBuilderAssistantApplication.st
changeset 2694 93a8594dec4f
parent 2693 2bf7608ed25a
child 2695 4788e8e6e24a
equal deleted inserted replaced
2693:2bf7608ed25a 2694:93a8594dec4f
  1258     self updateApplicationComment.
  1258     self updateApplicationComment.
  1259     self updateButtonEnableState.
  1259     self updateButtonEnableState.
  1260 !
  1260 !
  1261 
  1261 
  1262 selectedProjectChanged
  1262 selectedProjectChanged
  1263     self selectedProjectIndexHolder value isNil ifTrue:[
  1263 
       
  1264     |selectedProjectIndex|
       
  1265 
       
  1266     selectedProjectIndex := self selectedProjectIndexHolder value.
       
  1267     (selectedProjectIndex ? 0) == 0 ifTrue:[
  1264         selectedProjectDefinition := nil.
  1268         selectedProjectDefinition := nil.
  1265     ] ifFalse:[
  1269     ] ifFalse:[
  1266         selectedProjectDefinition := self listOfMatchingProjects value at:(self selectedProjectIndexHolder value).
  1270         selectedProjectDefinition := self listOfMatchingProjects value at:(selectedProjectIndex).
  1267     ].
  1271     ].
  1268     self hasProjectSelectedHolder value:(selectedProjectDefinition notNil).
  1272     self hasProjectSelectedHolder value:(selectedProjectDefinition notNil).
  1269 
  1273 
  1270     self updateComment.
  1274     self updateComment.
  1271     self updateListOfApplicationsInProject.
  1275     self updateListOfApplicationsInProject.