Tools__ProjectBuilderAssistantApplication.st
changeset 3295 cfc396fb8c98
parent 3257 088a9b9b87e4
child 3309 cc9feb931733
equal deleted inserted replaced
3294:29f61473d4a5 3295:cfc396fb8c98
  3370     |comment|
  3370     |comment|
  3371 
  3371 
  3372     self selectedApplicationIndexHolder value notNil ifTrue:[
  3372     self selectedApplicationIndexHolder value notNil ifTrue:[
  3373         comment := self commentFromClass:selectedApplication.
  3373         comment := self commentFromClass:selectedApplication.
  3374         comment isNil ifTrue:[
  3374         comment isNil ifTrue:[
  3375             comment := 'Application has no comment' allItalic colorizeAllWith:Color lightGray.
  3375             comment := 'Application has no comment' allItalic withColor:Color lightGray.
  3376         ].
  3376         ].
  3377     ] ifFalse:[
  3377     ] ifFalse:[
  3378         comment := 'Please select an Application' allItalic colorizeAllWith:Color lightGray.
  3378         comment := 'Please select an Application' allItalic withColor:Color lightGray.
  3379     ].
  3379     ].
  3380     self selectedApplicationsComment value:comment.
  3380     self selectedApplicationsComment value:comment.
  3381 !
  3381 !
  3382 
  3382 
  3383 updateComment
  3383 updateComment
  3384     |comment|
  3384     |comment|
  3385 
  3385 
  3386     self selectedProjectIndexHolder value notNil ifTrue:[
  3386     self selectedProjectIndexHolder value notNil ifTrue:[
  3387         comment := self commentFromClass:selectedProjectDefinition.
  3387         comment := self commentFromClass:selectedProjectDefinition.
  3388         comment isNil ifTrue:[
  3388         comment isNil ifTrue:[
  3389             comment := 'Project has no comment' allItalic colorizeAllWith:Color lightGray.
  3389             comment := 'Project has no comment' allItalic withColor:Color lightGray.
  3390         ].
  3390         ].
  3391     ] ifFalse:[
  3391     ] ifFalse:[
  3392         comment := 'Please select a Project' allItalic colorizeAllWith:Color lightGray.
  3392         comment := 'Please select a Project' allItalic withColor:Color lightGray.
  3393     ].
  3393     ].
  3394     self selectedProjectsComment value:comment.
  3394     self selectedProjectsComment value:comment.
  3395 !
  3395 !
  3396 
  3396 
  3397 updateListOfApplicationsInProject
  3397 updateListOfApplicationsInProject