_webview tiene un this.this. dentro de la clase

Posted on marzo 16, 2015

1



Buscando un error en el proyecto, me encontré por casualidad con una rutina que recomiendo corregir.

MODIFY CLASS _webbrowser3 OF “C:\Program Files (x86)\Microsoft Visual FoxPro 9\Gallery\_webview.vcx”

LPARAMETERS tcURL

LOCAL lcURL,lnLastSelect

lcURL=ALLTRIM(tcURL)

IF this.lRelease OR lcURL==this.cLastURL OR ;

            LOWER(lcURL)==LOWER(ALLTRIM(this.cBlankHTMLFile))

      RETURN

ENDIF

SET DATASESSION TO (this.oHost.DataSessionID)

lnLastSelect=SELECT()

IF NOT this.OpenVFPScript()

      SELECT (lnLastSelect)

      RETURN

ENDIF

SELECT vfpscript

SCAN ALL FOR BeforeNav AND URLCancel

      IF NOT EMPTY(URLMatch) AND NOT this.WildCardMatch(ALLTRIM(MLINE(URLMatch,1)),lcURL)

            LOOP

      ENDIF

      IF NOT EMPTY(URLEval) AND (TYPE(URLEval)#”L” OR NOT EVALUATE(URLEval))

            LOOP

      ENDIF

      this.cURL=this.this.cLastURL

      SELECT (lnLastSelect)

      RETURN .F.

ENDSCAN

SELECT (lnLastSelect)

 La negrita debería ser:

      this.cURL=this.cLastURL

Posted in: Foxpro