dps/src/PopupMenuDLE.i3


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.