Here is a version of storage.adb, a little more verbose, less GNAT
warnings, and variable "Storage" renamed as "Local" (less confusing
name); this doesn't solve the intervertion issue.
------------------------------
7d6
< with Gnoga.Gui.Element.Multimedia;
35c34
< App : App_Access := App_Access (Object.Connection_Data);
---
> App : constant App_Access := App_Access (Object.Connection_Data);
48c47
< App : App_Access := App_Access (Object.Connection_Data);
---
> App : constant App_Access := App_Access (Object.Connection_Data);
50c49
< Gnoga.Log ("On Storage");
---
> Gnoga.Log ("On Storage: storage data was changed in another
session.");
52c51
< (To_String (Storage_Event.Name) & "=" &
---
> (To_String (Storage_Event.Name) & " was =" &
54c53
< " now = " & To_String (Storage_Event.New_Value));
---
> ", is now = " & To_String (Storage_Event.New_Value));
67c66,67
< App : access App_Data := new App_Data;
---
> pragma Unreferenced (Connection);
> App : constant access App_Data := new App_Data;
69c69
< Storage : Gnoga.Client.Storage.Local_Storage_Type :=
---
> Local : Gnoga.Client.Storage.Local_Storage_Type :=
87,88c87,88
< View.Put_Line ("Last access was at " & Storage.Get ("Last_View"));
< Storage.Set
---
> View.Put_Line ("Last access was at " & Local.Get ("Last_View"));
> Local.Set
102,105c102,105
< Gnoga.Log ("Local len = " & Storage.Length'Img);
< Gnoga.Log ("Session 1 = " & Session.Key (1));
< Gnoga.Log ("Local 1 = " & Storage.Key (1));
< Gnoga.Log ("END");
---
> Gnoga.Log ("Local len = " & Local.Length'Img);
> Gnoga.Log ("Session 1 = " & Session.Key (1) & ", Value = " &
Session.Get (Session.Key (1)));
> Gnoga.Log ("Local 1 = " & Local.Key (1) & ", Value = " &
Session.Get (Local.Key (1)));
> Gnoga.Log ("END On_Connect");
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
Gnoga-list mailing list
Gnoga-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gnoga-list
