Bug in TSay

[Enrico Maria Giordano]

Clicking on the button of this sample:

Code: Select all  Expand view

#include "Fwce.ch"


FUNCTION MAIN()

    LOCAL oWnd, oSay

    LOCAL cVar := "Test"

    DEFINE WINDOW oWnd

    @ 1, 1 SAY oSay VAR cVar

    @ 3, 1 BUTTON "Change";
           ACTION MSGINFO( oSay:VarGet() )

    ACTIVATE WINDOW oWnd

    RETURN NIL

you will get

Message not found TSAY:VARGET

EMG

[Antonio Linares]

Enrico,

Same as Class TControl Method VarPut(). It was not implemented yet. Its already included for next build:

Code: Select all  Expand view

   METHOD VarGet() INLINE If( ValType( ::bSetGet ) == "B", Eval( ::bSetGet ),)


Thanks for the feedback

[Enrico Maria Giordano]

Thank you!

EMG