Changeset da6cdaa in tol

Timestamp:

Sep 11, 2009, 2:53:34 PM (17 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

627cedd

Parents:

cd77422

Message:

CheckTOLRelease special message for advanced versions

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@1364 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/stdlib/general/grammars/_real.tol (modified) (3 diffs)

tol/stdlib/general/grammars/_real.tol

@@ -1077 +1077 @@
                          "La última versión de desarrollo de TOL para windows es ")+
                          lastDevelopmWin;
-        Text unkMsg = I2("You are using a too old, too new or unknown TOL "
-                         "version ",
-                         "Está usando una versión demasiado vieja, "
-                         "demasiado nueva, o desconocida de TOL ")+Version+
+        Text unkMsg = I2("You are using a too old or unknown TOL version ",
+                         "Está usando una versión demasiado vieja "
+                         "o desconocida de TOL ")+Version+
                          "\n"+ostMsg+
                          "\n"+ofcMsg+
@@ -1095 +1094 @@
         Text updMsg = I2("TOL is updated.",
                          "TOL está actualizado.");
+        Text advMsg = I2("CAUTION: You are using an advanced TOL version ",
+                         "CUIDADO: Está usando una versión avanzada de TOL ")+Version+".";
         Text last = Case
         (
@@ -1105 +1106 @@
         ( 
           last == Version, { WriteLn(msg:=updMsg    ), 0},
-          last >  Version, { WriteLn(msg:=obsMsg,"W"), 1},
-          last <  Version, { WriteLn(msg:=unkMsg,"W"), 2}
+          last <  Version, { WriteLn(msg:=advMsg,"W"), 0},
+          last >  Version, { WriteLn(msg:=unkMsg,"W"), 2}
         )
       });