... <- ObjectList <- DenseObjectList <- StackOfCards <- MailStack <- DeliveryReportStack |
|
|
FindOrMakeTrackingReport MakeSorted ReportFromMessageID StartTrackingMessage StopTrackingMessage |
|
HasNondelivery |
| Field | Type | |
|---|---|---|
| StackOfCards: | protoCard: | Card |
| canWrap: | Boolean | |
| canDelete: | Boolean | |
| containsNewItems: | Boolean | |
| disableCardTracking: | Boolean | |
| stackScene: | StackScene | |
| MailStack: | sortKey: | OperationNumber |
| reverseOrder: | Boolean |
instance DeliveryReportStack tag; protoCard: nilObject; canWrap: false; canDelete: false; containsNewItems: false; disableCardTracking: false; stackScene: nilObject; sortKey: nilOperation; reverseOrder: false; end instance;
Define Class DeliveryReportStack; inherits from MailStack; attribute HasNondelivery: Boolean, readOnly; operation FindOrMakeTrackingReport(message: Object): DeliveryReportCard; operation StartTrackingMessage(message: Object); operation StopTrackingMessage(message: Object); operation ReportFromMessageID(messageID: HasText): DeliveryReportCard; overrides MakeSorted; end class;