Hi,
Code in Setup.prg that is executed on Exit from the App has the following lines:
*-----------------------------------------------
*-- Cleanup after the application is terminated.
*-----------------------------------------------
_screen.MousePointer = MOUSE_DEFAULT
SET PATH TO ( lcOldPath )
RELEASE ALL EXTENDED
CLEAR ALL
IF INLIST(RIGHT(SYS(16,1), 3), "APP", "EXE")
QUIT
ENDIF
The Quit takes one out of the FoxPro completely. I suppose it may be a good thing in the case of an installed App, but in the debug mode, it should probably return the programmer to the VFP so he/she can add a few more bugs to the soup. :-)
Of course, one can always "comment" the 3 lines.
Regards
Javed
Author: Charles T. Blankenship
Posted: 1998-12-11 08:29:54 Link
Hi Javed:
When I am debugging, I usually start the application off using DO STARTCB and DO MAIN. As a result, the IF statement in question prevents the QUIT from executing and I remain in VFP ready for more debugging. Do you debug by typing DO <AppName>.APP or <AppName>.EXE?
Best,
CT
<I><FONT COLOR="#663300">Hi,
Code in Setup.prg that is executed on Exit from the App has the following lines:
*-----------------------------------------------
*-- Cleanup after the application is terminated.
*-----------------------------------------------
_screen.MousePointer = MOUSE_DEFAULT
SET PATH TO ( lcOldPath )
RELEASE ALL EXTENDED
CLEAR ALL
IF INLIST(RIGHT(SYS(16,1), 3), "APP", "EXE")
QUIT
ENDIF
The Quit takes one out of the FoxPro completely. I suppose it may be a good thing in the case of an installed App, but in the debug mode, it should probably return the programmer to the VFP so he/she can add a few more bugs to the soup. :-)
Of course, one can always "comment" the 3 lines.
Regards
Javed</FONT></I>
Flash Creative Management, Inc. (FLASH)
ctb@flashcreative.com
tomandanna@erols.com