On 04/16/2016 10:53 AM, Jeremiah Breeden wrote:
> User_Data.Window.Close is just for child windows that are launched according
> to the comments in the Gnoga code base. Close_Connection does close the
> connection, but it doesn't push the HTML_On_Close and you do still get some of
> the swapping still (though only like 2 swaps now...not endless). I haven't
> found a very clean or reliable way to close a connection via user input in
> multi-connect yet. Maybe someone else knows a good way?
I do something similar:
procedure On_Quit (Object : in out Gnoga.Gui.Base.Base_Type'Class) is
App : constant App_Ptr := App_Ptr (Object.Connection_Data);
View : Gnoga.Gui.View.View_Type;
begin -- On_Quit
App.View.Remove;
View.Create (Parent => App.Window.all);
View.Put_Line (Message => End_Message);
App.Window.Close;
App.Window.Close_Connection;
exception -- On_Quit
when E : others =>
Gnoga.Log (Message => "On_Quit: " & Ada.Exceptions.Exception_Information
(E) );
end On_Quit;
where End_Message is also passed to HTML_On_Close. Seems to work OK.
--
Jeff Carter
"I soiled my armor, I was so scared."
Monty Python & the Holy Grail
71
------------------------------------------------------------------------------
Find and fix application performance issues faster with Applications Manager
Applications Manager provides deep performance insights into multiple tiers of
your business applications. It resolves application problems quickly and
reduces your MTTR. Get your free trial!
https://ad.doubleclick.net/ddm/clk/302982198;130105516;z
_______________________________________________
Gnoga-list mailing list
Gnoga-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gnoga-list
