| import '../ClassesCS.ecore' | |
| package classescs | |
| context NamedElementCS | |
| def : hasName() : Boolean = | |
| not name.oclIsUndefined() | |
| def : computeName() : String = | |
| let container = self.oclContainer() in | |
| if not container.oclIsUndefined() and container.oclIsKindOf(NamedElementCS) | |
| then container.oclAsType(NamedElementCS).computeName() + '::' + self.name | |
| else self.name | |
| endif | |
| endpackage |