... <- Box <- Window <- TitledWindow <- GadgetWindow <- ListWindow |
|
|
AdjustSize Appear Disappear GetListView |
|
Choices Target |
| Field | Type | |
|---|---|---|
| Viewable: | superview: | Viewable |
| relativeOrigin: | Dot | |
| contentSize: | Dot | |
| viewFlags: | Flags | |
| labelStyle: | TextStyle | |
| color: | Unsigned | |
| altColor: | Unsigned | |
| shadow: | Shadow | |
| sound: | Playable | |
| HasBorder: | border: | Border |
| Window: | canCoexist: | Boolean |
| persistentWindow: | Boolean | |
| dontAutoExtend: | Boolean | |
| ignoreGrid: | Boolean | |
| closeAfterTouch: | Boolean | |
| closeBeforeTouch: | Boolean | |
| autoPosition: | Boolean | |
| noCloseBox: | Boolean | |
| downArrowVisible: | Boolean | |
| upArrowVisible: | Boolean | |
| rightArrowVisible: | Boolean | |
| leftArrowVisible: | Boolean | |
| autoMoveContents: | Boolean | |
| searchable: | Boolean | |
| customTitleColor: | Boolean | |
| scaleWindowTitle: | Boolean | |
| noBuiltInArrows: | Boolean | |
| noZoom: | Boolean | |
| autoCopyWindow: | Boolean | |
| TitledWindow: | titleColor: | Unsigned |
| titleHeight: | Micron | |
| dependents: | ObjectList | |
| BalloonSpout: | balloonDot: | Dot |
| GadgetWindow: | target: | Object |
| ListWindow: | adjustPosition: | Boolean |
| transientChoices: | Boolean | |
| listWindowPosition: | Boolean |
instance ListWindow 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;
canCoexist: false;
persistentWindow: false;
dontAutoExtend: false;
ignoreGrid: false;
closeAfterTouch: false;
closeBeforeTouch: false;
autoPosition: false;
noCloseBox: false;
downArrowVisible: false;
upArrowVisible: false;
rightArrowVisible: false;
leftArrowVisible: false;
autoMoveContents: false;
searchable: false;
customTitleColor: false;
scaleWindowTitle: false;
noBuiltInArrows: false;
noZoom: false;
autoCopyWindow: false;
titleColor: 0;
titleHeight: <0.0>;
dependents: nilObject;
balloonDot: <0.0,0.0>;
target: nilObject;
adjustPosition: false;
transientChoices: false;
listWindowPosition: false;
end instance;
Define Class ListWindow;
inherits from GadgetWindow;
field adjustPosition: Boolean;
// adjust window position to point at target on appearance
field transientChoices: Boolean;
// if set, destroy choice list on close
field listWindowPosition: Boolean;
// if set, force vertical positioning on AdjustSize
attribute Choices: Object;
// getter returns the list displayed in listview that is first subview of self
// setter stores the list into the listview that is first subview of self;
// also converts a multi-line text object into transient object list, 1 text object per line
overrides AdjustSize;
// shrinks content to fit subviews
overrides Appear;
// delegates to TitledWindow unless adjustPosition flag is set
overrides Disappear;
// if transientChoices flag is set, destroys choices
overrides SetTarget;
// if first subview is a TargetedListView, sets its target in addition to self's
operation GetListView(): ListView, intrinsic;
end class;