EMailAddressInfo

CreatePreaddressedTelecardAndSelfDestruct

Attributes

AddressText DomainName EditSteps Empty FullAddress OptionEditSteps UserName

Fields

instance EMailAddressInfo tag;
          flags: 0;
          image: nilObject;
         source: nilObject;
      sourceCRC: 0;
end instance;

Define Class EMailAddressInfo;
    inherits from AddressInfo;  

    attribute UserName: Text;
    attribute DomainName: Text;
    attribute AddressText: Text;

    operation CreatePreaddressedTelecardAndSelfDestruct();
        // create a telecard addressed to the address stored in self

    overrides EditSteps;
        // decides whether to use generic internet address edit steps or domain-specific edit steps
    overrides OptionEditSteps;
        // to allow the user to edit generic internet address descriptions  
    overrides FullAddress;
        // returns AddressText(self)
    overrides Empty;
        // so that it doesn't count the domain name line when determining emptiness
end class;