Object <- Viewable <- Box <- Desktop <- Bookstand |
|
|
InstallInto NextBookPosition |
Class Bookstand 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 Bookstand 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 Bookstand;
inherits from Desktop;
operation NextBookPosition(forThisBook: Book; var position: Dot);
overrides InstallInto;
end class;