Bug in Combobox

[Enrico Maria Giordano]

In the following sample:

Code: Select all  Expand view  RUN

#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

if you click on the button you get the following error:

Message not found TCOMBOBOX:VARPUT

EMG

[Antonio Linares]

Enrico,

This method was missing from Class TControl:

Code: Select all  Expand view  RUN

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


Already implemented for the next build.

[Enrico Maria Giordano]

Thank you!

EMG