equal
deleted
inserted
replaced
1100 (which we may want to forbid sometimes) |
1100 (which we may want to forbid sometimes) |
1101 " |
1101 " |
1102 oldMethod notNil ifTrue:[ |
1102 oldMethod notNil ifTrue:[ |
1103 oldPackage := oldMethod package. |
1103 oldPackage := oldMethod package. |
1104 newPackage := newMethod package. |
1104 newPackage := newMethod package. |
1105 oldPackage ~= newPackage ifTrue:[ |
1105 (oldPackage ~= newPackage and:[oldPackage ~= PackageId noProjectID]) ifTrue:[ |
1106 |answer| |
1106 |answer| |
1107 " |
1107 " |
1108 attempt to redefine an existing method, which was |
1108 attempt to redefine an existing method, which was |
1109 defined in another package (see oldPackage vs. newPackage). |
1109 defined in another package (see oldPackage vs. newPackage). |
1110 If you continue in the debugger, the new method gets installed. |
1110 If you continue in the debugger, the new method gets installed. |
1898 |
1898 |
1899 "Modified: 12.6.1996 / 11:51:15 / stefan" |
1899 "Modified: 12.6.1996 / 11:51:15 / stefan" |
1900 "Created: 1.4.1997 / 23:43:38 / stefan" |
1900 "Created: 1.4.1997 / 23:43:38 / stefan" |
1901 "Modified: 29.8.1997 / 07:56:49 / cg" |
1901 "Modified: 29.8.1997 / 07:56:49 / cg" |
1902 ! ! |
1902 ! ! |
1903 |
|
1904 |
1903 |
1905 !ClassDescription methodsFor:'fileIn interface'! |
1904 !ClassDescription methodsFor:'fileIn interface'! |
1906 |
1905 |
1907 commentStamp:aStamp prior:whatever |
1906 commentStamp:aStamp prior:whatever |
1908 "return a ClassCategoryReader to read in and compile methods for me. |
1907 "return a ClassCategoryReader to read in and compile methods for me. |
4101 ! ! |
4100 ! ! |
4102 |
4101 |
4103 !ClassDescription class methodsFor:'documentation'! |
4102 !ClassDescription class methodsFor:'documentation'! |
4104 |
4103 |
4105 version |
4104 version |
4106 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.211 2009-12-02 22:15:24 cg Exp $' |
4105 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.212 2009-12-21 18:59:51 cg Exp $' |
4107 ! |
4106 ! |
4108 |
4107 |
4109 version_CVS |
4108 version_CVS |
4110 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.211 2009-12-02 22:15:24 cg Exp $' |
4109 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.212 2009-12-21 18:59:51 cg Exp $' |
4111 ! ! |
4110 ! ! |
4112 |
4111 |
4113 ClassDescription initialize! |
4112 ClassDescription initialize! |
4114 ClassDescription::MethodRedefinitionNotification initialize! |
4113 ClassDescription::MethodRedefinitionNotification initialize! |
4115 ClassDescription::ClassRedefinitionNotification initialize! |
4114 ClassDescription::ClassRedefinitionNotification initialize! |