MailStatView

AboutToShow Draw IncrementReceivedCount IncrementSentCount MakeValid Reinitialize

Attributes

ReceivedCountAsText SentCountAsText

Fields

instance MailStatView tag;
 relativeOrigin: <0.0,0.0>;
    contentSize: <0.0,0.0>;
      viewFlags: 0x00000000;
     labelStyle: nilObject;
          color: 0;
       altColor: 0;
         shadow: nilObject;
          sound: nilObject;
         border: nilObject;
          style: nilObject;
          stack: nilObject;
   lowYearLimit: 0;
  highYearLimit: 0;
     pageOffset: <0.0>;
      leftWidth: <0.0>;
     centerSkip: <0.0>;
     statistics: nilObject;
end instance;

Define Class MailStatView;
    inherits from Box;
    inherits from HasReinitialize;
    
    field style:            TextStyle;
    field stack:            BookStack, weak;
    field lowYearLimit:     Unsigned;
        // no statistics will be recorded for years earlier than this
    field highYearLimit:    Unsigned;
        // no statistics will be recorded for years later than this
    field pageOffset:       Micron;
    field leftWidth:        Micron;
    field centerSkip:       Micron;
    field statistics:       IntegerList, weak;
        // a list of (date, sentCount, receivedCount) triples

    attribute ReceivedCountAsText: Text, readOnly;
    attribute SentCountAsText: Text, readOnly;

    operation IncrementReceivedCount(), noFail;
    operation IncrementSentCount(), noFail;

    overrides AboutToShow, Draw, Reinitialize;
    overrides MakeValid;
end class;