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
