Object <- FixedList <- ObjectList <- DatedWordList |
|
|
AddElementAt Clear RefreshDate RemoveAt |
|
AutoAdd Limit |
| Field | Type | |
|---|---|---|
| DatedWordList: | limit: | Unsigned |
| dates: | IntegerList | |
| autoAdd: | Boolean |
instance DatedWordList tag; limit: 0; dates: nilObject; autoAdd: false; end instance;
Define Class DatedWordList; inherits from ObjectList; field limit: Unsigned, getter; // maximum number of entries allowed in list field dates: IntegerList; // date/time each item was entered in list or last accessed field autoAdd: Boolean, getter, setter; // used by AutoAdd attribute attribute AutoAdd: Boolean; // called by structured field mechanism to determine whether new // entries typed by user are added to list automatically attribute Limit: Unsigned; // maximum number of entries allowed in list; // setter shrinks list by removing and destroying oldest entries if necessary; // override rarely operation RefreshDate(index: Unsigned), noFail; // call to set stored date/time of item at indexth position to current date/time; // override rarely overrides AddElementAt; // adds a corresponding date/time entry for new item; // if number of items overflows limit, removes oldest entry; overrides Clear; // clears dates list too overrides RemoveAt; // removes corresponding date/time entry end class;