sending a msg to an object from low level code

[Antonio Linares]

Using hb_objSendMsg()

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

  local o := Test()
 
  o:nData = 1234
 
  SetValue( o, 4321 )
 
  ? o:nData

return nil

CLASS Test

   DATA nData
   
ENDCLASS

#pragma BEGINDUMP
#include <hbapicls.h>

HB_FUNC( SETVALUE )
{
   hb_objSendMsg( hb_param( 1, HB_IT_OBJECT ), "_NDATA", 1, hb_param( 2, HB_IT_ANY ) );
}

#pragma ENDDUMP
 

[Carles]

A,

It's interesting, but do u aprpreciate acces time ? maybe in loops of 1000 iterations,

:

[Antonio Linares]

It is interesting for sending a msg to an object from low level in a simple way

From PRG we should use ":" as usual