Hey!

My disconnection code:

 procedure On_Disconnect (Object : in out Gnoga.Gui.Base.Base_Type'Class) is
      App_Skel : App_Skeleton_Ptr := App_Skeleton_Ptr
(Object.Connection_Data);
   begin
      DB.Remove (App_Skel.User_Email);
   end On_Disconnect;

Trying to bind On_Disconnect() to Main_Window.On_Destroy_Handler did not
work when killing the browser because at that point App_Skel is null.

What worked for me is to bind On_Disconnect() to
Main_Window.On_Before_Unload_Handler.

Hope it will help someone. Please, if I am doing something wrong let me
know.

Thx,

Olivier
------------------------------------------------------------------------------
_______________________________________________
Gnoga-list mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gnoga-list

Reply via email to