Changeset 2c0158d in tol for tolbase/lib/toltk/tolpkg.tcl

Timestamp:

Feb 8, 2012, 2:29:02 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

72b4d96

Parents:

4c42e65

Message:

refs #1417, implementamos un metodo de wtree para facilitar la modificación/consulat de las columnas en items creados, el ícono del nodo de un paquete refleja el estado de sus hijos (paquetes con versión específica), se corrige un error cuando la ruta de instalación de los paquetes tiene espacio en el nombre

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

File:

• tolbase/lib/toltk/tolpkg.tcl (modified) (1 diff)

tolbase/lib/toltk/tolpkg.tcl

@@ -139 +139 @@
 proc ::TolPkg::GetLocalPackages { } {
   set localRoot [ file normalize \
-                      [ toltcl::eval { Text TolPackage::_.localRoot } ] ]
+                      [ lindex [ toltcl::eval { Text TolPackage::_.localRoot } ] 0 ] ]
   set clientRoot [ file join $localRoot Client ]
-  set dirs [ glob -tail -dir $clientRoot -types {d r} * ]
+  set dirs [ glob -nocomplain -tail -dir $clientRoot -types {d r} * ]
   set pkgsInfo {}
   foreach d $dirs {