MailAddressLabel

AboutToHide AboutToShow AdjustSize BalloonDot CanAcceptCoupon Clear ConstrainToolTarget Draw DrawMailTitle

EditStepsForNewEntity GetCurMessage GetListCount GetMailList Press SalutationNames SetEntityAtPosition Swallow Tap

Attributes

CanDrawIn Entity Entity Message Mode OneEntityOnly Subject Target Target

Fields

instance MailAddressLabel 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;
        message: nilObject;
    labelImages: nilObject;
        hOffset: <0.0>;
        vOffset: <0.0>;
      textStyle: nilObject;
         picker: nilObject;
     listWindow: nilObject;
           mode: 0;
           mode: 0;
 postageDisplay: nilObject;
     aboutField: nilObject;
  oneEntityOnly: false;
     maxEntries: 0;
     balloonDot: <0.0,0.0>;
end instance;

Define Class MailAddressLabel;
    inherits from Box;
    inherits interface from EditsTarget;
    inherits from PeopleListTarget;

    field message:          PersonalMessage, weak, getter, setter;
    field labelImages:      ObjectList;
    field hOffset:          Micron;
    field vOffset:          Micron;
    field textStyle:        TextStyle;
    field picker:           EditWindow, weak;
    field listWindow:       GadgetWindow, weak;
#ifdef DEBUG
    field mode:             Signed, getter;
        // Debug-only override of SetMode so it can have a breakpoint
#else
    field mode:             Signed, getter, setter;
#endif
    field postageDisplay:   PostageDisplay, weak;
    field aboutField:       TextField;
    field oneEntityOnly:    Boolean, getter, setter;
    field maxEntries:       Unsigned;
    field balloonDot:       Dot;

    attribute Message: PersonalMessage;
    overrides Target, SetTarget;
    attribute Mode: Signed, safe;
    attribute OneEntityOnly: Boolean, safe;

    overrides AboutToHide, AboutToShow;
    overrides AdjustSize;
    overrides CanAcceptCoupon;              
        // permits textStyle and inherited coupons
    overrides Swallow;
    overrides CanDrawIn;
    overrides ConstrainToolTarget;          
        // pass through useless hits for scribbling
    overrides Draw;
    overrides BalloonDot;
    overrides EditStepsForNewEntity;        
        // steps for new person/emaillabel in people picker
    overrides Entity, SetEntity;
    
    operation SalutationNames(): Text;
    operation SetEntityAtPosition(newEntity: FullContact; where: Dot);
    attribute Subject: Text;
    operation Clear(), noFail, safe;

    overrides Tap, Press;
        // call if user taps; turns off inertial scrolling and plays object's sound
    
    intrinsic GetCurMessage(self: MailAddressLabel): Message;
    intrinsic DrawMailTitle(imageList: ObjectList; imageIndex: Unsigned; pos: Dot);
    intrinsic GetListCount(list: ObjectList; minHeight: Signed; maxHeight: Signed): Signed;
    intrinsic GetMailList(self: MailAddressLabel; mode: Signed): Object;
end class;