Mini Kabibi Habibi
* *********************************************************
* *
* * 04/12/2001 AATEST.MPR 21:27:47
* *
* *********************************************************
* *
* * Author's Name
* *
* * Copyright (C) 2001 Company Name
* * Address
* * City, Zip
* *
* * Description:
* * This PROGRAM was automatically generated BY GENMENU.
* *
* *********************************************************
* *********************************************************
* *
* * Menu Definition
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _msm_file OF _MSYSMENU PROMPT "\<File" COLOR SCHEME 3 ;
NEGOTIATE LEFT, NONE ;
KEY ALT+F, ""
DEFINE PAD _msm_edit OF _MSYSMENU PROMPT "\<Edit" COLOR SCHEME 3 ;
NEGOTIATE NONE, LEFT ;
KEY ALT+E, "" ;
MESSAGE "Edits text or current selection"
DEFINE PAD _msm_record OF _MSYSMENU PROMPT "\<Record" COLOR SCHEME 3 ;
NEGOTIATE NONE, LEFT ;
KEY ALT+R, "ALT+R" ;
MESSAGE "Record options"
DEFINE PAD _msm_playback OF _MSYSMENU PROMPT "\<Playback" COLOR SCHEME 3 ;
NEGOTIATE NONE, LEFT ;
KEY ALT+P, "ALT+P" ;
MESSAGE "Playback options"
DEFINE PAD _msm_help OF _MSYSMENU PROMPT "\<Help" COLOR SCHEME 3 ;
NEGOTIATE NONE, RIGHT ;
KEY ALT+H, "" ;
MESSAGE "Displays Help on AA Test Harness"
ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP _mfile
ON PAD _msm_edit OF _MSYSMENU ACTIVATE POPUP _medit
ON PAD _msm_record OF _MSYSMENU ACTIVATE POPUP record
ON PAD _msm_playback OF _MSYSMENU ACTIVATE POPUP playback
ON PAD _msm_help OF _MSYSMENU ACTIVATE POPUP _msystem
DEFINE POPUP _mfile MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _mfile PROMPT "\<VFP Instance" ;
SKIP FOR NOT (TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdVFP.Enabled) ;
MESSAGE "Opens new VFP Instance"
DEFINE BAR 2 OF _mfile PROMPT "E\<xit" ;
SKIP FOR NOT (TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdExit.Enabled) ;
PICTRES _mfi_quit ;
MESSAGE "Quits"
ON SELECTION BAR 1 OF _mfile =TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdVFP.click()
ON SELECTION BAR 2 OF _mfile =TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdExit.click()
DEFINE POPUP _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF _medit PROMPT "\<Undo" ;
KEY CTRL+Z, "Ctrl+Z" ;
PICTRES _med_undo ;
MESSAGE "Undoes the last command or action"
DEFINE BAR _med_redo OF _medit PROMPT "Re\<do" ;
KEY CTRL+R, "Ctrl+R" ;
PICTRES _med_redo ;
MESSAGE "Repeats the last command or action"
DEFINE BAR _med_sp100 OF _medit PROMPT "\-" ;
PICTRES _med_sp100
DEFINE BAR _med_cut OF _medit PROMPT "Cu\<t" ;
KEY CTRL+X, "Ctrl+X" ;
PICTRES _med_cut ;
MESSAGE "Removes the selection and places it onto the Clipboard"
DEFINE BAR _med_copy OF _medit PROMPT "\<Copy" ;
KEY CTRL+C, "Ctrl+C" ;
PICTRES _med_copy ;
MESSAGE "Copies the selection onto the Clipboard"
DEFINE BAR _med_paste OF _medit PROMPT "\<Paste" ;
KEY CTRL+V, "Ctrl+V" ;
PICTRES _med_paste ;
MESSAGE "Pastes the contents of the Clipboard"
DEFINE BAR _med_clear OF _medit PROMPT "Cle\<ar" ;
PICTRES _med_clear ;
MESSAGE "Removes the selection and does not place it onto the Clipboard"
DEFINE BAR _med_sp200 OF _medit PROMPT "\-" ;
PICTRES _med_sp200
DEFINE BAR _med_slcta OF _medit PROMPT "Se\<lect All" ;
KEY CTRL+A, "Ctrl+A" ;
PICTRES _med_slcta ;
MESSAGE "Selects all text or items in the current window"
DEFINE POPUP record MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF record PROMPT "\<Record" ;
SKIP FOR NOT(TYPE("_screen.activeform.parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdRecord.Enabled)
DEFINE BAR 2 OF record PROMPT "\<Pause" ;
SKIP FOR NOT (TYPE("_screen.activeform.parent.otoolbar.BaseClass") = "C" AND _screen.activeform.parent.otoolbar.chkPause.Enabled)
DEFINE BAR 3 OF record PROMPT "\<Stop" ;
SKIP FOR NOT (TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdStop.Enabled)
ON SELECTION BAR 1 OF record =TYPE("_screen.activeform.parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdRecord.Click()
ON SELECTION BAR 2 OF record =TYPE("_screen.activeform.parent.otoolbar.BaseClass") = "C" AND _screen.activeform.parent.otoolbar.chkPause.Click()
ON SELECTION BAR 3 OF record =TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdStop.Click()
DEFINE POPUP playback MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF playback PROMPT "\<Play" ;
SKIP FOR NOT (TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdPlay.Enabled)
DEFINE BAR 2 OF playback PROMPT "\<Edit Script" ;
SKIP FOR NOT(TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdOpenLog.Enabled)
DEFINE BAR 3 OF playback PROMPT "\<Insert script" ;
SKIP FOR NOT(TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdInsScript.Enabled)
ON SELECTION BAR 1 OF playback =TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdPlay.Click()
ON SELECTION BAR 2 OF playback =TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdOpenLog.Click()
ON SELECTION BAR 3 OF playback =TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdInsScript.Click()
DEFINE POPUP _msystem MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _msystem PROMPT "Active Accessibility \<Test Harness" ;
KEY F1, "F1" ;
SKIP FOR NOT(TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdHelp.Enabled) ;
PICTRES _mtl_debugger
ON SELECTION BAR 1 OF _msystem = TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdHelp.Click()