Object <- FixedList <- ObjectList <- IndexicalInstaller |
|
|
InstallIndexical InstallInto InstallMultipleIndexicals MakeValid |
Class IndexicalInstaller defines no new attributes.
Fields
| Field | Type | |
|---|---|---|
| IndexicalInstaller: | indexicalValues: | ObjectList |
instance IndexicalInstaller tag; indexicalValues: nilObject; end instance;
Define Class IndexicalInstaller; inherits from ObjectList; field indexicalValues : ObjectList; operation InstallIndexical(indexicalToChange: Object; newValue: Object); // Install an indexical into the system. ??? // rarely override. operation InstallMultipleIndexicals(indexicalList: ObjectList); // Install multiple indexicals into the system. indexicalList should // be a list of paired entries. The first item in the pair is the indexical // to be replaced, and the second is its new value. // rarely override. overrides MakeValid; // Re-installs original values for indexicals which have disappeared. // If an indexical has been installed multiple times, restores the // most recent valid value. overrides InstallInto; // Call-through to InstallMultipleIndexicals. the flags and parameter // arguments are ignored. end class;