Object <- Viewable <- Stamp <- Gadget <- ControlBarGadget |
|
|
DefaultReceiverForSelf |
|
PreferredSlot |
| Field | Type | |
|---|---|---|
| Viewable: | superview: | Viewable |
| relativeOrigin: | Dot | |
| contentSize: | Dot | |
| viewFlags: | Flags | |
| labelStyle: | TextStyle | |
| color: | Unsigned | |
| altColor: | Unsigned | |
| shadow: | Shadow | |
| sound: | Playable | |
| Stamp: | image: | Image |
| Gadget: | target: | Object |
| canSwallow: | Boolean | |
| pullOut: | Boolean | |
| pullOutCopy: | Boolean | |
| showOccupied: | Boolean | |
| useStarburst: | Boolean | |
| setTarget: | Boolean | |
| useScaledText: | Boolean | |
| acceptTools: | Boolean | |
| acceptStationery: | Boolean | |
| ControlBarGadget: | preferredSlot: | Unsigned |
instance ControlBarGadget tag;
relativeOrigin: <0.0,0.0>;
contentSize: <0.0,0.0>;
viewFlags: 0x00000000;
labelStyle: nilObject;
color: 0;
altColor: 0;
shadow: nilObject;
sound: nilObject;
image: nilObject;
target: nilObject;
canSwallow: false;
pullOut: false;
pullOutCopy: false;
showOccupied: false;
useStarburst: false;
setTarget: false;
useScaledText: false;
acceptTools: false;
acceptStationery: false;
preferredSlot: 0;
end instance;
Define Class ControlBarGadget;
inherits from Gadget;
inherits from CanInstallSelf;
field preferredSlot: Unsigned, getter, setter;
attribute PreferredSlot: Unsigned;
overrides DefaultReceiverForSelf;
// installs itself into the control bar.
end class;