Object <- Text <- ListEntry |
|
|
ColumnText ReplaceFieldAt |
|
Checked FirstColumnText HasCheckbox PrefixImage SecondColumnText ShowPrefixImage |
| Field | Type | |
|---|---|---|
| ListEntry: | checked: | Boolean |
| hasCheckbox: | Boolean | |
| showPrefixImage: | Boolean |
instance ListEntry tag; checked: false; hasCheckbox: false; showPrefixImage: false; end instance;
Define Class ListEntry; inherits from Text; field checked: Boolean, getter, setter; field hasCheckbox: Boolean, getter, setter; field showPrefixImage: Boolean, getter, setter; attribute Checked: Boolean; attribute HasCheckbox: Boolean; attribute ShowPrefixImage: Boolean; attribute FirstColumnText: Text, readOnly; attribute SecondColumnText: Text, readOnly; attribute PrefixImage: Image, readOnly; operation ColumnText(columnNumber: Unsigned): Text; operation ReplaceFieldAt(columnNumber: Unsigned; text: HasText); end class;