Copyright (C) 1994, Digital Equipment Corp.
INTERFACE PopupMenuDLE;
IMPORT DisplayList, DPS, DLWindow, DPSWindow;
TYPE Item = OBJECT
text: TEXT := ""; context: REFANY := NIL;
textPlace: DPS.Place; hot: BOOLEAN := FALSE;
METHODS
Proc ();
END;
TYPE T = DisplayList.T OBJECT
initialized: BOOLEAN := FALSE;
hot: BOOLEAN := FALSE;
items: REF ARRAY OF Item;
METHODS
Popup (place: DPS.Place; window: DLWindow.T) := Popup;
OVERRIDES
Repaint := Repaint;
Mouse := Mouse;
END;
TYPE E = T;
PROCEDURE Repaint (t: T; box: DPS.Box; only: REFANY := NIL): TEXT;
PROCEDURE Mouse (t: T; window: DPSWindow.T; event: DPS.MouseEvent): BOOLEAN;
PROCEDURE Init (t: T; window: DPSWindow.T);
PROCEDURE Popup (t: T; place: DPS.Place; window: DLWindow.T);
PROCEDURE ProcIsReallyNIL (i: Item);
END PopupMenuDLE.