THIS.CAPTION = pname
THIS.ICON = "uasc.ico"

CLEAR

SET SYSMENU SAVE
SET SYSMENU TO
ON KEY LABEL ESC KEYBOARD CHR(13)
DEFINE MENU example BAR IN WINDOW FORM1
DEFINE PAD convpad OF example PROMPT '\<File' COLOR SCHEME 3;
	KEY ALT+F, ''
ON PAD convpad OF example ACTIVATE POPUP conversion
DEFINE POPUP conversion MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF conversion PROMPT '\<View Requests' KEY CTRL+V, 'Ctrl+V'
DEFINE BAR 2 OF conversion PROMPT '\<Input Request' KEY CTRL+I, 'Ctrl+I'
DEFINE BAR 3 OF conversion PROMPT 'View \<Rates' KEY CTRL+R, 'Ctrl+R'
DEFINE BAR 4 OF conversion PROMPT '\<Edit Recipients' KEY CTRL+E, 'Ctrl+E'
DEFINE BAR 5 OF conversion PROMPT 'E\<xit' KEY CTRL+X, 'Ctrl+X'
ON SELECTION BAR 1 OF conversion mnufrmMain(1)
ON SELECTION BAR 2 OF conversion mnufrmMain(2)
ON SELECTION BAR 3 OF conversion mnufrmMain(3)
ON SELECTION BAR 4 OF conversion mnufrmMain(4)
ON SELECTION BAR 5 OF conversion quit

DEFINE PAD convpad1 OF example PROMPT '\<Help' COLOR SCHEME 3;
	KEY ALT+H, ''
ON PAD convpad1 OF example ACTIVATE POPUP conversion1
DEFINE POPUP conversion1 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF conversion1 PROMPT '\<Help' KEY CTRL+H, 'Ctrl+H'
DEFINE BAR 2 OF conversion1 PROMPT '\<About' KEY CTRL+A, 'Ctrl+A'
ON SELECTION BAR 1 OF conversion1 wait window "Sorry, this option is not yet available." timeout .5 &&Help
ON SELECTION BAR 2 OF conversion1 wait window "Sorry, this option is not yet available." timeout .5 &&About
ACTIVATE MENU example NOWAIT


*** why ??? this.refresh()



******************* no remove this ACTIVATE MENU example