Webview class into Resource Dialog?

[richard-service]

Hi
I saw FWH\sample use TWindow way, how to use WebView into Resource Dialog

[Antonio Linares]

Dear Richard,

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oWebView

   DEFINE DIALOG oDlg SIZE 500, 400

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( oWebView := TWebView():New(), oWebView:SetParent( oDlg ), oWebView:Navigate( "http://www.google.com" ), .T. )

return nil

[richard-service]

Dear Richard,

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oWebView

   DEFINE DIALOG oDlg SIZE 500, 400

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( oWebView := TWebView():New(), oWebView:SetParent( oDlg ), oWebView:Navigate( "http://www.google.com" ), .T. )

return nil

Dear Antonio,

Thanks for your help.

I open my Main Window and call TestWebview() function below:

Code: Select all  Expand view

FUNCTION TestWebView()

LOCAL oDlg, oWebView

      DEFINE DIALOG oDlg RESOURCE "TestWebView"
     
      ACTIVATE DIALOG oDlg CENTER ;
               ON INIT ( oWebView := TWebView():New(), oWebView:SetParent( oDlg ), oWebView:Navigate( "http://www.google.com" ) , .T. )
                     
return nil
 

I found My Main Windows small ( I think my laptop 4K screen ), but I close Dialog, Main Window close together.

[Antonio Linares]

Dear Richard,

Yes, I just confirmed what you said

No idea why this is happening, sorry

[Antonio Linares]

It seems as WebView is closing the whole app

I don't know how we can avoid this behavior.

[Antonio Linares]

In this example, we can check that when the dialog that holds the WebView closes, it closes the main Window but the app properly exits:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd

   ACTIVATE WINDOW oWnd ;
      ON CLICK Test()

   MsgInfo( "ok" )

return nil  

function Test()

   local oDlg, oWebView

   DEFINE DIALOG oDlg SIZE 500, 400

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( oWebView := TWebView():New(), oWebView:SetParent( oDlg ), oWebView:Navigate( "http://www.google.com" ), .T. )

return nil