FiveTech Software tech support forums

Hi Antonio

Have started trying to port an actual application.

It seems that neither oWnd:End() nor oDlg:End() work as anticipated.

When I compile the code below Selecting File Exit from the menu does nothing except stop Help About from working, and if I go Help About and hit the Exit button once nothing happens - hit it a second time and the application exits altogether. But the "X" buttons at top right of both the Help About dialog and the main Window seem to work fine. It looks as if oWnd:End() and oDlg:End() don't work properly or at least as I expected and how they do under FiveWin.

Any solutions? Or have I done something wrong? or misunderstanding something?

Here is my code:

//PatMatch.prg




#include "FiveLinux.ch"

// #include "objects.ch"



#define idProgName "File Match Software"

#define idVersion "0.1.1"

#define idCopName "Finalysis Pty. ltd."

#define idCopDate "2007"

#define idBldDate "25 July 2007"



STATIC oWnd



FUNCTION Main()



// oChecker := CHECKER():Create()

DEFINE WINDOW oWnd TITLE "File Match Software - (c) Finalysis 2007" ;

MENU BldInMenu()

ACTIVATE WINDOW oWnd MAXIMIZED



RETURN



FUNCTION BldInMenu()



LOCAL lomMenu



MENU lomMenu

MENUITEM "&File"

MENU

// MENUITEM "&Match" ACTION oChecker:ShowProDlg()
MENUITEM "&Exit" ACTION Exit()

ENDMENU

MENUITEM "&Help"

MENU

MENUITEM "&About" ACTION VerInfo()

ENDMENU

ENDMENU


RETURN lomMenu



FUNCTION VerInfo()



LOCAL lodAbout



DEFINE DIALOG lodAbout TITLE "About Patient Match Software"

@ 2, 2 SAY ( idProgName + " - Version: " + idVersion ) OF lodAbout

@ 4, 2 SAY ( "Build Date: " + idBldDate ) OF lodAbout

@ 6, 2 SAY ( "(c) " + idCopName + " " + idCopDate ) OF lodAbout

@ 8, 2 BUTTON "OK" ACTION ( lodAbout:End() ) ;

OF lodAbout

ACTIVATE DIALOG lodAbout CENTERED



RETURN

Function Exit()

CLS
QUIT

RETURN

Doug,

We email you new libraries with some changes and also a modified version of your PRG. With these new files is working fine