The Value() method declared with inline statement is not recognized by xHarbour 
when called via message. 

regards,
Eduardo

*------------------------*
#include "hbclass.ch"

proc main

Local o := MyClass():New()
  
  o:Start()
  o:Add(10)
  o:Sub(5)

  ? o:Result()

return

CLASS MyClass

DATA nVal INIT 0 

METHOD New()  INLINE (::nVal := 0, Self)
METHOD Add(n) INLINE ::nVal += n
METHOD Sub(n) INLINE ::nVal -= n

METHOD Value() INLINE ::nVal 
METHOD Reset() 

MESSAGE Result METHOD Value   
MESSAGE Start METHOD Reset   

ENDCLASS

METHOD Reset() CLASS MyClass
 ::nVal := 0
RETURN SELF

------------------------------------------------------------------------------
EditLive Enterprise is the world's most technically advanced content
authoring tool. Experience the power of Track Changes, Inline Image
Editing and ensure content is compliant with Accessibility Checking.
http://p.sf.net/sfu/ephox-dev2dev
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers

Reply via email to