Crash under Windows

[Karl Grob]

I changed the App.Close-Event to:

-----------------
  while WindowCount > 0
    Window(WindowCount).Close
  wend
  
  pufDB.Close
  pufDB = NIL
  
  try
    Valentina.ShutDownClient
    Valentina.ShutDown
  catch err
    myErrorhandler(err, "Close:Shutdown")
  end try
  
Exception err
  myErrorhandler(err, "App:Close")
------------------

It still works on Mac and ends with a error in Windows.

But thanks anyway
Karl


Am 04.10.2013 um 11:20 schrieb François Van Lerberghe 	<frvanlerberghe at gmail.com>:

> 1) Are you sure you are not using pufDB in the Window(WindowCount).Close
> event ?
> 2) I should write after "pufDB.Close"
>    pufDB = nil
> 
> François Van Lerberghe
> Rue Thier Monty, 15 A
> 4570 Marchin
> Belgium
> 
> le 4/10/13 9:25, Karl Grob <kgrob at mus.ch> a écrit :
> 
>> This is App.close:
>> 
>>  if pufDB <> NIL then
>>  pufDB.Flush
>>  pufDB.Close
>> end if
>> 'try
>> 'Valentina.ShutDownClient
>> 'catch err
>> 'myErrorhandler(err, "Close:Shutdownclient")
>> 'end try
>> try
>>  Valentina.ShutDown
>> catch err
>>  myErrorhandler(err, "Close:Shutdown")
>> end try
>> 
>> while WindowCount > 0
>>  Window(WindowCount).Close
>> wend
> 
> _______________________________________________
> Valentina mailing list
> Valentina at lists.macserve.net
> http://lists.macserve.net/mailman/listinfo/valentina
>