Object <- Text <- MappedText |
|
|
DestroyKeepOriginal Init RemapText |
|
Info TextMappingParameter |
| Field | Type | |
|---|---|---|
| MappedText: | originalText: | Text |
| mappedText: | Text | |
| textMapping: | TextMapping | |
| textMappingParameter: | Object |
instance MappedText tag; originalText: nilObject; mappedText: nilObject; textMapping: nilObject; textMappingParameter: nilObject; end instance;
Define Class MappedText; inherits from Text; field originalText: Text; field mappedText: Text; field textMapping: TextMapping; field textMappingParameter: Object, getter, setter, weak; overrides Init, Info; operation RemapText(); // re-map original text into myself operation DestroyKeepOriginal(): Text; // destroy mappedText object and return original text passed to Init attribute TextMappingParameter: Object; end class;