Hi,
In Gnoga.Client.Storage, the
procedure Execute (Storage : in out Storage_Type'Class; Method : in
String)
then
procedure Set (Storage : in out Storage_Type; Name, Value : String)
can have the "in out" removed. It would solve nasty warnings such as:
"Local" modified by call, but value never referenced
in the last instruction of
procedure Save_local_settings_data (App : in out Game_App_Data) is
Local : Local_Storage_Type := Local_Storage (App.Main_Window.all);
begin
Local.Set ("Player_code", To_String (App.playing.player_code));
Local.Set ("Pasta_sounds", Boolean'Image (App.playing.sound));
end Save_local_settings_data;
Cheers
Gautier
------------------------------------------------------------------------------
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
