dps/src/ScaledDLWindow.i3


Copyright (C) 1994, Digital Equipment Corp.

INTERFACE ScaledDLWindow;

IMPORT DLWindow, DPS;

TYPE T = DLWindow.T OBJECT
  dx, dy: REAL := 0.0;
  scale: REAL := 1.0;
  rotation: REAL := 0.0;
  OVERRIDES
  Paint := Paint;
  END;

PROCEDURE Paint (t: T; box: DPS.Box; only: REFANY := NIL);

PROCEDURE InstallButtons (t: T);

  END ScaledDLWindow.