DEFINE POPUP ShortCuts FROM MROW(), MCOL() SHORTCUT

DEFINE BAR 1 OF ShortCuts PROMPT '\DEFINE BAR 2 OF ShortCuts PROMPT '\DEFINE BAR 3 OF ShortCuts PROMPT '\DEFINE BAR 4 OF ShortCuts PROMPT '\-'
DEFINE BAR 5 OF ShortCuts PROMPT 'E\

ON SELECTION POPUP ShortCuts _SCREEN.ActiveForm.RunShortCuts()

ACTIVATE POPUP ShortCuts



This requires that you have a method named
"RunShortcuts" on your form.



In the "RunShortcuts" method use:

** Define variables
LOCAL cPrompt
cPrompt = UPPER(PRMBAR('ShortCuts', BAR()))

DO CASE

CASE cPrompt = 'OPEN'

CASE cPrompt = 'CLOSE'

CASE cPrompt = 'SAVE'

CASE cPrompt = 'EXIT'

ENDCASE

RETURN

Everything makes sense in someone's mind
public class SystemCrasher :ICrashable
In addition, an integer field is not for irrational people