... <- Viewable <- Box <- Panel <- Bar <- ControlBar |
|
|
CanAccept ConstrainHit ConstrainToolTarget ContentsCanHighlight Draw FindSlotNumber InstallIntoSlot |
MakeActive MakeValid MovedContents SetContentsHighlighted SlotContents Touch |
|
ButtonCount ButtonCount ContentsInTransit Disabled VerticalControlBar |
| Field | Type | |
|---|---|---|
| Viewable: | superview: | Viewable |
| relativeOrigin: | Dot | |
| contentSize: | Dot | |
| viewFlags: | Flags | |
| labelStyle: | TextStyle | |
| color: | Unsigned | |
| altColor: | Unsigned | |
| shadow: | Shadow | |
| sound: | Playable | |
| HasBorder: | border: | Border |
| ControlBar: | highlightIndex: | Unsigned |
| verticalControlBar: | Boolean | |
| itemList: | ObjectList | |
| savedItemList: | ObjectList |
instance ControlBar 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; highlightIndex: 0; verticalControlBar: false; itemList: nilObject; savedItemList: nilObject; end instance;
Define Class ControlBar; inherits from Bar; inherits from AbstractControlBar; field highlightIndex: Unsigned; field verticalControlBar: Boolean, getter; field itemList: ObjectList; field savedItemList: ObjectList; attribute VerticalControlBar: Boolean, readOnly; overrides ButtonCount, SetButtonCount; overrides FindSlotNumber; overrides SlotContents; overrides InstallIntoSlot; overrides CanAccept; // returns true only if an empty slot is available overrides ContentsCanHighlight, SetContentsHighlighted; overrides ConstrainHit; overrides ConstrainToolTarget; overrides Draw, Touch; overrides MovedContents; overrides SetDisabled; overrides ContentsInTransit; overrides MakeValid; overrides MakeActive; end class;