m***@mbsoftwaresolutions.com
2017-12-29 16:31:16 UTC
I wanted to share mine with you. I'm sure it's stuff I've collected
from here from Ted and others over the years. After debugging and
clicking "Fix", I often would encounter some bizarro VFP bug whereby my
IDE would freeze. I added code into my cleanup routine to close out the
debugger window and that saved me so much frustration over the years.
ON ERROR
ON SHUTDOWN
SQLDISCONNECT(0)
SET SYSMENU TO DEFAULT
CLEAR ALL
CLEAR RESOURCES
_screen.Caption = VERSION(4) + " Development (" + CURDIR() + ")"
_screen.Picture = ""
DEFINE BAR 8 OF _MTOOLS PROMPT "\-"
DEFINE BAR 9 OF _MTOOLS PROMPT "Force quit"
ON SELECTION BAR 9 OF _MTOOLS do c:\dev\progs\quitfox.prg
REMOVEPROPERTY(_screen,'oTables') && mjb 02-21-15
SET PROCEDURE TO
MODIFY PROJECT c:\dev\YourProject.pjx NOWAIT
CLEAR
IF WVISIBLE("Visual Foxpro Debugger") THEN
RELEASE WINDOWS "Visual Foxpro Debugger"
ENDIF
and my QuitFox.prg is simply this:
Declare ExitProcess in Win32API Long
ExitProcess(1)
Happy New Year! Still rocking the Fox after all these years yet!
--Mike
_______________________________________________
Post Messages to: ***@leafe.com
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: http://leafe.com/archives/byMID/profox/***@mbsoftwaresolutions.com
** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
from here from Ted and others over the years. After debugging and
clicking "Fix", I often would encounter some bizarro VFP bug whereby my
IDE would freeze. I added code into my cleanup routine to close out the
debugger window and that saved me so much frustration over the years.
ON ERROR
ON SHUTDOWN
SQLDISCONNECT(0)
SET SYSMENU TO DEFAULT
CLEAR ALL
CLEAR RESOURCES
_screen.Caption = VERSION(4) + " Development (" + CURDIR() + ")"
_screen.Picture = ""
DEFINE BAR 8 OF _MTOOLS PROMPT "\-"
DEFINE BAR 9 OF _MTOOLS PROMPT "Force quit"
ON SELECTION BAR 9 OF _MTOOLS do c:\dev\progs\quitfox.prg
REMOVEPROPERTY(_screen,'oTables') && mjb 02-21-15
SET PROCEDURE TO
MODIFY PROJECT c:\dev\YourProject.pjx NOWAIT
CLEAR
IF WVISIBLE("Visual Foxpro Debugger") THEN
RELEASE WINDOWS "Visual Foxpro Debugger"
ENDIF
and my QuitFox.prg is simply this:
Declare ExitProcess in Win32API Long
ExitProcess(1)
Happy New Year! Still rocking the Fox after all these years yet!
--Mike
_______________________________________________
Post Messages to: ***@leafe.com
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: http://leafe.com/archives/byMID/profox/***@mbsoftwaresolutions.com
** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.