Hello, I've added a destroy handler to multiuser.adb test program:
multiuser.adb
Description: Binary data
But I've got the following error with GNAT GPL 2016:
gprbuild -ws -c -f -u -P/gnoga-code/test/test.gpr
-XLIB_COMPONENTS_BUILD=default -XPRJ_TARGET=OSX -XPRJ_BUILD=Debug multiuser.adb
gcc -c -gnaty3abcefhiklM120nOprsStu -gnat2012 -gnatW8 -g -gnata -gnatq -gnatQ
-gnatw.eH.YD -gnatVa -gnato -fstack-check -gnatf -gnateE -gnateF
-gnatec=/gnoga-code/pragma_debug.adc -fno-common multiuser.adb
multiuser.adb:64:07: warning: "App" is not modified, could be declared constant
multiuser.adb:81:07: warning: "App" is not modified, could be declared constant
multiuser.adb:94:07: warning: "App" is not modified, could be declared constant
multiuser.adb:103:07: warning: "App" is not modified, could be declared constant
multiuser.adb:109:07: warning: variable "App" is not referenced
multiuser.adb:119:07: warning: "App" is not modified, could be declared constant
multiuser.adb:193:43: no candidate interpretations match the actuals:
multiuser.adb:193:43: missing argument for parameter "Object" in call to
"On_Destroy" declared at line 115
multiuser.adb:193:43: missing argument for parameter "Object" in call to
"On_Destroy" (inherited) at gnoga-gui-element.ads:51
multiuser.adb:193:43: context requires function call, found procedure name
multiuser.adb:193:53: ==> in call to inherited operation "On_Destroy_Handler"
at gnoga-gui-window.ads:56
multiuser.adb:218:07: warning: "D" modified by call, but value never referenced
gprbuild: *** compilation phase failed
[2017-05-14 10:21:43] process exited with status 4, elapsed time: 00.69s
If I change ligne 193 to:
App.Main_Window.On_Destroy_Handler
(Multiuser.On_Destroy'Unrestricted_Access);
No more errors.
Why these errors not so much clear are issued?
Why local procedure On_Destroy isn't visible?
Thanks, Pascal.
http://blady.pagesperso-orange.fr
------------------------------------------------------------------------------ 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
