Object <- Viewable <- TextField <- BodyField |
|
|
CheckOutSelectionPath LimitFormatBounds RectangularFormat |
|
CanExtendBottom MinimumHeight |
| Field | Type | |
|---|---|---|
| Viewable: | superview: | Viewable |
| relativeOrigin: | Dot | |
| contentSize: | Dot | |
| viewFlags: | Flags | |
| labelStyle: | TextStyle | |
| color: | Unsigned | |
| altColor: | Unsigned | |
| shadow: | Shadow | |
| sound: | Playable | |
| HasBorder: | border: | Border |
| TextField: | fieldFlags: | Flags |
| dataStore: | HasText | |
| baseStyle: | TextStyle |
instance BodyField 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;
fieldFlags: 0x00000000;
dataStore: nilObject;
baseStyle: nilObject;
end instance;
Define Class BodyField;
inherits from TextField;
overrides CanExtendBottom;
// returns true
overrides CheckOutSelectionPath;
// so the selection respects mail label
overrides LimitFormatBounds, RectangularFormat;
// so postcards can get wide after mail label
overrides MinimumHeight;
// base on size of enclosing card, if any
end class;