equal
deleted
inserted
replaced
3627 |
3627 |
3628 currentProjectsClassNames |
3628 currentProjectsClassNames |
3629 |p| |
3629 |p| |
3630 |
3630 |
3631 p := self currentProject. |
3631 p := self currentProject. |
3632 ^ (p classes ? #()) |
3632 ^ p classes |
3633 collect:[:classOrSymbol | |
3633 collect:[:classOrSymbol | |
3634 classOrSymbol isBehavior ifTrue:[ |
3634 classOrSymbol isBehavior ifTrue:[ |
3635 classOrSymbol name |
3635 classOrSymbol name |
3636 ] ifFalse:[ |
3636 ] ifFalse:[ |
3637 classOrSymbol |
3637 classOrSymbol |
3830 classIcon := self class classIcon. |
3830 classIcon := self class classIcon. |
3831 |
3831 |
3832 classesNode contents:#classes. |
3832 classesNode contents:#classes. |
3833 classesNode icon:(self class classesIcon). |
3833 classesNode icon:(self class classesIcon). |
3834 classesNode info:'Classes contained in the project'. |
3834 classesNode info:'Classes contained in the project'. |
3835 ((aProject classes ? #()) copy sort:[:a :b | |
3835 (aProject classes copy |
3836 |nmA nmB| |
3836 sort:[:a :b | |
3837 |
3837 |nmA nmB| |
3838 nmA := a isBehavior ifTrue:[a name] ifFalse:[a]. |
3838 |
3839 nmB := b isBehavior ifTrue:[b name] ifFalse:[b]. |
3839 nmA := a isBehavior ifTrue:[a name] ifFalse:[a]. |
3840 nmA < nmB |
3840 nmB := b isBehavior ifTrue:[b name] ifFalse:[b]. |
3841 ]) |
3841 nmA < nmB |
3842 do:[:aClass | |
3842 ] |
|
3843 ) do:[:aClass | |
3843 |cNode cName| |
3844 |cNode cName| |
3844 |
3845 |
3845 cName := aClass isBehavior ifTrue:[aClass name] ifFalse:[aClass]. |
3846 cName := aClass isBehavior ifTrue:[aClass name] ifFalse:[aClass]. |
3846 cNode := ProjectTreeItem name:cName. |
3847 cNode := ProjectTreeItem name:cName. |
3847 cNode contents:(#class -> aClass). |
3848 cNode contents:(#class -> aClass). |
3862 methodIcon := self class methodIcon. |
3863 methodIcon := self class methodIcon. |
3863 |
3864 |
3864 patchesNode contents:#patches. |
3865 patchesNode contents:#patches. |
3865 patchesNode icon:(self class methodsIcon). |
3866 patchesNode icon:(self class methodsIcon). |
3866 patchesNode info:'Patches & Extensions (system-changes) contained in the project'. |
3867 patchesNode info:'Patches & Extensions (system-changes) contained in the project'. |
3867 ((aProject methodInfo ? #()) copy sort:[:a :b | |
3868 ((aProject methodInfo ? #()) copy |
3868 a displayString < b displayString. |
3869 sort:[:a :b | |
3869 ]) |
3870 a displayString < b displayString. |
3870 do:[:aMethodInfo | |
3871 ] |
|
3872 ) do:[:aMethodInfo | |
3871 |cNode cName| |
3873 |cNode cName| |
3872 |
3874 |
3873 cNode := ProjectTreeItem name:(aMethodInfo className , ' ' , aMethodInfo methodName). |
3875 cNode := ProjectTreeItem name:(aMethodInfo className , ' ' , aMethodInfo methodName). |
3874 cNode contents:(#method -> aMethodInfo). |
3876 cNode contents:(#method -> aMethodInfo). |
3875 cNode icon:methodIcon. |
3877 cNode icon:methodIcon. |