3390 |comment| |
3390 |comment| |
3391 |
3391 |
3392 self selectedApplicationIndexHolder value notNil ifTrue:[ |
3392 self selectedApplicationIndexHolder value notNil ifTrue:[ |
3393 comment := self commentFromClass:selectedApplication. |
3393 comment := self commentFromClass:selectedApplication. |
3394 comment isNil ifTrue:[ |
3394 comment isNil ifTrue:[ |
3395 comment := 'Application has no comment' allItalic colorizeAllWith:Color lightGrey. |
3395 comment := 'Application has no comment' allItalic colorizeAllWith:Color lightGray. |
3396 ]. |
3396 ]. |
3397 ] ifFalse:[ |
3397 ] ifFalse:[ |
3398 comment := 'Please select an Application' allItalic colorizeAllWith:Color lightGrey. |
3398 comment := 'Please select an Application' allItalic colorizeAllWith:Color lightGray. |
3399 ]. |
3399 ]. |
3400 self selectedApplicationsComment value:comment. |
3400 self selectedApplicationsComment value:comment. |
3401 ! |
3401 ! |
3402 |
3402 |
3403 updateComment |
3403 updateComment |
3404 |comment| |
3404 |comment| |
3405 |
3405 |
3406 self selectedProjectIndexHolder value notNil ifTrue:[ |
3406 self selectedProjectIndexHolder value notNil ifTrue:[ |
3407 comment := self commentFromClass:selectedProjectDefinition. |
3407 comment := self commentFromClass:selectedProjectDefinition. |
3408 comment isNil ifTrue:[ |
3408 comment isNil ifTrue:[ |
3409 comment := 'Project has no comment' allItalic colorizeAllWith:Color lightGrey. |
3409 comment := 'Project has no comment' allItalic colorizeAllWith:Color lightGray. |
3410 ]. |
3410 ]. |
3411 ] ifFalse:[ |
3411 ] ifFalse:[ |
3412 comment := 'Please select a Project' allItalic colorizeAllWith:Color lightGrey. |
3412 comment := 'Please select a Project' allItalic colorizeAllWith:Color lightGray. |
3413 ]. |
3413 ]. |
3414 self selectedProjectsComment value:comment. |
3414 self selectedProjectsComment value:comment. |
3415 ! |
3415 ! |
3416 |
3416 |
3417 updateListOfApplicationsInProject |
3417 updateListOfApplicationsInProject |