... <- Window <- TitledWindow <- GadgetWindow <- ContentChoicesWindow <- FilingWindow |
|
|
AboutToHide AboutToShow Appear CreateNewFileDestination DoFileCommon DoFileOriginal FileCopy FileOriginal Notice |
|
Index |
instance FilingWindow 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; canCoexist: false; persistentWindow: false; dontAutoExtend: false; ignoreGrid: false; closeAfterTouch: false; closeBeforeTouch: false; autoPosition: false; noCloseBox: false; downArrowVisible: false; upArrowVisible: false; rightArrowVisible: false; leftArrowVisible: false; autoMoveContents: false; searchable: false; customTitleColor: false; scaleWindowTitle: false; noBuiltInArrows: false; noZoom: false; autoCopyWindow: false; titleColor: 0; titleHeight: <0.0>; dependents: nilObject; balloonDot: <0.0,0.0>; target: nilObject; contentChoices: nilObject; destinationChoices: nilObject; destinationListView: nilObject; newButton: nilObject; newButtonNames: nilObject; currentDestination: nilObject; currentSelection: nilObject; index: 0; end instance;
Define Class FilingWindow; inherits from ContentChoicesWindow; field destinationChoices: ChoiceBox, weak; // choices of where to file field destinationListView: ListView, weak; // sub-choice of where to file field newButton: Button, weak; // button whose name depends on current index field newButtonNames: Text; // first line of text is name of newButton when destination is cluster; // second line of text is name of newButton when destination is drawer in file cabinet; field currentDestination: Object, weak; // used to remember destination between window appearances field currentSelection: Object, weak; // used to remember selected package/folder between window appearances field index: Unsigned, getter; // used by index attribute operation CreateNewFileDestination(); // adds an entry to the visible list of file destinations, and // gives the user the opportunity to rename it operation FileOriginal(); // call to file the selected content choice into the selected destination choice // may present a dialog if rebooting would disrupt comms // override rarely operation FileCopy(); // call to file a copy of the selected content choice into the selected destination choice // override rarely overrides AboutToShow; // observes iFileDestinationList, and sets up choices overrides AboutToHide; // stops observing iFileDestinationList overrides Notice; // when iFileDestinationList changes, sets up choices again overrides Appear; // synchronizes choices; must be done here rather than in AboutToShow // so it is done after the choice box is set up attribute Index: Unsigned; // index in destination choices; // setter prepares list of packages or folders inside this destination, // including special case of filing back into main memory operation DoFileCommon(deleteFlag: Boolean): Boolean, intrinsic; operation DoFileOriginal(); end class;