FiveTech Software tech support forums

Posted: **Sun Dec 18, 2005 9:56 pm**

Clicking on the button of this sample:

#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

Posted: **Sun Dec 18, 2005 10:28 pm**

Enrico,

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

Code: Select all

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

Thanks for the feedback

Posted: **Mon Dec 19, 2005 7:41 am**

Thank you!

EMG

FiveTech Software tech support forums

Bug in TSay

Bug in TSay