Index: tolbase/lib/toltk/tolinspe__main.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe__main.tcl	(revision 606ed76162ee735af819e211d1984559d9779a4b)
+++ tolbase/lib/toltk/tolinspe__main.tcl	(revision ceea8662532abf48f87c3d04ea02b641ee128b5f)
@@ -261,7 +261,7 @@
   set img [::Bitmap::get Objects]
   #@ Se pone el style a mano, no sé la manera natural de hacer esto con wtree
-  $wt_tree item style set root [LiName] [$wt_tree column cget [LiName] -itemstyle]
-  $wt_tree item text root [LiName] [mc "Tol Objects"]
-  $wt_tree item image root [LiName] $img
+  $wt_tree item style set root Name [$wt_tree column cget Name -itemstyle]
+  $wt_tree item text root Name [mc "Tol Objects"]
+  $wt_tree item image root Name $img
 
   # creation of the node father "Grammars"
@@ -335,6 +335,6 @@
     -columns [::TolInspector::RNodeDef] ]
   # configuration of the tree of variables
-  $wt_vars column configure [RiGrammar] -visible no
-  $wt_vars column configure [RiReference] -visible no
+  $wt_vars column configure Grammar -visible no
+  $wt_vars column configure Reference -visible no
   $wt_vars column configure all -itembackground ""
   $wt_vars notify bind $wt_vars <Expand-before> "::TolInspector::OpenVariable %I"
@@ -351,6 +351,6 @@
     -columns [::TolInspector::RNodeDef] ]
   # configuration of the tree of functions
-  $wt_funcs column configure [RiGrammar] -visible no
-  $wt_funcs column configure [RiReference] -visible no
+  $wt_funcs column configure Grammar -visible no
+  $wt_funcs column configure Reference -visible no
   $wt_funcs column configure all -itembackground ""     
   $wt_funcs notify bind $wt_funcs <Selection> "::TolInspector::SelectItem $wt_funcs"      
Index: tolbase/lib/toltk/tolinspe__wtree1.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe__wtree1.tcl	(revision 606ed76162ee735af819e211d1984559d9779a4b)
+++ tolbase/lib/toltk/tolinspe__wtree1.tcl	(revision ceea8662532abf48f87c3d04ea02b641ee128b5f)
@@ -4,8 +4,8 @@
 #/////////////////////////////////////////////////////////////////////////////
   return [list \
-    [list {image text} -label Name] \
-    [list text -label Index] \
-    [list text -label Grammar] \
-    [list text -label Reference]
+    [list {image text} -label Name -tags Name] \
+    [list text -label Index -tags Index] \
+    [list text -label Grammar -tags Grammar] \
+    [list text -label Reference -tags Reference]
   ]
 }
@@ -22,44 +22,17 @@
 }
 
-proc ::TolInspector::LiName         { } { return 0 }
-proc ::TolInspector::LiIndex        { } { return 1 }
-proc ::TolInspector::LiGrammar      { } { return 2 }
-proc ::TolInspector::LiReference    { } { return 3 }
-
 #/////////////////////////////////////////////////////////////////////////////
 proc ::TolInspector::RNodeDef { } {
 #/////////////////////////////////////////////////////////////////////////////
   return [list \
-    [list text -label Index] \
-    [list text -label Grammar] \
-    [list {image text} -label Name] \
-    [list text -label Content] \
-    [list text -label Description] \
-    [list text -label Path] \
-    [list text -label Reference] \
+    [list text -label Index -tags Index] \
+    [list text -label Grammar -tags Grammar] \
+    [list {image text} -label Name -tags Name] \
+    [list text -label Content -tags Content] \
+    [list text -label Description -tags Description] \
+    [list text -label Path -tags Path] \
+    [list text -label Reference -tags Reference] \
   ]
 }
-
-#/////////////////////////////////////////////////////////////////////////////
-proc ::TolInspector::RNode {index grammar icon name content description path reference} {
-#/////////////////////////////////////////////////////////////////////////////
-  return [list \
-    [list $index] \
-    [list $grammar] \
-    [list $icon $name] \
-    [list $content] \
-    [list $description] \
-    [list $path] \
-    [list $reference] \
-  ]
-}
-
-proc ::TolInspector::RiIndex        { } { return 0 }
-proc ::TolInspector::RiGrammar      { } { return 1 }
-proc ::TolInspector::RiName         { } { return 2 }
-proc ::TolInspector::RiContent      { } { return 3 }
-proc ::TolInspector::RiDescription  { } { return 4 }
-proc ::TolInspector::RiPath         { } { return 5 }
-proc ::TolInspector::RiReference    { } { return 6 }
 
 #/////////////////////////////////////////////////////////////////////////////
@@ -191,27 +164,19 @@
   #? }
   
-  #@ ::TolInspector::RNode index grammar 
-  #@   icon name content description path reference
-  #@! set wt_row [::TolInspector::RNode $arguments(index) $grammar \
-    $icon_grammar $name $data3 $brief_desc $path $tolref]  
-  #@! set idx [$wt insert $wt_row -at child -relative root]
-  #@! Las líneas anteriores parecen lentas y se sustituyen por las siguientes:
+  #@ No se usa el método insert de wtree porque es más lento
   set idx [$wt item create -button 1 -open 0]
-  $wt item element configure $idx \
-    [RiIndex] eTXT -text $arguments(index) , \
-    [RiGrammar] eTXT -text $grammar , \
-    [RiName] eIMG -image $icon_grammar + eTXT -text $name , \
-    [RiContent] eTXT -text $data3 , \
-    [RiDescription] eTXT -text $brief_desc , \
-    [RiPath] eTXT -text $path , \
-    [RiReference] eTXT -text $tolref
+  $wt item image $idx Name $icon_grammar
+  $wt item text $idx Index $arguments(index) Grammar $grammar \
+    Name $name Content $data3 Description $brief_desc Path $path Reference $tolref
+  
   $wt item lastchild root $idx  
  
+  #@WTREE a mejorar allí
   $wt item element configure $idx \
-    [RiIndex] eTXT -fill $fcolor , \
-    [RiName] eTXT -fill $fcolor , \
-    [RiContent] eTXT -fill $fcolor , \
-    [RiDescription] eTXT -fill $fcolor , \
-    [RiPath] eTXT -fill $fcolor
+    Index eTXT -fill $fcolor , \
+    Name eTXT -fill $fcolor , \
+    Content eTXT -fill $fcolor , \
+    Description eTXT -fill $fcolor , \
+    Path eTXT -fill $fcolor    
 
   incr arguments(index)
@@ -264,5 +229,5 @@
   #@  + parent_node es usado por InsertSubset para saber dónde insertar
   set arguments(parent_node) $node
-  set tolReference [$wt_tree item text $node [LiReference]]
+  set tolReference [$wt_tree item text $node Reference]
   
   if { [llength $tolReference] == 1 } {
@@ -281,5 +246,5 @@
     #@  + parent_grammar es usado por InsertSubset para abrir o no un nodo
     #@  + parent_tolref es usado por InsertSubset para determinar tolref
-    set arguments(parent_grammar) [$wt_tree item text $node [LiGrammar]]
+    set arguments(parent_grammar) [$wt_tree item text $node Grammar]
     set arguments(parent_tolref) $tolReference
     ::tol::forallchild $tolReference ::TolInspector::InsertSubset
@@ -453,8 +418,8 @@
     #puts [list InsertSubset, indices {lindex $args 5} = $indices]
     
-#noaun set obj_ref [lappend [$wt_tree item text $parent_node [LiReference] $indices] ] 
+#noaun set obj_ref [lappend [$wt_tree item text $parent_node Reference $indices] ] 
 #noaun Tolcon_Trace "Inserto un nodo nuevo. $obj_ref"
     set index [lindex $indices end]
-    set tolRefe [eval list [$wt_tree item text $parent_node [LiReference]] $index]
+    set tolRefe [eval list [$wt_tree item text $parent_node Reference] $index]
     set wt_row [::TolInspector::LNode $index $grammar $icon $label $tolRefe]
 
@@ -466,5 +431,5 @@
 
     set idnew [ $wt_tree insert $wt_row -at end -relative $parent_node -button $has_button]
-    $wt_tree item element configure $idnew [LiName] eTXT -fill $fcolor
+    $wt_tree item element configure $idnew Name eTXT -fill $fcolor
   }
   } msg
@@ -491,5 +456,5 @@
   }
   
-  set tolReference [$wt_tree item text $node [LiReference]]
+  set tolReference [$wt_tree item text $node Reference]
   
   Busy
@@ -517,5 +482,5 @@
     #@ Argumentos pasados por atributo
     #@  + parent_grammar es usado por InsertItem para saber si es NameBlock
-    set arguments(parent_grammar) [$wt_tree item text $node [LiGrammar]]
+    set arguments(parent_grammar) [$wt_tree item text $node Grammar]
     SelectSet $tolReference
   }
@@ -660,5 +625,5 @@
   set selAnchor [$wt_tree selection get 0]
   
-  set grammar [$wt_tree item text $selAnchor [LiName] ]
+  set grammar [$wt_tree item text $selAnchor Name ]
   if { [string compare $grammar "Anything"] } {
     #@ Por aquí si no es Anything
@@ -758,14 +723,14 @@
   if { ![string length $node] } { return }
   set treeParent [$wt_tree selection get 0]
-  set treeParent_tolRef [$wt_tree item text $treeParent [LiReference]]
+  set treeParent_tolRef [$wt_tree item text $treeParent Reference]
   set treeNode -1
   if { [llength $treeParent_tolRef] > 1 } {
-    set grammar [$wt_vars item text $node [RiGrammar]]
+    set grammar [$wt_vars item text $node Grammar]
     if {$grammar eq "Set" || $grammar eq "NameBlock"} {
       $wt_tree item expand $treeParent
       #@ Se localiza el nodo seleccionado en el árbol (wt_tree)
-      set index [$wt_vars item text $node [RiIndex]]     
+      set index [$wt_vars item text $node Index]     
       foreach node_i [$wt_tree item children $treeParent] {
-        set index_i [$wt_tree item text $node_i [LiIndex]]
+        set index_i [$wt_tree item text $node_i Index]
         if { [string equal $index $index_i] } {
           set treeNode $node_i
@@ -814,9 +779,9 @@
     if { [string length $entry] } {
       # almost one entry of wt_* selected
-      set name   [$wt item text $entry [RiName]] ;# name of item     
-      set itemid [$wt item text $entry [RiIndex]] ;# id of item        
-      set path   [$wt item text $entry [RiPath]] ;# path of file of item
-      set objRef [$wt item text $entry [RiReference]] ;# info of item
-      set value [$wt item text $entry [RiContent]]
+      set name   [$wt item text $entry Name] ;# name of item     
+      set itemid [$wt item text $entry Index] ;# id of item        
+      set path   [$wt item text $entry Path] ;# path of file of item
+      set objRef [$wt item text $entry Reference] ;# info of item
+      set value  [$wt item text $entry Content]
       if { [string equal \"\n\" $value] } {
         # hasn't value        
@@ -825,7 +790,7 @@
         set value [string trim $value]
       }
-      set desc [$wt item text $entry [RiDescription]]
-      set grammar [$wt item text $entry [RiGrammar]]
-      set icon [$wt item image $entry [RiName]]
+      set desc [$wt item text $entry Description]
+      set grammar [$wt item text $entry Grammar]
+      set icon [$wt item image $entry Name]
       #(pgea) lista de argumentos que recibe ::TolConsole::OnInfo
       set args [list $icon $grammar $name $value $path $desc $objRef]
Index: tolbase/lib/toltk/tolinspe__wtree2.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe__wtree2.tcl	(revision 606ed76162ee735af819e211d1984559d9779a4b)
+++ tolbase/lib/toltk/tolinspe__wtree2.tcl	(revision ceea8662532abf48f87c3d04ea02b641ee128b5f)
@@ -18,5 +18,5 @@
 
   foreach var $vars_selected {
-    set name [$wt item text $var [RiName]]
+    set name [$wt item text $var Name]
     #puts "name=$name"
     #Quitamos el objeto de la consola de tol
@@ -93,5 +93,5 @@
   
   set parent [$wt_tree selection get 0]
-  set parent_tolReference [$wt_tree item text $parent [LiReference]]
+  set parent_tolReference [$wt_tree item text $parent Reference]
   
   set InRootConsole [string equal $parent_tolReference "Console"]
@@ -107,9 +107,9 @@
     if { [lsearch $vars_selected $node_act] >= 0 } {
       foreach var $vars_selected {
-        set itemid  [$wt_vars item text $var [RiIndex]]
-        set path    [$wt_vars item text $var [RiPath]]
-        set grammar [$wt_vars item text $var [RiGrammar]]
-        set objName [$wt_vars item text $var [RiName]]
-        set object [$wt_vars item text $var [RiReference]]  
+        set itemid  [$wt_vars item text $var Index]
+        set path    [$wt_vars item text $var Path]
+        set grammar [$wt_vars item text $var Grammar]
+        set objName [$wt_vars item text $var Name]
+        set object  [$wt_vars item text $var Reference] 
         
         #puts "OBJECT=$objName, PATH=$path"
@@ -470,9 +470,9 @@
     if { [lsearch $vars_selected $node_act] >= 0 } {
       foreach var $vars_selected {
-        set itemid  [$wt_funcs item text $var [RiIndex]]
-        set path    [$wt_funcs item text $var [RiPath]]
-        set grammar [$wt_funcs item text $var [RiGrammar]]
-        set objName [$wt_funcs item text $var [RiName]]
-        set object [$wt_funcs item text $var [RiReference]]   
+        set itemid  [$wt_funcs item text $var Index]
+        set path    [$wt_funcs item text $var Path]
+        set grammar [$wt_funcs item text $var Grammar]
+        set objName [$wt_funcs item text $var Name]
+        set object  [$wt_funcs item text $var Reference] 
         # La única gramática seleccionable en wt_funcs es Code
         lappend code_selected [list $object $objName $path]
@@ -535,5 +535,5 @@
   if { ![string length $selection] } { return }
   
-  set tolReference [$wt_tree item text $selection [LiReference]]
+  set tolReference [$wt_tree item text $selection Reference]
   if { [llength $tolReference] == 2 } {
     set InRootFiles [string equal [lindex $tolReference 0] "File"]
@@ -554,10 +554,10 @@
       if { $index == 0 } return
       # if user selects a root or a grammar doesn't nothing      
-      set tolReference [$wt_tree item text $index [LiReference]]
+      set tolReference [$wt_tree item text $index Reference]
       if { [llength $tolReference] == 1 } return
       
       # label of object showed in the tree
-      set objName [$wt_tree item text [LiName]]
-      set object [$wt_tree item text [LiReference]]
+      set objName [$wt_tree item text Name]
+      set object [$wt_tree item text Reference]
       
       if {$InRootFiles} {
@@ -634,5 +634,5 @@
 
   foreach var $vars_selected {
-    set reference [$wt item text $var [RiReference]]
+    set reference [$wt item text $var Reference]
     #Tolcon_Trace "GetObjectFromAddress(\"[::tol::info address $reference]\")"
     ::tol::console eval "GetObjectFromAddress(\"[::tol::info address $reference]\")"
@@ -651,5 +651,5 @@
   set names ""
   foreach var $vars_selected {   
-    lappend names [$wt item text $var [RiName]]
+    lappend names [$wt item text $var Name]
   }
   ::TolConsole::ToEvalWindow [ListToStr $names]