..
..
Some code goes here
..
..
CREATE BROWSE brMyBrowser
ASSIGN FRAME =
DOWN =
(etc)
TRIGGERS:
END TRIGGERS.
RUN ipCreatePopup (OUTPUT menuHandle).
ASSIGN brMyBrowser:POPUP:MENU = menuHandle.
..
..
Some code goes here
..
..
PROCEDURE ipCreatePopup:
DEF OUTPUT PARAMEYET opMenuHandle AS HANDLE NO-UNDO.
CREATE MENU opMenuHandle
ASSIGN POPUP-ONLY = TRUE
TITLE = "Kontextmenue".
CREATE MENU-ITEM ia ASSIGN
PARENT = popmenu
LABEL = "Buchungs-Info"
TRIGGERS:
ON CHOOSE PERSISTENT RUN ipMenuClicked IN THIS-PROCEDURE (INPUT ia).
END TRIGGERS.
END PROCEDURE.
PROCEDURE ipMenuClicked:
DEF INPUT PARAMETER ipMenuItem AS HANDLE NO-UNDO.
MESSAGE ipMenuItem:LABEL " has just been clicked."
VIEW-AS ALERT-BOX INFORMATION.
END PROCEDURE.