Correction crash gestion exceptions input solutions

NilsKrattinger · Jan 26, 2019 · 68933b2 · 68933b2
1 parent 852c810
commit 68933b2
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/p_vue_graph.adb b/p_vue_graph.adb
@@ -468,20 +468,20 @@ package body p_vue_graph is
     elsif elem = "aller" or elem = "ChampNum" then -- saut à une solution via son numéro
       begin
         combinaisonVoulue := Integer'value(ConsulterContenu(fenetre, "ChampNum"));
+        combinaisonOld := combinaisonAct;
+        if combinaisonVoulue > nbCombinaisons or combinaisonVoulue < 1 then
+          actualisationInfos(fenetre, combinaisonAct);
+          appuiBoutonSolution(attendreBouton(fenetre), fenetre);
+        else
+          combinaisonAct := combinaisonVoulue;
+          actualisationInfos(fenetre, combinaisonOld);
+          appuiBoutonSolution(attendreBouton(fenetre), fenetre);
+        end if;
       exception
         when others =>
           actualisationInfos(fenetre, combinaisonAct);
           appuiBoutonSolution(attendreBouton(fenetre), fenetre);
       end;
-      combinaisonOld := combinaisonAct;
-      if combinaisonVoulue > nbCombinaisons or combinaisonVoulue < 1 then
-        actualisationInfos(fenetre, combinaisonAct);
-        appuiBoutonSolution(attendreBouton(fenetre), fenetre);
-      else
-        combinaisonAct := combinaisonVoulue;
-        actualisationInfos(fenetre, combinaisonOld);
-        appuiBoutonSolution(attendreBouton(fenetre), fenetre);
-      end if;
     else
       appuiBoutonSolution(attendreBouton(fenetre), fenetre);
     end if;