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