Index: tolbase/lib/toltk/init_toltk.tcl
===================================================================
--- tolbase/lib/toltk/init_toltk.tcl	(revision 6f7a6698b1fa43a4040ad7bcd0fb8f54a342dd3c)
+++ tolbase/lib/toltk/init_toltk.tcl	(revision 97db5a0b10f436144611af250bb732707dde859f)
@@ -11,4 +11,6 @@
 package require Tk
 
+# show_filters: muestra (o no) los filtros en el inspector de TOL
+set show_filters 0
 # trace: muestra (o no) la ventana de trazas de TOL
 set trace 0
Index: tolbase/lib/toltk/tolinspe__main.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe__main.tcl	(revision 6f7a6698b1fa43a4040ad7bcd0fb8f54a342dd3c)
+++ tolbase/lib/toltk/tolinspe__main.tcl	(revision 97db5a0b10f436144611af250bb732707dde859f)
@@ -304,4 +304,5 @@
 #/////////////////////////////////////////////////////////////////////////////
   global toltk_options
+  global show_filters
   variable w_tabset
   variable wt_vars
@@ -323,17 +324,19 @@
 
   # Creation of the right TREE RIGHT with VARIABLES
-  set wt_vars [::wtree $sw21.vars -table 1 -filter no \
+  set wt_vars [::wtree $sw21.vars -table 1 -filter $show_filters \
     -background white -showroot 0 -selectmode extended -showheader 1 \
     -highlightbackground gray75 -highlightcolor black \
     -highlightthickness 0 -font $toltk_options(fonts,Label) \
     -columns [list \
-    [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] \
+    [list text -label [mc Index] -tags Index] \
+    [list text -label [mc Grammar] -tags Grammar] \
+    [list {image text} -label [mc Name] -tags Name] \
+    [list text -label [mc Content] -tags Content] \
+    [list text -label [mc Description] -tags Description] \
+    [list text -label [mc Path] -tags Path] \
+    [list text -label [mc Reference] -tags Reference] \
   ]]
+  #@ filtro: 0(Index) 0(no) 2(Name) 1(yes)
+  $wt_vars configure -columnfilter [list 0 0 2 1]
   # configuration of the tree of variables
   $wt_vars column configure Grammar -visible no
@@ -346,17 +349,19 @@
   
   # Creation of the right TREE RIGHT with FUNCTIONS
-  set wt_funcs [::wtree $sw22.vars -table 1 -filter no \
+  set wt_funcs [::wtree $sw22.vars -table 1 -filter $show_filters \
     -background white -showroot 0 -selectmode extended -showheader 1 \
     -highlightbackground gray75 -highlightcolor black \
     -highlightthickness 0 -font $toltk_options(fonts,Label) \
     -columns [list \
-    [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] \
+    [list text -label [mc Index] -tags Index] \
+    [list text -label [mc Grammar] -tags Grammar] \
+    [list {image text} -label [mc Name] -tags Name] \
+    [list text -label [mc Content] -tags Content] \
+    [list text -label [mc Description] -tags Description] \
+    [list text -label [mc Path] -tags Path] \
+    [list text -label [mc Reference] -tags Reference] \
   ]]
+  #@ filtro: 0(Index) 0(no) 2(Name) 1(yes)
+  $wt_funcs configure -columnfilter [list 0 0 2 1]
   # configuration of the tree of functions
   $wt_funcs column configure Grammar -visible no
@@ -511,14 +516,4 @@
     }
     return [OneLine $content]
-    set content [string trim $content]
-    set lnidx [string first "\n" $content]
-    if { $lnidx != -1 } {
-      if { [incr lnidx -1] > 0 } {
-        return "[string range $content 0 $lnidx]..."
-      } else {
-        return "..."
-      }
-    }
-    set content
   }
 }
Index: tolbase/lib/toltk/tolinspe__wtree1.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe__wtree1.tcl	(revision 6f7a6698b1fa43a4040ad7bcd0fb8f54a342dd3c)
+++ tolbase/lib/toltk/tolinspe__wtree1.tcl	(revision 97db5a0b10f436144611af250bb732707dde859f)
@@ -81,28 +81,21 @@
     set fcolor "black"
   }
-
-  set brief_cont [TrimContent $grammar $content]
-  set brief_desc [TrimContent DONTCARE $desc]  
-  
-  set data3 $brief_cont
+  
+  set cont $content
   if {$grammar eq "NameBlock"} {
-    #(pgea) se utiliza la informacon de instancia
-    #puts "Tol_ClassOfFromReference $tolref"
+    # se utiliza la información de instancia
     set classOf [Tol_ClassOfFromReference $tolref]
-    #puts "Tol_InstanceContentFromReference $tolref"
-    set insCont [Tol_InstanceContentFromReference $tolref]
-    if {$insCont ne ""} {
-      set data3 [TrimContent $grammar $insCont]
-    } elseif {$classOf ne ""} {
-      set data3 $classOf
-    }    
-  }
-  
-  #@ Se introduce toda la descripción de la clase.
-  if {$grammar eq "Anything"} {
-    if { [regexp {@[^ ]+} $name] } {
-      set data3 $content
-    }
-  }
+    if {$classOf ne ""} {
+      set insCont [Tol_InstanceContentFromReference $tolref]
+      if {$insCont ne ""} {
+        set cont $insCont
+      } else {
+        set cont $classOf
+      }
+    }
+  }
+
+  #@ set brief_cont [TrimContent $grammar $cont]
+  #@ set brief_desc [TrimContent DONTCARE $desc]
 
   #@ Se localiza el icono según la gramática
@@ -126,5 +119,5 @@
   $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
+    Name $name Content $cont Description $desc Path $path Reference $tolref
   if { $fcolor ne "black" } {
     $wt item-color $idx $fcolor