FiveTech Support Forums

#include "Fwce.ch"


FUNCTION MAIN()

    LOCAL oWnd, oCbx

    LOCAL aVar := { "A", "B", "C" }

    LOCAL cVar := ""

    DEFINE WINDOW oWnd

    @ 1, 1 COMBOBOX oCbx VAR cVar;
           ITEMS aVar

    oCbx:SetFocus()

    @ 3, 1 BUTTON "Change";
           ACTION ( oCbx:VarPut( "B" ), oCbx:Refresh() )

    ACTIVATE WINDOW oWnd

    RETURN NIL

   METHOD VarPut( uVal ) INLINE  If( ValType( ::bSetGet ) == "B",;
                                 Eval( ::bSetGet, uVal ),)