Changeset 5d2c2c7 in tol

Timestamp:

Jun 17, 2010, 3:03:13 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

f3689b1

Parents:

8bb6286

Message:

#Refs #919
El NameBlock TolConfigManager se encarga de albergar las opciones de configuración en el mimebro Config así como de su almacenamiento persistente en un fichero dependiente de la versión de TOL, mediante los métodos LoadConfig y SaveConfig. La primera vez que se ejecuta TOL crea el archivo con las opciones por defecto.

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

Location:

tol/stdlib

Files:

• TolConfigManager/TolConfigManager.tol (added)
• TolConfigManager/default.tol (added)
• TolConfigManager/methods.tol (added)
• _init_stdlib.tol (modified) (2 diffs)
• gui/tcl/_tclutils.tol (modified) (1 diff)

tol/stdlib/_init_stdlib.tol

@@ -14 +14 @@
 //
 //////////////////////////////////////////////////////////////////////////////
+
+Set Include("TolConfigManager/TolConfigManager.tol");
 
 //The name of the TOL executable
@@ -124 +126 @@
 //Checks TOL release every day to detect obsolete versions
 //////////////////////////////////////////////////////////////////////////////
-Real CheckTOLReleaseIsUpdated = StdLib::CheckTOLRelease(1);
+Real CheckTOLReleaseIsUpdated = If(
+TolConfigManager::Config::Upgrading::TolVersion::CheckAllowed,
+{
+  StdLib::CheckTOLRelease(
+    TolConfigManager::Config::Upgrading::TolVersion::MaxDaysOfDelay
+  )
+},
+{
+  ?
+});
 

tol/stdlib/gui/tcl/_tclutils.tol

@@ -386 +386 @@
     },
     {
-      Real TolPackage::Client::Upgrade.AllInAll(1);
+      Real If(TolConfigManager::Config::Upgrading::TolPackage::LocalOnly,
+      {
+        0
+      },
+      { 
+        TolPackage::Client::Upgrade.AllInAll(
+          TolConfigManager::Config::Upgrading::TolPackage::CaducityInMinutes)
+      });
       WriteLn(I2("Checking if TOL is updated.",
                  "Comprobando si TOL está actualizado."));