Problem with GET and Harbour

[Enrico Maria Giordano]

The following sample works fine with xHarbour (insert an A in the GET) while only beeps with Harbour. Any ideas or workaround?

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oGet

    LOCAL cVar := SPACE( 30 )

    DEFINE DIALOG oDlg

    @ 1, 1 GET oGet VAR cVar

    oDlg:bStart = { || oGet:PostMsg( WM_CHAR, "A" ) }

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

[cnavarro]

Dear Enrico, you are right, please try with

Code: Select all  Expand view  RUN

    oDlg:bStart = { || oGet:PostMsg( WM_CHAR, Asc( "A" ) ) }
 

[Enrico Maria Giordano]

Thank you, it works! Definitely my fault.

EMG