equal
deleted
inserted
replaced
1010 |cls sel| |
1010 |cls sel| |
1011 |
1011 |
1012 cls := aMethod mclass. |
1012 cls := aMethod mclass. |
1013 cls isNil ifTrue:[^ nil]. |
1013 cls isNil ifTrue:[^ nil]. |
1014 sel := aMethod selector. |
1014 sel := aMethod selector. |
1015 cls isNil ifTrue:[^ nil]. |
1015 sel isNil ifTrue:[^ nil]. |
1016 |
1016 |
1017 cls isMeta ifTrue:[ |
1017 cls isMeta ifTrue:[ |
1018 (AbstractSourceCodeManager isVersionMethodSelector:sel) ifTrue:[ |
1018 (AbstractSourceCodeManager isVersionMethodSelector:sel) ifTrue:[ |
1019 ^ 'The version method is required for the source code repository - do not modify.'. |
1019 ^ 'The version method is required for the source code repository - do not modify.'. |
1020 ]. |
1020 ]. |