Copyright (C) 1994, Digital Equipment Corp. INTERFACEThe first element in the list is the furthest from the user. The list is painted in normal order and mouse-scanned in reverse order.DLWindow ; IMPORT DisplayList, DPS, DPSWindow; TYPE T = DPSWindow.T OBJECT displayList: DisplayList.R; OVERRIDES Paint := Paint; Mouse := Mouse; Char := Char; Key := Key; KillInputFocus := KillInputFocus; END;
CONST BackgroundGray = 1.00; PROCEDURE Paint (t: T; box: DPS.Box; only: REFANY); PROCEDURE Mouse (t: T; event: DPS.MouseEvent): BOOLEAN; PROCEDURE Char (t: T; char: CHAR): BOOLEAN; PROCEDURE Key (t: T; event: DPS.KeyEvent); PROCEDURE KillInputFocus (t: T); END DLWindow.