Copyright (C) 1994, Digital Equipment Corp.
INTERFACE DragButtonDLE;
IMPORT ButtonDLE, DPS, DPSWindow;
TYPE E = ButtonDLE.E OBJECT
METHODS
Down (t: DPSWindow.T; event: DPS.MouseEvent) := Down;
Move (t: DPSWindow.T; event: DPS.MouseEvent) := Move;
Up (t: DPSWindow.T; event: DPS.MouseEvent) := Up;
OVERRIDES
Mouse := Mouse;
END;
PROCEDURE Init (e: E; t: DPSWindow.T);
PROCEDURE Mouse (e: E; t: DPSWindow.T; event: DPS.MouseEvent): BOOLEAN;
PROCEDURE Down (e: E; t: DPSWindow.T; event: DPS.MouseEvent);
PROCEDURE Move (e: E; t: DPSWindow.T; event: DPS.MouseEvent);
PROCEDURE Up (e: E; t: DPSWindow.T; event: DPS.MouseEvent);
END DragButtonDLE.