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.