dps/src/SimpleTextDLE.i3


Copyright (C) 1994, Digital Equipment Corp.

INTERFACE SimpleTextDLE;
A SimpleTextDLE.Eis a subclass of a DisplayList.E.

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.