Copyright (C) 1994, Digital Equipment Corp.
INTERFACE ButtonDLE;
IMPORT DisplayList, DPS, DPSWindow;
TYPE E = DisplayList.E OBJECT
initialized: BOOLEAN := FALSE;
text: TEXT := "";
textPlace: DPS.Place; hot: BOOLEAN := FALSE;
METHODS
Proc (t: DPSWindow.T; event: DPS.MouseEvent) := Proc;
OVERRIDES
Repaint := Repaint;
Mouse := Mouse;
END;
PROCEDURE Repaint (e: E; box: DPS.Box; only: REFANY := NIL): TEXT;
PROCEDURE Mouse (e: E; t: DPSWindow.T; event: DPS.MouseEvent): BOOLEAN;
PROCEDURE Proc (e: E; t: DPSWindow.T; event: DPS.MouseEvent); (* A no-op. *)
PROCEDURE Init (e: E; t: DPSWindow.T);
END ButtonDLE.