Code: Select all
#include "hbclass.ch"
function Main()
local o := MyClass():New()
Test( o )
return nil
CLASS MyClass
METHOD New() INLINE Self
METHOD Another( cText ) INLINE MsgInfo( cText ), "a string"
ENDCLASS
#pragma BEGINDUMP
#include <windows.h>
#include <hbapi.h>
#include <hbvm.h>
HB_FUNC( TEST )
{
hb_vmPushSymbol( hb_dynsymGetSymbol( "ANOTHER" ) );
hb_vmPush( hb_param( 1, HB_IT_OBJECT ) );
hb_vmPushString( "PRG level from C", strlen( "PRG level from C" ) );
hb_vmFunction( 1 );
MessageBox( 0, "return code from PRG", hb_parc( -1 ), 0 );
}
#pragma ENDDUMP