Hi everybody,
Try to reproduce the following problem: open several forms, type something and then go to the menu and try to close the application using Exit. On the question: Do you want to save changes? Answer Cancel. Then go to any other menu item. You'll get the error goAPP is not the object and the only way out is to kill the application.
Here is a quick and simple fix:
local lnYesNo
store 0 to lnYesNo
if vartype(m.goApp) = "O"
if m.goApp.lDebugMode and !m.goApp.lDebugDisableAppQuit
lnYesNo = MsgSvc("quitapp")
if m.lnYesNo = IDYES
goApp.onShutdown()
else
return
endif
else
goApp.onShutdown()
endif
else
clear all
endif
Thanks in advance.
If it's not broken, fix it until it is.
My Blog