Object <- Viewable <- Box <- Desktop |
|
|
CanAcceptCoupon DeskPosition PositionCursor |
Class Desktop defines no new attributes.
Fields
| Field | Type | |
|---|---|---|
| Viewable: | superview: | Viewable |
| relativeOrigin: | Dot | |
| contentSize: | Dot | |
| viewFlags: | Flags | |
| labelStyle: | TextStyle | |
| color: | Unsigned | |
| altColor: | Unsigned | |
| shadow: | Shadow | |
| sound: | Playable | |
| HasBorder: | border: | Border |
| Desktop: | hOffset: | Micron |
| vOffset: | Micron | |
| numPiles: | Unsigned | |
| itemsPerPile: | Unsigned | |
| hInterval: | Micron | |
| vInterval: | Micron | |
| hStagger: | Micron |
instance Desktop 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;
hOffset: <0.0>;
vOffset: <0.0>;
numPiles: 0;
itemsPerPile: 0;
hInterval: <0.0>;
vInterval: <0.0>;
hStagger: <0.0>;
end instance;
Define Class Desktop;
inherits from Box;
field hOffset: Micron;
field vOffset: Micron;
field numPiles: Unsigned;
field itemsPerPile: Unsigned;
field hInterval: Micron;
field vInterval: Micron;
field hStagger: Micron;
overrides CanAcceptCoupon;
#ifdef CURSOR_SUPPORT
overrides PositionCursor;
#endif /* CURSOR_SUPPORT */
operation DeskPosition(slotNumber: Unsigned; var result: Dot);
end class;