equal
deleted
inserted
replaced
745 ! ! |
745 ! ! |
746 |
746 |
747 !Project methodsFor:'changes'! |
747 !Project methodsFor:'changes'! |
748 |
748 |
749 addClassCommentChangeFor:aClass |
749 addClassCommentChangeFor:aClass |
750 "add a comment-change for aClass to the receivers changeSet" |
750 "add a comment-change for aClass to the receiver's changeSet" |
751 |
751 |
752 |changeSet| |
752 |changeSet| |
753 |
753 |
754 (changeSet := self changeSet) notNil ifTrue:[ |
754 (changeSet := self changeSet) notNil ifTrue:[ |
755 changeSet addClassCommentChangeFor:aClass |
755 changeSet addClassCommentChangeFor:aClass |
757 |
757 |
758 "Modified: / 17-08-2006 / 11:20:04 / cg" |
758 "Modified: / 17-08-2006 / 11:20:04 / cg" |
759 ! |
759 ! |
760 |
760 |
761 addClassDefinitionChangeFor:aClass |
761 addClassDefinitionChangeFor:aClass |
762 "add a class-def-change for aClass to the receivers changeSet" |
762 "add a class-def-change for aClass to the receiver's changeSet" |
763 |
763 |
764 |changeSet| |
764 |changeSet| |
765 |
765 |
766 (changeSet := self changeSet) notNil ifTrue:[ |
766 (changeSet := self changeSet) notNil ifTrue:[ |
767 changeSet addClassDefinitionChangeFor:aClass |
767 changeSet addClassDefinitionChangeFor:aClass |
791 |
791 |
792 "Modified: / 17-08-2006 / 11:20:12 / cg" |
792 "Modified: / 17-08-2006 / 11:20:12 / cg" |
793 ! |
793 ! |
794 |
794 |
795 addDoIt:aString |
795 addDoIt:aString |
796 "add a doIt to the receivers changeSet" |
796 "add a doIt to the receiver's changeSet" |
797 |
797 |
798 |changeSet| |
798 |changeSet| |
799 |
799 |
800 (changeSet := self changeSet) notNil ifTrue:[ |
800 (changeSet := self changeSet) notNil ifTrue:[ |
801 changeSet addDoIt:aString |
801 changeSet addDoIt:aString |
802 ]. |
802 ]. |
803 ! |
803 ! |
804 |
804 |
805 addInstVarDefinitionChangeFor:aClass |
805 addInstVarDefinitionChangeFor:aClass |
806 "add an instvar-definition-change for aClass to the receivers changeSet" |
806 "add an instvar-definition-change for aClass to the receiver's changeSet" |
807 |
807 |
808 |changeSet| |
808 |changeSet| |
809 |
809 |
810 (changeSet := self changeSet) notNil ifTrue:[ |
810 (changeSet := self changeSet) notNil ifTrue:[ |
811 changeSet addInstVarDefinitionChangeFor:aClass |
811 changeSet addInstVarDefinitionChangeFor:aClass |
813 |
813 |
814 "Modified: / 17-08-2006 / 11:20:15 / cg" |
814 "Modified: / 17-08-2006 / 11:20:15 / cg" |
815 ! |
815 ! |
816 |
816 |
817 addMethodCategoryChange:aMethod category:newCategory in:aClass |
817 addMethodCategoryChange:aMethod category:newCategory in:aClass |
818 "add a method-category-change for aMethod in aClass to the receivers changeSet" |
818 "add a method-category-change for aMethod in aClass to the receiver's changeSet" |
819 |
819 |
820 |changeSet| |
820 |changeSet| |
821 |
821 |
822 (changeSet := self changeSet) notNil ifTrue:[ |
822 (changeSet := self changeSet) notNil ifTrue:[ |
823 changeSet addMethodCategoryChange:aMethod category:newCategory in:aClass |
823 changeSet addMethodCategoryChange:aMethod category:newCategory in:aClass |
825 |
825 |
826 "Modified: / 17-08-2006 / 11:20:17 / cg" |
826 "Modified: / 17-08-2006 / 11:20:17 / cg" |
827 ! |
827 ! |
828 |
828 |
829 addMethodChange:aMethod fromOld:oldMethod in:aClass |
829 addMethodChange:aMethod fromOld:oldMethod in:aClass |
830 "add a method change in aClass to the receivers changeSet" |
830 "add a method change in aClass to the receiver's changeSet" |
831 |
831 |
832 |changeSet| |
832 |changeSet| |
833 |
833 |
834 (changeSet := self changeSet) notNil ifTrue:[ |
834 (changeSet := self changeSet) notNil ifTrue:[ |
835 changeSet addMethodChange:aMethod fromOld:oldMethod in:aClass |
835 changeSet addMethodChange:aMethod fromOld:oldMethod in:aClass |
849 |
849 |
850 "Modified: / 17-08-2006 / 11:20:23 / cg" |
850 "Modified: / 17-08-2006 / 11:20:23 / cg" |
851 ! |
851 ! |
852 |
852 |
853 addMethodPackageChange:aMethod package:newPackage in:aClass |
853 addMethodPackageChange:aMethod package:newPackage in:aClass |
854 "add a method-package-change for aMethod in aClass to the receivers changeSet" |
854 "add a method-package-change for aMethod in aClass to the receiver's changeSet" |
855 |
855 |
856 |changeSet| |
856 |changeSet| |
857 |
857 |
858 (changeSet := self changeSet) notNil ifTrue:[ |
858 (changeSet := self changeSet) notNil ifTrue:[ |
859 changeSet addMethodPackageChange:aMethod package:newPackage in:aClass |
859 changeSet addMethodPackageChange:aMethod package:newPackage in:aClass |
861 |
861 |
862 "Created: / 09-10-2006 / 13:48:55 / cg" |
862 "Created: / 09-10-2006 / 13:48:55 / cg" |
863 ! |
863 ! |
864 |
864 |
865 addMethodPrivacyChange:aMethod in:aClass |
865 addMethodPrivacyChange:aMethod in:aClass |
866 "add a privacy change for aMethod in aClass to the receivers changeSet" |
866 "add a privacy change for aMethod in aClass to the receiver's changeSet" |
867 |
867 |
868 |changeSet| |
868 |changeSet| |
869 |
869 |
870 (changeSet := self changeSet) notNil ifTrue:[ |
870 (changeSet := self changeSet) notNil ifTrue:[ |
871 changeSet addMethodPrivacyChange:aMethod in:aClass |
871 changeSet addMethodPrivacyChange:aMethod in:aClass |
873 |
873 |
874 "Modified: / 17-08-2006 / 11:20:26 / cg" |
874 "Modified: / 17-08-2006 / 11:20:26 / cg" |
875 ! |
875 ! |
876 |
876 |
877 addPrimitiveDefinitionsChangeFor:aClass |
877 addPrimitiveDefinitionsChangeFor:aClass |
878 "add a primitiveDef change for aClass to the receivers changeSet" |
878 "add a primitiveDef change for aClass to the receiver's changeSet" |
879 |
879 |
880 |changeSet| |
880 |changeSet| |
881 |
881 |
882 (changeSet := self changeSet) notNil ifTrue:[ |
882 (changeSet := self changeSet) notNil ifTrue:[ |
883 changeSet addPrimitiveDefinitionsChangeFor:aClass |
883 changeSet addPrimitiveDefinitionsChangeFor:aClass |
885 |
885 |
886 "Modified: / 17-08-2006 / 11:20:29 / cg" |
886 "Modified: / 17-08-2006 / 11:20:29 / cg" |
887 ! |
887 ! |
888 |
888 |
889 addPrimitiveFunctionsChangeFor:aClass |
889 addPrimitiveFunctionsChangeFor:aClass |
890 "add a primitiveFuncs change for aClass to the receivers changeSet" |
890 "add a primitiveFuncs change for aClass to the receiver's changeSet" |
891 |
891 |
892 |changeSet| |
892 |changeSet| |
893 |
893 |
894 (changeSet := self changeSet) notNil ifTrue:[ |
894 (changeSet := self changeSet) notNil ifTrue:[ |
895 changeSet addPrimitiveFunctionsChangeFor:aClass |
895 changeSet addPrimitiveFunctionsChangeFor:aClass |
897 |
897 |
898 "Modified: / 17-08-2006 / 11:20:32 / cg" |
898 "Modified: / 17-08-2006 / 11:20:32 / cg" |
899 ! |
899 ! |
900 |
900 |
901 addPrimitiveVariablesChangeFor:aClass |
901 addPrimitiveVariablesChangeFor:aClass |
902 "add a primitiveVars change for aClass to the receivers changeSet" |
902 "add a primitiveVars change for aClass to the receiver's changeSet" |
903 |
903 |
904 |changeSet| |
904 |changeSet| |
905 |
905 |
906 (changeSet := self changeSet) notNil ifTrue:[ |
906 (changeSet := self changeSet) notNil ifTrue:[ |
907 changeSet addPrimitiveVariablesChangeFor:aClass |
907 changeSet addPrimitiveVariablesChangeFor:aClass |
909 |
909 |
910 "Modified: / 17-08-2006 / 11:20:35 / cg" |
910 "Modified: / 17-08-2006 / 11:20:35 / cg" |
911 ! |
911 ! |
912 |
912 |
913 addRemoveSelectorChange:aSelector fromOld:oldMethod in:aClass |
913 addRemoveSelectorChange:aSelector fromOld:oldMethod in:aClass |
914 "add a method-remove change in aClass to the receivers changeSet" |
914 "add a method-remove change in aClass to the receiver's changeSet" |
915 |
915 |
916 |changeSet| |
916 |changeSet| |
917 |
917 |
918 (changeSet := self changeSet) notNil ifTrue:[ |
918 (changeSet := self changeSet) notNil ifTrue:[ |
919 changeSet addRemoveSelectorChange:aSelector fromOld:oldMethod in:aClass |
919 changeSet addRemoveSelectorChange:aSelector fromOld:oldMethod in:aClass |
921 |
921 |
922 "Modified: / 17-08-2006 / 11:20:39 / cg" |
922 "Modified: / 17-08-2006 / 11:20:39 / cg" |
923 ! |
923 ! |
924 |
924 |
925 addRenameCategoryChangeIn:aClass from:oldCategory to:newCategory |
925 addRenameCategoryChangeIn:aClass from:oldCategory to:newCategory |
926 "add a category rename change in aClass to the receivers changeSet" |
926 "add a category rename change in aClass to the receiver's changeSet" |
927 |
927 |
928 |changeSet| |
928 |changeSet| |
929 |
929 |
930 (changeSet := self changeSet) notNil ifTrue:[ |
930 (changeSet := self changeSet) notNil ifTrue:[ |
931 changeSet addRenameCategoryChangeIn:aClass from:oldCategory to:newCategory |
931 changeSet addRenameCategoryChangeIn:aClass from:oldCategory to:newCategory |