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 |