EXTEND CLASS FWMaria WITH METHOD insert_2

[goosfancito]

hOLA.
Quiero agregarle funcionalidad a la clase, al poner de ese modo no me deja,
como debería de hacerlo?

Code: Select all  Expand view

  EXTEND CLASS FWMaria WITH METHOD insert_2

gracias

[carlos vargas]

NO se puede.
en fwh han limitado esa funcionalidad.

[Enrico Maria Giordano]

This is a working sample:

Code: Select all  Expand view

#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

EMG

[carlos vargas]

Enrico, la clase nativa mysql/mariadb in fwh no hereda, es una limitacion de parte de los desarrolladores.
otras clases funciona bien.

[Enrico Maria Giordano]

Sorry, I didn't know that.

EMG