Object <- Server <- DisplayServer |
|
|
BootBlit Buffer Notice PoweringUp ReinitializeClass ResetContrast SetBuffer |
|
Contrast DisplayEnabled |
| Field | Type | |
|---|---|---|
| Server: | enabled: | Boolean |
| UsesExtraPower: | microampLoad: | Signed |
| DisplayServer: | monitorTimer: | Timer |
| monitorPeriod: | Unsigned | |
| referenceTemperature: | Unsigned | |
| referenceContrast: | Fixed | |
| lastThermistorAtoDValue: | Unsigned | |
| lastThermistorTemperature: | Unsigned | |
| contrast: | Fixed |
instance DisplayServer tag; enabled: false; microampLoad: 0; monitorTimer: nilObject; monitorPeriod: 0; referenceTemperature: 0; referenceContrast: 0; lastThermistorAtoDValue: 0; lastThermistorTemperature: 0; contrast: 0; end instance;
#endif Define Class DisplayServer; inherits from Server; inherits from HasReinitialize, WantsPowerEvents, UsesExtraPower; field monitorTimer: Timer; field monitorPeriod: Unsigned; field referenceTemperature: Unsigned; field referenceContrast: Fixed; field lastThermistorAtoDValue: Unsigned; field lastThermistorTemperature: Unsigned; field contrast: Fixed; #ifdef SOFTWARE_CONTRAST_CONTROL overrides ReinitializeClass; overrides Notice; #endif overrides PoweringUp; intrinsic BootBlit(parameters: ReadOnlyPointer); class operation Buffer(): Pointer; class operation SetBuffer(pixels: Pointer; depth: UnsignedShort); attribute DisplayEnabled: Boolean; // turn on or off LCD attribute Contrast: Fixed, safe, common; operation ResetContrast(); // reset LCD contrast back to factory value end class;