Copyright (C) 1994, Digital Equipment Corp. INTERFACEA SimpleTextDLE.Eis a subclass of a DisplayList.E.SimpleTextDLE ;
The SimpleTextDLE.E displays its text
field using
the default font.
The text value may be changed by calling the Replace method.
IMPORT DisplayList, DPS, DPSWindow; TYPE E = DisplayList.E OBJECT initialized: BOOLEAN:= FALSE; text: TEXT := ""; lines: REF ARRAY OF TEXT METHODS Replace (text: TEXT; t: DPSWindow.T := NIL) := Replace; OVERRIDES Repaint := Repaint; Mouse := Mouse; END; PROCEDURE Init (e: E; window: DPSWindow.T); PROCEDURE Repaint (e: E; box: DPS.Box; only: REFANY := NIL): TEXT; PROCEDURE Mouse (e: E; window: DPSWindow.T; event: DPS.MouseEvent): BOOLEAN; PROCEDURE Replace (e: E; text: TEXT; window: DPSWindow.T := NIL); END SimpleTextDLE.