... <- Viewable <- Stamp <- Gadget <- ControlBarGadget <- KeyboardGadget |
|
|
Action ItemSelected SetDefaultKeyboard |
|
Image Level |
| Field | Type | |
|---|---|---|
| Viewable: | superview: | Viewable |
| relativeOrigin: | Dot | |
| contentSize: | Dot | |
| viewFlags: | Flags | |
| labelStyle: | TextStyle | |
| color: | Unsigned | |
| altColor: | Unsigned | |
| shadow: | Shadow | |
| sound: | Playable | |
| Stamp: | image: | Image |
| Gadget: | target: | Object |
| canSwallow: | Boolean | |
| pullOut: | Boolean | |
| pullOutCopy: | Boolean | |
| showOccupied: | Boolean | |
| useStarburst: | Boolean | |
| setTarget: | Boolean | |
| useScaledText: | Boolean | |
| acceptTools: | Boolean | |
| acceptStationery: | Boolean | |
| ControlBarGadget: | preferredSlot: | Unsigned |
| KeyboardGadget: | keyboardList: | Object |
instance KeyboardGadget tag; relativeOrigin: <0.0,0.0>; contentSize: <0.0,0.0>; viewFlags: 0x00000000; labelStyle: nilObject; color: 0; altColor: 0; shadow: nilObject; sound: nilObject; image: nilObject; target: nilObject; canSwallow: false; pullOut: false; pullOutCopy: false; showOccupied: false; useStarburst: false; setTarget: false; useScaledText: false; acceptTools: false; acceptStationery: false; preferredSlot: 0; keyboardList: nilObject; end instance;
Define Class KeyboardGadget; inherits from ControlBarGadget; field keyboardList: Object, weak; intrinsic SetDefaultKeyboard(keyboardIndex: Unsigned), safe, common; operation ItemSelected(theIndex: UnsignedShort); attribute Level: Fixed, readOnly, safe, common; overrides Action; overrides SetImage; // if nilObject is passed as new image, use iKbdGadgetImage instead end class;