20 LoadedProjects' |
20 LoadedProjects' |
21 poolDictionaries:'' |
21 poolDictionaries:'' |
22 category:'System-Support' |
22 category:'System-Support' |
23 ! |
23 ! |
24 |
24 |
25 Object subclass:#MethodInfo |
25 Object subclass:#ClassInfo |
26 instanceVariableNames:'conditionForInclusion methodName className fileName' |
26 instanceVariableNames:'conditionForInclusion className classFileName' |
27 classVariableNames:'' |
27 classVariableNames:'' |
28 poolDictionaries:'' |
28 poolDictionaries:'' |
29 privateIn:Project |
29 privateIn:Project |
30 ! |
30 ! |
31 |
31 |
32 Object subclass:#ClassInfo |
32 Object subclass:#MethodInfo |
33 instanceVariableNames:'conditionForInclusion className classFileName' |
33 instanceVariableNames:'conditionForInclusion methodName className fileName' |
34 classVariableNames:'' |
34 classVariableNames:'' |
35 poolDictionaries:'' |
35 poolDictionaries:'' |
36 privateIn:Project |
36 privateIn:Project |
37 ! |
37 ! |
38 |
38 |
979 (changeSet := self changeSet) notNil ifTrue:[ |
990 (changeSet := self changeSet) notNil ifTrue:[ |
980 changeSet addMethodCategoryChange:aMethod category:newCategory in:aClass |
991 changeSet addMethodCategoryChange:aMethod category:newCategory in:aClass |
981 ]. |
992 ]. |
982 self rememberChangedClass:aClass |
993 self rememberChangedClass:aClass |
983 |
994 |
|
995 ! |
|
996 |
|
997 addMethodChange:aMethod fromOld:oldMethod in:aClass |
|
998 "add a method change in aClass to the receivers changeSet" |
|
999 |
|
1000 |changeSet| |
|
1001 |
|
1002 (changeSet := self changeSet) notNil ifTrue:[ |
|
1003 changeSet addMethodChange:aMethod fromOld:oldMethod in:aClass |
|
1004 ]. |
|
1005 self rememberChangedClass:aClass |
984 ! |
1006 ! |
985 |
1007 |
986 addMethodChange:aMethod in:aClass |
1008 addMethodChange:aMethod in:aClass |
987 "add a method change in aClass to the receivers changeSet" |
1009 "add a method change in aClass to the receivers changeSet" |
988 |
1010 |
3721 |
3743 |
3722 "Modified: 3.5.1996 / 23:59:10 / stefan" |
3744 "Modified: 3.5.1996 / 23:59:10 / stefan" |
3723 "Modified: 14.2.1997 / 15:38:47 / cg" |
3745 "Modified: 14.2.1997 / 15:38:47 / cg" |
3724 ! ! |
3746 ! ! |
3725 |
3747 |
|
3748 !Project::ClassInfo methodsFor:'accessing'! |
|
3749 |
|
3750 classFileName |
|
3751 "return the value of the instance variable 'classFileName' (automatically generated)" |
|
3752 |
|
3753 ^ classFileName! |
|
3754 |
|
3755 classFileName:something |
|
3756 "set the value of the instance variable 'classFileName' (automatically generated)" |
|
3757 |
|
3758 classFileName := something.! |
|
3759 |
|
3760 className |
|
3761 "return the value of the instance variable 'className' (automatically generated)" |
|
3762 |
|
3763 ^ className! |
|
3764 |
|
3765 className:something |
|
3766 "set the value of the instance variable 'className' (automatically generated)" |
|
3767 |
|
3768 className := something.! |
|
3769 |
|
3770 conditionForInclusion |
|
3771 "return the value of the instance variable 'conditionForInclusion' (automatically generated)" |
|
3772 |
|
3773 ^ conditionForInclusion! |
|
3774 |
|
3775 conditionForInclusion:something |
|
3776 "set the value of the instance variable 'conditionForInclusion' (automatically generated)" |
|
3777 |
|
3778 conditionForInclusion := something.! ! |
|
3779 |
|
3780 !Project::ClassInfo methodsFor:'printing & storing'! |
|
3781 |
|
3782 displayString |
|
3783 ^ 'ClassInfo: ' , className |
|
3784 ! ! |
|
3785 |
|
3786 !Project::ClassInfo methodsFor:'queries'! |
|
3787 |
|
3788 theClass |
|
3789 |cls| |
|
3790 |
|
3791 cls := Smalltalk classNamed:className. |
|
3792 cls isNil ifTrue:[ ^ nil]. |
|
3793 ^ cls |
|
3794 |
|
3795 "Created: / 26.9.1999 / 13:39:00 / cg" |
|
3796 ! ! |
|
3797 |
3726 !Project::MethodInfo methodsFor:'accessing'! |
3798 !Project::MethodInfo methodsFor:'accessing'! |
3727 |
3799 |
3728 className |
3800 className |
3729 "return the value of the instance variable 'className' (automatically generated)" |
3801 "return the value of the instance variable 'className' (automatically generated)" |
3730 |
3802 |
3790 ^ cls compiledMethodAt:methodName asSymbol. |
3862 ^ cls compiledMethodAt:methodName asSymbol. |
3791 |
3863 |
3792 "Created: / 26.9.1999 / 13:39:07 / cg" |
3864 "Created: / 26.9.1999 / 13:39:07 / cg" |
3793 ! ! |
3865 ! ! |
3794 |
3866 |
3795 !Project::ClassInfo methodsFor:'accessing'! |
|
3796 |
|
3797 classFileName |
|
3798 "return the value of the instance variable 'classFileName' (automatically generated)" |
|
3799 |
|
3800 ^ classFileName! |
|
3801 |
|
3802 classFileName:something |
|
3803 "set the value of the instance variable 'classFileName' (automatically generated)" |
|
3804 |
|
3805 classFileName := something.! |
|
3806 |
|
3807 className |
|
3808 "return the value of the instance variable 'className' (automatically generated)" |
|
3809 |
|
3810 ^ className! |
|
3811 |
|
3812 className:something |
|
3813 "set the value of the instance variable 'className' (automatically generated)" |
|
3814 |
|
3815 className := something.! |
|
3816 |
|
3817 conditionForInclusion |
|
3818 "return the value of the instance variable 'conditionForInclusion' (automatically generated)" |
|
3819 |
|
3820 ^ conditionForInclusion! |
|
3821 |
|
3822 conditionForInclusion:something |
|
3823 "set the value of the instance variable 'conditionForInclusion' (automatically generated)" |
|
3824 |
|
3825 conditionForInclusion := something.! ! |
|
3826 |
|
3827 !Project::ClassInfo methodsFor:'printing & storing'! |
|
3828 |
|
3829 displayString |
|
3830 ^ 'ClassInfo: ' , className |
|
3831 ! ! |
|
3832 |
|
3833 !Project::ClassInfo methodsFor:'queries'! |
|
3834 |
|
3835 theClass |
|
3836 |cls| |
|
3837 |
|
3838 cls := Smalltalk classNamed:className. |
|
3839 cls isNil ifTrue:[ ^ nil]. |
|
3840 ^ cls |
|
3841 |
|
3842 "Created: / 26.9.1999 / 13:39:00 / cg" |
|
3843 ! ! |
|
3844 |
|
3845 !Project class methodsFor:'documentation'! |
3867 !Project class methodsFor:'documentation'! |
3846 |
3868 |
3847 version |
3869 version |
3848 ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.159 2000-08-20 14:23:32 cg Exp $' |
3870 ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.160 2000-08-22 11:10:29 cg Exp $' |
3849 ! ! |
3871 ! ! |
3850 Project initialize! |
3872 Project initialize! |