Changeset 97db5a0 in tol for tolbase/lib/toltk/tolinspe__main.tcl

Timestamp:

Nov 30, 2016, 8:07:19 AM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

5c511c0

Parents:

6f7a669

Message:

Refs #1933
Se incorpora un parámetro en init_toltk.tcl para provisionalmente mostrar o no filtros en el inspector.
Se traducen los nombres de columna del inspector.
Se incorporan el contenido y la descripción completa (sin TrimContent) de las variables TOL.

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

File:

• tolbase/lib/toltk/tolinspe__main.tcl (modified) (4 diffs)

tolbase/lib/toltk/tolinspe__main.tcl

@@ -304 +304 @@
 #/////////////////////////////////////////////////////////////////////////////
   global toltk_options
+  global show_filters
   variable w_tabset
   variable wt_vars
@@ -323 +324 @@
 
   # 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 +349 @@
   
   # 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 +516 @@
     }
     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
   }
 }