Object <- Viewable <- Box <- Corridor <- CarpetedCorridor |
|
|
DrawFloor |
Class CarpetedCorridor 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 |
| ScrollableByMicron: | scrollOffset: | Dot |
| Corridor: | floorColor: | Unsigned |
| floorColorHighlighted: | Unsigned | |
| floorHeight: | Micron | |
| itemSpacing: | Micron | |
| directoryList: | ObjectList | |
| scrollAmount: | Micron | |
| corridorSize: | Micron | |
| authoringMode: | Boolean | |
| useBuiltInScrollArrows: | Boolean | |
| inactiveList: | ObjectList | |
| lastInsert: | Micron | |
| insertInterval: | Micron | |
| insertList: | ObjectList | |
| insertIndex: | Unsigned | |
| removableItemsList: | DenseObjectList | |
| insertAfter: | Viewable | |
| knownItemNames: | Text | |
| CarpetedCorridor: | tile: | Image |
| offset: | Dot |
instance CarpetedCorridor 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;
scrollOffset: <0.0,0.0>;
floorColor: 0;
floorColorHighlighted: 0;
floorHeight: <0.0>;
itemSpacing: <0.0>;
directoryList: nilObject;
scrollAmount: <0.0>;
corridorSize: <0.0>;
authoringMode: false;
useBuiltInScrollArrows: false;
inactiveList: nilObject;
lastInsert: <0.0>;
insertInterval: <0.0>;
insertList: nilObject;
insertIndex: 0;
removableItemsList: nilObject;
insertAfter: nilObject;
knownItemNames: nilObject;
tile: nilObject;
offset: <0.0,0.0>;
end instance;
Define Class CarpetedCorridor;
inherits from Corridor;
field tile: Image;
field offset: Dot;
overrides DrawFloor;
// lays down the carpet-pad (InheritedDrawFloor); then installs
// the carpet by tiling the image in the tile field.
end class;