equal
deleted
inserted
replaced
3738 and:[ self hideOtherStartupClasses value not ] ] |
3738 and:[ self hideOtherStartupClasses value not ] ] |
3739 ]. |
3739 ]. |
3740 startupClasses := startupClasses asOrderedCollection. |
3740 startupClasses := startupClasses asOrderedCollection. |
3741 startupClasses sort:[:a :b | a name < b name]. |
3741 startupClasses sort:[:a :b | a name < b name]. |
3742 |
3742 |
3743 startUpClassName := [ selectedProjectDefinition startupClassName ] ifError:[ nil ]. |
3743 startUpClassName := [ selectedProjectDefinition startupClassName ] on:Error do:nil. |
3744 startUpClassName notNil ifTrue:[ |
3744 startUpClassName notNil ifTrue:[ |
3745 startUpClass := Smalltalk classNamed:startUpClassName. |
3745 startUpClass := Smalltalk classNamed:startUpClassName. |
3746 startUpClass notNil ifTrue:[ |
3746 startUpClass notNil ifTrue:[ |
3747 startupClassIndex := startupClasses indexOf:startUpClass. |
3747 startupClassIndex := startupClasses indexOf:startUpClass. |
3748 startupClassIndex == 0 ifTrue:[ startupClassIndex := nil ]. |
3748 startupClassIndex == 0 ifTrue:[ startupClassIndex := nil ]. |
3750 ]. |
3750 ]. |
3751 ]. |
3751 ]. |
3752 |
3752 |
3753 self listOfStartupClassesInProject value:startupClasses. |
3753 self listOfStartupClassesInProject value:startupClasses. |
3754 self selectedStartupClassIndexHolder value:startupClassIndex. |
3754 self selectedStartupClassIndexHolder value:startupClassIndex. |
|
3755 |
|
3756 "Modified: / 18-03-2017 / 18:42:52 / stefan" |
3755 ! |
3757 ! |
3756 |
3758 |
3757 updateProjectAttributes |
3759 updateProjectAttributes |
3758 self assert:selectedProjectDefinition notNil. |
3760 self assert:selectedProjectDefinition notNil. |
3759 self productNameHolder value:(selectedProjectDefinition productName). |
3761 self productNameHolder value:(selectedProjectDefinition productName). |