Nuevo bug: IsKindOf

Nuevo bug: IsKindOf

Postby MOISES » Mon Jan 20, 2020 5:30 pm

Hola:

En la versión 14.12, este código funcionaba perfectamente:

Code: Select all  Expand view  RUN
nGet = AScan( oFld:aDialogs[ 1 ]:aControls, {| oControl | oControl:IsKindOf( "TGET" ) } )


Ahora, arroja el siguiente error:

Event description: Problem BASE/1004 No existe el método: ISKINDOF
Args:
[ 1] = U
[ 2] = C TMULTIGET


Gracias.
Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
 
Posts: 838
Joined: Wed Aug 22, 2007 10:09 am

Re: Nuevo bug: IsKindOf

Postby MOISES » Mon Jan 20, 2020 5:47 pm

El problema está en source\xbrowse.prg

static function EditGetkeyDown( Self, nKey )

local lMultiGet := ::oEditGet:IsKindOf( "TMULTIGET" )
Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
 
Posts: 838
Joined: Wed Aug 22, 2007 10:09 am

Re: Nuevo bug: IsKindOf

Postby Antonio Linares » Mon Jan 20, 2020 5:54 pm

Moisés,

vamos a revisarlo, gracias!
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42149
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Nuevo bug: IsKindOf

Postby MOISES » Wed Jan 22, 2020 6:59 am

Hola Antonio:

¿Me puedes decir algo por favor? Estamos parados.

Muchas gracias.
Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
 
Posts: 838
Joined: Wed Aug 22, 2007 10:09 am

Re: Nuevo bug: IsKindOf

Postby Antonio Linares » Wed Jan 22, 2020 9:21 am

Moisés,

Modifica el código asi y pruébalo por favor:

nGet = AScan( oFld:aDialogs[ 1 ]:aControls, {| oControl | If( oControl != nil, oControl:IsKindOf( "TGET" ), .F. ) } )
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42149
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Nuevo bug: IsKindOf

Postby MOISES » Wed Jan 22, 2020 9:53 am

Antonio,

El problema está en bKeyDown de xBrowse.

El error se produce en source\xbrowse.prg

static function EditGetkeyDown( Self, nKey )

Code: Select all  Expand view  RUN
local lMultiGet := ::oEditGet:IsKindOf( "TMULTIGET" )


No en el nGet = AScan.

Tengo una función que llamo en oBrowse:bKeyDown :={ | nKey | myfunction() }, y falla al evaluar ::oEditGet:IsKindOf( "TMULTIGET" )[/code]

Muchas gracias.
Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
 
Posts: 838
Joined: Wed Aug 22, 2007 10:09 am

Re: Nuevo bug: IsKindOf

Postby Antonio Linares » Wed Jan 22, 2020 3:54 pm

Moisés,

Puedes proporcionar un ejemplo pequeño y completo que reproduzca el error ?

gracias
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42149
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 21 guests