Changeset bc68cb2 in tol

Timestamp:

Feb 22, 2012, 7:19:28 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

6a85a9c

Parents:

0373a3c

Message:

refs #1438, evito el error en el spool, todavia no se cierra el ticket

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

File:

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

tolbase/lib/toltk/tolinspe.tcl

@@ -2660 +2660 @@
   array unset options_selected
   
-  puts "::TolInspector::PostTree $x $y" 
+  #puts "::TolInspector::PostTree $x $y" 
   foreach it [array names data_menu] {
     $data_menu($it) delete 0 end
@@ -2707 +2707 @@
       #puts "2objName: $objName"   
       if { $InRootPool } {
-        #puts "es InRootPool"        
+        #puts "es InRootPool $item_id"        
         set itemid $item_id
-        set object $data(pool,variables,$itemid)
+        #set object $data(pool,variables,$itemid)
+        set object $data(pool,reference,$node_type)
       } else {
         #puts "NO InRootPool"
@@ -2724 +2725 @@
 #Tolcon_Trace "object=$object, label=$objName" {red}
 #Tolcon_Trace "***********************************" {red}
+      
+      #
+      # TICKET: #1438
+      # Por que se pregunta aqui por los objetos de consola?
+      #
       set stackList [::tol::console stack list]
       #puts "stackList: $stackList"