diff --git a/README.md b/README.md index 1d2af6d69e0c8d2f35ca800ae756b384872714c8..c82b11618eb7c10ff2ec1192530557d341a231d0 100644 --- a/README.md +++ b/README.md @@ -15,6 +15,7 @@ git clone https://githepia.hesge.ch/iti_logiciel_public/ada_sglib.git /home/monU Compilation de la librairie (ignorer les 'warning') ``` +cd /home/monUsername/ada_sglib gcc -c Xdraw.c gnatmake -c sglib.adb ar rc libSglib.a *.o diff --git a/example/test_sglib.adb b/example/test_sglib.adb index 8757b7d3c1bde79daff2792bca7cf56a1ce119b5..90ca4f7d86f381c8376d0861ab487cdb28e83166 100644 --- a/example/test_sglib.adb +++ b/example/test_sglib.adb @@ -2,7 +2,6 @@ with Sglib; use Sglib; -- DĂ©finition des paquetages utilises procedure TEST_SGLIB is -- Procedure principale dessinant textes et figures: - A : Integer; begin -- Initialisation de la fenetre X: INITX(100,100,400,400); @@ -68,7 +67,7 @@ begin end loop ; -- Attente infinie: loop - A:=A+1; + Null; end loop ; -- -- Fermeture de la fenĂȘtre X: --CLOSEX;