... <- Box <- Window <- TitledWindow <- GadgetWindow <- CopyWindow |
|
|
AboutToHide AboutToShow Confirm |
|
SourceObject |
| Field | Type | |
|---|---|---|
| Viewable: | superview: | Viewable |
| relativeOrigin: | Dot | |
| contentSize: | Dot | |
| viewFlags: | Flags | |
| labelStyle: | TextStyle | |
| color: | Unsigned | |
| altColor: | Unsigned | |
| shadow: | Shadow | |
| sound: | Playable | |
| HasBorder: | border: | Border |
| Window: | canCoexist: | Boolean |
| persistentWindow: | Boolean | |
| dontAutoExtend: | Boolean | |
| ignoreGrid: | Boolean | |
| closeAfterTouch: | Boolean | |
| closeBeforeTouch: | Boolean | |
| autoPosition: | Boolean | |
| noCloseBox: | Boolean | |
| downArrowVisible: | Boolean | |
| upArrowVisible: | Boolean | |
| rightArrowVisible: | Boolean | |
| leftArrowVisible: | Boolean | |
| autoMoveContents: | Boolean | |
| searchable: | Boolean | |
| customTitleColor: | Boolean | |
| scaleWindowTitle: | Boolean | |
| noBuiltInArrows: | Boolean | |
| noZoom: | Boolean | |
| autoCopyWindow: | Boolean | |
| TitledWindow: | titleColor: | Unsigned |
| titleHeight: | Micron | |
| dependents: | ObjectList | |
| BalloonSpout: | balloonDot: | Dot |
| GadgetWindow: | target: | Object |
| CopyWindow: | sourceObject: | Object |
| destinationChoices: | ChoiceBox | |
| titleTemplate: | Text | |
| nameField: | TextField |
instance CopyWindow 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; sourceObject: nilObject; destinationChoices: nilObject; titleTemplate: nilObject; nameField: nilObject; end instance;
Define Class CopyWindow; inherits from GadgetWindow; field sourceObject: Object, getter, setter, weak; // used by SourceObject attribute field destinationChoices: ChoiceBox; // choice box that lists containers from which the user chooses // a destination for the copy operation field titleTemplate: Text; // template that, along with object-to-be-copied's name, generates window title field nameField: TextField; // text field into which user types new name for object-to-be-copied overrides AboutToHide; // clears text from nameField to allow unshadowing overrides AboutToShow; // determines objectToCopy from context; // puts default text into nameField, and sets up title of window; overrides Confirm; // performs the copy operation; // uses default name if user-entered text is empty attribute SourceObject: Object; // object that will be copied on Confirm end class;