Error since upgrade

[Jeff Barnes]

Antonio,

This was my original QuitApp() code

Code: Select all  Expand view  RUN

function quitapp()
      dbcloseall()
      freelibrary( hBorland )
      set resources to
      clear memory
      ResAllFree()
      if ! empty( oMainWnd )
         oMainWnd:end()
      endif
      Syswait(.01)
      quit
return .f.


By removing:

Code: Select all  Expand view  RUN

     if ! empty( oMainWnd )
        oMainWnd:end()
     endif


I no longer get the error.

Any idea why the above would cause the error ??

Thans
Jeff

[Antonio Linares]

Jeff,

The method End() releases several GDI objects, though they are also released automatically by the system when the app is finished.