FiveTech Support Forums

#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

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