Changeset 325ee5e in tol for tolbase/lib/toltk/tolinspe.tcl

Timestamp:

Nov 3, 2010, 2:59:06 PM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

30b75c68

Parents:

b1801b8

Message:

closes #999, $ht_tree entry children is not working as expected. In order to fix this bug the full list of children is returned and then the requested childrend is selected.

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

File:

• tolbase/lib/toltk/tolinspe.tcl (modified) (3 diffs)

tolbase/lib/toltk/tolinspe.tcl

@@ -849 +849 @@
   variable ht_tree
 
+  #puts "::TolInspector::getPackageReference $treePath"
   catch {
     set typeContainer "NameBlock"
@@ -855 +856 @@
     #puts "path,2 = [ lindex $treePath 2 ]"
     #puts "order = $order"
-    set idx [ $ht_tree entry children "root-packages" $order $order ]
+    set idx [lindex [ $ht_tree entry children "root-packages"] $order]
     set nameContainer [ $ht_tree entry cget $idx -label ]
     #puts "en root-package:"
     #puts "\torder=$order"
     #puts "\tidx=$idx"
-    #puts "\nameContainer=$nameContainer"
+    #puts "\tnameContainer=$nameContainer"
     set container [ list $typeContainer $nameContainer ]
     if { [ llength $treePath ] > 3 } {
@@ -873 +874 @@
   } msg
   #puts "::TolInspector::getPackageReference: $msg"
+  #puts "::TolInspector::getPackageReference: [ list $container $tolindex ]"
   return [ list $container $tolindex ]
 }