Fix infinite loop at the end of test_sglib.adb

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

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;