20 LoadedProjects' |
20 LoadedProjects' |
21 poolDictionaries:'' |
21 poolDictionaries:'' |
22 category:'System-Support' |
22 category:'System-Support' |
23 ! |
23 ! |
24 |
24 |
25 Object subclass:#ClassInfo |
25 Object subclass:#MethodInfo |
26 instanceVariableNames:'conditionForInclusion className classFileName' |
26 instanceVariableNames:'conditionForInclusion methodName className fileName' |
27 classVariableNames:'' |
27 classVariableNames:'' |
28 poolDictionaries:'' |
28 poolDictionaries:'' |
29 privateIn:Project |
29 privateIn:Project |
30 ! |
30 ! |
31 |
31 |
32 Object subclass:#MethodInfo |
32 Object subclass:#ClassInfo |
33 instanceVariableNames:'conditionForInclusion methodName className fileName' |
33 instanceVariableNames:'conditionForInclusion className classFileName' |
34 classVariableNames:'' |
34 classVariableNames:'' |
35 poolDictionaries:'' |
35 poolDictionaries:'' |
36 privateIn:Project |
36 privateIn:Project |
37 ! |
37 ! |
38 |
38 |
3483 classes size > 0 ifTrue:[ |
3483 classes size > 0 ifTrue:[ |
3484 classes := classes asIdentitySet. |
3484 classes := classes asIdentitySet. |
3485 ]. |
3485 ]. |
3486 |
3486 |
3487 methods := IdentitySet new. |
3487 methods := IdentitySet new. |
3488 Smalltalk allBehaviorsDo:[:cls | |
3488 Smalltalk allClassesDo:[:cls | |
3489 |classToCheck| |
3489 |classToCheck| |
3490 |
3490 |
3491 classToCheck := cls. |
3491 classToCheck := cls. |
3492 "/ cls isPrivate ifTrue:[ |
3492 "/ cls isPrivate ifTrue:[ |
3493 "/ classToCheck := cls topOwningClass |
3493 "/ classToCheck := cls topOwningClass |
3743 |
3743 |
3744 "Modified: 3.5.1996 / 23:59:10 / stefan" |
3744 "Modified: 3.5.1996 / 23:59:10 / stefan" |
3745 "Modified: 14.2.1997 / 15:38:47 / cg" |
3745 "Modified: 14.2.1997 / 15:38:47 / cg" |
3746 ! ! |
3746 ! ! |
3747 |
3747 |
|
3748 !Project::MethodInfo methodsFor:'accessing'! |
|
3749 |
|
3750 className |
|
3751 "return the value of the instance variable 'className' (automatically generated)" |
|
3752 |
|
3753 ^ className! |
|
3754 |
|
3755 className:something |
|
3756 "set the value of the instance variable 'className' (automatically generated)" |
|
3757 |
|
3758 className := something.! |
|
3759 |
|
3760 conditionForInclusion |
|
3761 "return the value of the instance variable 'conditionForInclusion' (automatically generated)" |
|
3762 |
|
3763 ^ conditionForInclusion! |
|
3764 |
|
3765 conditionForInclusion:something |
|
3766 "set the value of the instance variable 'conditionForInclusion' (automatically generated)" |
|
3767 |
|
3768 conditionForInclusion := something.! |
|
3769 |
|
3770 fileName |
|
3771 "return the value of the instance variable 'fileName' (automatically generated)" |
|
3772 |
|
3773 ^ fileName! |
|
3774 |
|
3775 fileName:something |
|
3776 "set the value of the instance variable 'fileName' (automatically generated)" |
|
3777 |
|
3778 fileName := something.! |
|
3779 |
|
3780 methodName |
|
3781 "return the value of the instance variable 'methodName' (automatically generated)" |
|
3782 |
|
3783 ^ methodName! |
|
3784 |
|
3785 methodName:something |
|
3786 "set the value of the instance variable 'methodName' (automatically generated)" |
|
3787 |
|
3788 methodName := something.! ! |
|
3789 |
|
3790 !Project::MethodInfo methodsFor:'printing & storing'! |
|
3791 |
|
3792 displayString |
|
3793 ^ 'MethodInfo: ' , className , ' ' , methodName |
|
3794 |
|
3795 |
|
3796 ! ! |
|
3797 |
|
3798 !Project::MethodInfo methodsFor:'queries'! |
|
3799 |
|
3800 method |
|
3801 self obsoleteMethodWarning. |
|
3802 ^ self theMethod. |
|
3803 |
|
3804 "Modified: / 26.9.1999 / 13:40:16 / cg" |
|
3805 ! |
|
3806 |
|
3807 theMethod |
|
3808 |cls| |
|
3809 |
|
3810 cls := Smalltalk classNamed:className. |
|
3811 cls isNil ifTrue:[ ^ nil]. |
|
3812 ^ cls compiledMethodAt:methodName asSymbol. |
|
3813 |
|
3814 "Created: / 26.9.1999 / 13:39:07 / cg" |
|
3815 ! ! |
|
3816 |
3748 !Project::ClassInfo methodsFor:'accessing'! |
3817 !Project::ClassInfo methodsFor:'accessing'! |
3749 |
3818 |
3750 classFileName |
3819 classFileName |
3751 "return the value of the instance variable 'classFileName' (automatically generated)" |
3820 "return the value of the instance variable 'classFileName' (automatically generated)" |
3752 |
3821 |
3793 ^ cls |
3862 ^ cls |
3794 |
3863 |
3795 "Created: / 26.9.1999 / 13:39:00 / cg" |
3864 "Created: / 26.9.1999 / 13:39:00 / cg" |
3796 ! ! |
3865 ! ! |
3797 |
3866 |
3798 !Project::MethodInfo methodsFor:'accessing'! |
|
3799 |
|
3800 className |
|
3801 "return the value of the instance variable 'className' (automatically generated)" |
|
3802 |
|
3803 ^ className! |
|
3804 |
|
3805 className:something |
|
3806 "set the value of the instance variable 'className' (automatically generated)" |
|
3807 |
|
3808 className := something.! |
|
3809 |
|
3810 conditionForInclusion |
|
3811 "return the value of the instance variable 'conditionForInclusion' (automatically generated)" |
|
3812 |
|
3813 ^ conditionForInclusion! |
|
3814 |
|
3815 conditionForInclusion:something |
|
3816 "set the value of the instance variable 'conditionForInclusion' (automatically generated)" |
|
3817 |
|
3818 conditionForInclusion := something.! |
|
3819 |
|
3820 fileName |
|
3821 "return the value of the instance variable 'fileName' (automatically generated)" |
|
3822 |
|
3823 ^ fileName! |
|
3824 |
|
3825 fileName:something |
|
3826 "set the value of the instance variable 'fileName' (automatically generated)" |
|
3827 |
|
3828 fileName := something.! |
|
3829 |
|
3830 methodName |
|
3831 "return the value of the instance variable 'methodName' (automatically generated)" |
|
3832 |
|
3833 ^ methodName! |
|
3834 |
|
3835 methodName:something |
|
3836 "set the value of the instance variable 'methodName' (automatically generated)" |
|
3837 |
|
3838 methodName := something.! ! |
|
3839 |
|
3840 !Project::MethodInfo methodsFor:'printing & storing'! |
|
3841 |
|
3842 displayString |
|
3843 ^ 'MethodInfo: ' , className , ' ' , methodName |
|
3844 |
|
3845 |
|
3846 ! ! |
|
3847 |
|
3848 !Project::MethodInfo methodsFor:'queries'! |
|
3849 |
|
3850 method |
|
3851 self obsoleteMethodWarning. |
|
3852 ^ self theMethod. |
|
3853 |
|
3854 "Modified: / 26.9.1999 / 13:40:16 / cg" |
|
3855 ! |
|
3856 |
|
3857 theMethod |
|
3858 |cls| |
|
3859 |
|
3860 cls := Smalltalk classNamed:className. |
|
3861 cls isNil ifTrue:[ ^ nil]. |
|
3862 ^ cls compiledMethodAt:methodName asSymbol. |
|
3863 |
|
3864 "Created: / 26.9.1999 / 13:39:07 / cg" |
|
3865 ! ! |
|
3866 |
|
3867 !Project class methodsFor:'documentation'! |
3867 !Project class methodsFor:'documentation'! |
3868 |
3868 |
3869 version |
3869 version |
3870 ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.160 2000-08-22 11:10:29 cg Exp $' |
3870 ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.161 2000-09-03 14:44:13 cg Exp $' |
3871 ! ! |
3871 ! ! |
3872 Project initialize! |
3872 Project initialize! |