Object <- RuleQualifier <- LocalRuleQualifier |
|
|
ComputeRuleText QualifyRule |
|
Entity Entity QualifierData QualifierObject QualifierText |
| Field | Type | |
|---|---|---|
| LocalRuleQualifier: | qualifierType: | Unsigned |
| qualifierObject: | Object | |
| qualifierText: | Object | |
| qualifierData: | Unsigned |
instance LocalRuleQualifier tag; qualifierType: 0; qualifierObject: nilObject; qualifierText: nilObject; qualifierData: 0; end instance;
Define Class LocalRuleQualifier; inherits from RuleQualifier; field qualifierType: Unsigned; field qualifierObject: Object, weak; field qualifierText: Object, getter; // we need to own text field qualifierData: Unsigned, getter; attribute QualifierData: Unsigned; attribute QualifierObject: Object; attribute QualifierText: Object, readOnly; overrides QualifyRule; overrides ComputeRuleText; overrides Entity, SetEntity; end class;