dps/src/DragButtonDLE.i3


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.