Exit application from oninit window.

[Horizon]

Any advice?

Code: Select all  Expand view

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()
   
    DEFINE oFont ...........

   DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;
      TITLE "Building a DialogBox"

   ACTIVATE WINDOW oWnd MAXIMIZED ON INIT Login(oWnd)

    oFont:End()
   
return nil

PROCEDURE Login(oWnd)

    IF <conditions>
            ... I want to quit program. Tried QUIT but APPCRASH is created.
    ENDIF

RETURN

Thanks,

[Enrico Maria Giordano]

Did you try

Code: Select all  Expand view

oWnd:End()

?

[Antonio Linares]

Hakan,

Please review FWH\samples\login.prg

We should not call QUIT from a FWH app

[Horizon]

Did you try

Code: Select all  Expand view

oWnd:End()

?

Tried. Aplication is ended but there is still Task Manager.

[Enrico Maria Giordano]

This sample works fine here:

Code: Select all  Expand view

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()
   
   DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;
      TITLE "Building a DialogBox"

   ACTIVATE WINDOW oWnd MAXIMIZED ON INIT oWnd:End()

return nil

EMG

[Horizon]

Hi,

You are right. I was using oWnd:End() in a function. I realized that I dont have RETURN on some conditions.

Solved.

Thank you.