FiveTech Support Forums

#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

oWnd:End()

#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