FiveTech Support Forums

#include "Fwce.ch"


FUNCTION MAIN()

    LOCAL oWnd

    LOCAL oGet, cVar := ""

    DEFINE WINDOW oWnd

    @ 1, 1 GET oGet VAR cVar MEMO;
           SIZE 200, 100

    @ 10, 1 BUTTON "Append";
            SIZE 100, 20;
            ACTION oGet:Append( "This is a test" + CRLF )

    ACTIVATE WINDOW oWnd

    RETURN NIL