- Code: Select all Expand view
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oWnd, oMenu
MENU oMenu
MENUITEM "&Test"
MENU
MENUITEM "&Test1";
ACTION MSGINFO( "Test1" )
MENUITEM "&Test2";
ACTION MSGINFO( "Test2" )
ENDMENU
ENDMENU
DEFINE WINDOW oWnd;
MENU oMenu
ACTIVATE WINDOW oWnd
RETURN NIL
EMG