FiveTech Support Forums

   EXTEND CLASS FWMaria WITH METHOD insert_2

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    #ifdef __XHARBOUR__
        EXTEND CLASS TDialog WITH MESSAGE Test INLINE Test()
    #else
        __CLSADDMSG( TDialog():classH, "Test", { || Test() }, HB_OO_MSG_INLINE )
    #endif

    DEFINE DIALOG oDlg

    @ 1, 1 BUTTON "Test";
           ACTION oDlg:Test( "Hello" )

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL


STATIC FUNCTION TEST()

    ? "Hello"

    RETURN NIL