Changeset 455a6d5 in tol for tolbase

Timestamp:

Jan 11, 2012, 10:17:10 AM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

35458ba

Parents:

0db54a1

Message:

refs #1191, se implementa UpdateAll y UpgradeAll

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

Location:

tolbase/lib/toltk

Files:

• tolpkg.tcl (modified) (1 diff)
• tolpkg_gui.tcl (modified) (10 diffs)

tolbase/lib/toltk/tolpkg.tcl

@@ -221 +221 @@
     Real TolPackage::Client::RemoteInstall( "%r", "%p", 1 )
   } ]
-  set result [ toltcl::eval $tolexpr ]
+  if { [ catch  { toltcl::eval $tolexpr } result ] } {
+    set result 0
+  }
   if { [ string is boolean $result ] && $result } {
     DeleteBackup $pkg
   } else {
-    RestoreBackup $pkg
+    RestoreBackup $pkg 1
   }
   return $result

tolbase/lib/toltk/tolpkg_gui.tcl

@@ -681 +681 @@
   set nodesInfo($treeParents($p),type) pkg
   set nodesInfo($treeParents($p),status) $nodeStatus
+  lappend nodesInfo($nodeStatus) $treeParents($p)
 }
 
@@ -762 +763 @@
     set nodesInfo($nid,type) pkgver
     set nodesInfo($nid,status) $nodeStatus
+    lappend nodesInfo($nodeStatus) $nid
     foreach {{} d} $pkg(_.autodoc.dependencies) {
       set _nid [ $T insert [ list [ list back_to_ou_16 $d ] ] \
@@ -788 +790 @@
       -postcommand [ list ::TolPkgGUI::PostContextMenu $t $t.cmenu ]
   $t configure -contextmenu $t.cmenu
+}
+
+proc ::TolPkgGUI::EntryState { listName } {
+  upvar $listName v
+
+  if { [ info exists v ] && [ llength $v ] } {
+    return "normal"
+  } else {
+    return "disabled"
+  }
 }
 
@@ -904 +916 @@
   }
   $w add command -label [ mc "Update all" ] \
-      -command "::TolPkgGUI::UpdatePackageVersion"
+      -command "::TolPkgGUI::UpdatePackageVersion" \
+      -state [ EntryState nodesInfo(update) ]
   # upgrade list
   if { [ llength $listUPG ] == 1 } {
@@ -915 +928 @@
   }
   $w add command -label [ mc "Upgrade all" ] \
-      -command "::TolPkgGUI::UpgradePackages"
+      -command "::TolPkgGUI::UpgradePackages" \
+      -state [ EntryState nodesInfo(upgrade) ]
+
   # export options
   $w add separator
@@ -1300 +1315 @@
 proc ::TolPkgGUI::UpgradePackages { { pkgs {} } } {
   variable installData
+  variable nodesInfo
+  variable tree
 
   if { ![ CheckConnectionConfig ] } {
@@ -1312 +1329 @@
   } else {
     # upgrade all, look for the list
-    Unimplemented "Upgrade all packages"
-    return
+    if { [ info exists nodesInfo(upgrade) ] } {
+      foreach nid $nodesInfo(upgrade) {
+        set p [ $tree item text $nid 0 ]
+        lappend upgradeList $p
+        set installData($p) $nid
+      }
+    } else {
+      return
+    }
   }
   DlgProcess $upgradeList -title [ mc "Upgrade packages" ] \
@@ -1323 +1347 @@
 proc ::TolPkgGUI::UpdatePackageVersion { { pkgs {} } } {
   variable installData
+  variable nodesInfo
+  variable tree
 
   puts "UpdatePackageVersion: $pkgs"
@@ -1330 +1356 @@
   
   array unset installData
+  set updateList {}
   if { [ llength $pkgs ] } {
     foreach p $pkgs {
@@ -1336 +1363 @@
     }
   } else {
-    # upgrade all, look for the list
-    Unimplemented "Update all packages"
-    return
+    # update all, look for the list
+    if { [ info exists nodesInfo(update) ] } {
+      foreach nid $nodesInfo(update) {
+        set p [ $tree item text $nid 0 ]
+        lappend updateList $p
+        set installData($p) $nid
+      }
+    } else {
+      return
+    }
   }
   DlgProcess $updateList -title [ mc "Update packages" ] \