Try compile this :
Code: Select all
#include "hmg.ch"
FUNCTION Main()
LOCAL oWindow
DEFINE MAINWINDOW oWindow
Width 320
Height 400
WITH OBJECT MainMenu():New()
WITH OBJECT MenuPopup():New( ,, 'Test' )
MenuItem():New( 'oItem1',, 'Item 1' , { || MsgInfo( "Item 1" ) } )
MenuItem():New( 'oItem2',, 'Item 2' , { || MsgInfo( "Item 2" ) } )
END WITH
END WITH
END WINDOW
oWindow:Activate()
RETURN NIL