Changeset 1bf56f1 in tol for tolbase/lib/toltk

Timestamp:

Feb 10, 2012, 10:05:31 AM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

536b3c1

Parents:

9a1a65f

Message:

refs #1191, se sincroniza con los servidores al abrir la ventana y también después de cada operación que lo requiera.

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

File:

• tolbase/lib/toltk/tolpkg_gui.tcl (modified) (9 diffs)

tolbase/lib/toltk/tolpkg_gui.tcl

@@ -1104 +1104 @@
     -customgui ""
     -refreshtree 0
+    -syncservers 0
   }
   set DlgProcessData(-label) [ mc "You are about to process"]:
@@ -1274 +1275 @@
       -label [ mc "You are about to install"]: \
       -beforestart ::TolPkgGUI::Installing \
-      -cmditem "InstallThisPackage" -refreshtree 1
-  
+      -cmditem "InstallThisPackage" \
+      -syncservers 1
 }
 
@@ -1302 +1303 @@
   }
   DlgProcessStop
-  if { $DlgProcessData(-refreshtree) && $hasProcessed } {
-    after idle ::TolPkgGUI::RefreshTree
+  if { $hasProcessed } {
+    if { $DlgProcessData(-syncservers) } {
+      ::TolPkg::UpdateRepositoryInfo
+      set DlgProcessData(-refreshtree) 1
+    }
+    if { $DlgProcessData(-refreshtree) } {
+      after idle ::TolPkgGUI::RefreshTree
+    }
   }
 }
@@ -1351 +1358 @@
         -label [ mc "You are about to install zip"]: \
         -beforestart ::TolPkgGUI::InstallingZip \
-        -cmditem InstallThisZip -refreshtree 1
+        -cmditem InstallThisZip -syncservers 1
   }
 }
@@ -1398 +1405 @@
       -label [ mc "You are about to upgrade"]: \
       -beforestart ::TolPkgGUI::Upgrading \
-      -cmditem "InstallThisPackage" -refreshtree 1
+      -cmditem "InstallThisPackage" -syncservers 1
 }
 
@@ -1433 +1440 @@
       -label [ mc "You are about to update"]: \
       -beforestart ::TolPkgGUI::Updating \
-      -cmditem "InstallThisPackage" -refreshtree 1
+      -cmditem "InstallThisPackage" -syncservers 1
 }
 
@@ -1463 +1470 @@
       -label [ mc "You are about to remove"]: \
       -beforestart ::TolPkgGUI::Removing \
-      -cmditem "RemoveThisPackage" -refreshtree 1
+      -cmditem "RemoveThisPackage" -syncservers 1
 }
 
@@ -1533 +1540 @@
         -beforestart ::TolPkgGUI::Exporting \
         -customgui "CreateSelectDir" \
-        -cmditem "ExportThisPackage" -refreshtree 0
+        -cmditem "ExportThisPackage"
   }
 }
@@ -1659 +1666 @@
     wm state $win withdrawn
     CreateTree $win.tree
+    ::TolPkg::UpdateRepositoryInfo
     FillTreeInfo $win.tree
     wm state $win normal