FilingChoice |
|
|
FileTo |
|
CanFileIntoFileCabinet FilingChoiceImage |
Define Class FilingChoice; mixes in with Object; // anything that can be the target of a proxy for filing should mix in this class attribute CanFileIntoFileCabinet: Boolean, readOnly; // returns false; // called by filing mechanism to determine whether to offer // file cabinet drawers as choices in file window; // override to return true if self can be filed into drawers; operation FileTo(container: Object; storageBoxOrFolder: Object; deleteFlag : Boolean); // called by filing mechanism to create a copy of self in storageBoxOrFolder on container; // container is a PCCard (including main memory) or a drawer stack; // deletedFlag controls whether self is destroyed after copy is created; // calls FileInContainer with same parameters in order: container, self, deleteFlag, storageBox; // override sometimes to pre-flight for special cases, or clean up before or after filing attribute FilingChoiceImage: Image, readOnly; // call to get this object's idea of what image to use in filing window; // returns iGenericObjectIcon; // override often to return a more specific image; end class;