dps/src/WarpDLE.i3


Copyright (C) 1994, Digital Equipment Corp.

INTERFACE WarpDLE;

IMPORT DisplayList, DPS, DPSWindow;

TYPE T = DisplayList.T OBJECT
  leftWarpX, rightWarpX, multiplierWarpX: REAL := 1.0;
  topWarpY, bottomWarpY, multiplierWarpY: REAL := 1.0;
 OVERRIDES
  Mouse := Mouse;
  Repaint := Repaint;
  ImmediatePostScript := PostScriptToParentWarped;
  Dirty := DirtyToParentWarped;
  END;
TYPE E = T;

PROCEDURE Mouse (e: E; t: DPSWindow.T; event: DPS.MouseEvent): BOOLEAN;

PROCEDURE Repaint (t: T; box: DPS.Box; only: REFANY): TEXT;
PROCEDURE PostScriptToParentWarped (e: E; script: TEXT);
PROCEDURE DirtyToParentWarped (e: E; box: DPS.Box; only: DisplayList.T := NIL);

  END WarpDLE.