equal
deleted
inserted
replaced
685 definitionSelector := aSelector |
685 definitionSelector := aSelector |
686 |
686 |
687 "Created: / 13-06-2012 / 12:45:02 / cg" |
687 "Created: / 13-06-2012 / 12:45:02 / cg" |
688 ! |
688 ! |
689 |
689 |
690 fullOwningClassName |
|
691 "the owner's name, including its namespace" |
|
692 |
|
693 |nm ns| |
|
694 |
|
695 nm := self owningClassName. |
|
696 nm isNil ifTrue:[^ nil]. |
|
697 |
|
698 (ns := self nameSpaceOverride) notNil ifTrue:[ |
|
699 ^ ns,'::',nm |
|
700 ]. |
|
701 ^ nm |
|
702 ! |
|
703 |
|
704 owningClassName |
690 owningClassName |
705 "the owner's name, excluding the namespace" |
691 "the owner's name, excluding the namespace" |
706 |
692 |
707 self isPrivateClassDefinitionChange ifTrue:[ |
693 self isPrivateClassDefinitionChange ifTrue:[ |
708 owningClassName isNil ifTrue:[ |
694 owningClassName isNil ifTrue:[ |
899 ! ! |
885 ! ! |
900 |
886 |
901 !ClassDefinitionChange class methodsFor:'documentation'! |
887 !ClassDefinitionChange class methodsFor:'documentation'! |
902 |
888 |
903 version |
889 version |
904 ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.98 2015-05-27 13:27:23 cg Exp $' |
890 ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.99 2015-05-27 13:36:10 cg Exp $' |
905 ! |
891 ! |
906 |
892 |
907 version_CVS |
893 version_CVS |
908 ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.98 2015-05-27 13:27:23 cg Exp $' |
894 ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.99 2015-05-27 13:36:10 cg Exp $' |
909 ! |
895 ! |
910 |
896 |
911 version_HG |
897 version_HG |
912 |
898 |
913 ^ '$Changeset: <not expanded> $' |
899 ^ '$Changeset: <not expanded> $' |
914 ! |
900 ! |
915 |
901 |
916 version_SVN |
902 version_SVN |
917 ^ '$Id: ClassDefinitionChange.st,v 1.98 2015-05-27 13:27:23 cg Exp $' |
903 ^ '$Id: ClassDefinitionChange.st,v 1.99 2015-05-27 13:36:10 cg Exp $' |
918 ! ! |
904 ! ! |
919 |
905 |