Object <- InternetProviderSetup |
|
|
AcceptEdit Confirm |
|
Contact EditSteps EditStepsTarget ProviderName |
| Field | Type | |
|---|---|---|
| InternetProviderSetup: | contact: | FullContact |
| editSteps: | AttributeStepList | |
| editStepsTarget: | InternetProvider |
Define Class InternetProviderSetup; inherits from Object; inherits from EditAttributeClient; abstract; field contact: FullContact, getter; field editSteps: AttributeStepList, getter; field editStepsTarget: InternetProvider, weak, getter, setter; attribute Contact: FullContact, readOnly; // prototype contact for InternetProviders using this setup attribute EditSteps: AttributeStepList, readOnly; // edits steps for InternetProvider attribute EditStepsTarget: InternetProvider; // InternetProvider currently being edited by edit steps // attributes for editing editStepsTarget attribute ProviderName: Text; // edits the name of the target InternetProvider overrides AcceptEdit; // make sure new name isn't blank before accepting overrides Confirm; // nils out the editStepsTarget end class;