Changeset ffeacdc in tol for tolbase/lib/toltk

Timestamp:

Nov 18, 2016, 11:18:15 AM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

6dc91d2

Parents:

b23291d

Message:

Refs #1933
Mejora en bmultiselect.
Se quitan algunas trazas

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

Location:

tolbase/lib/toltk

Files:

• tolinspe__wtree2.tcl (modified) (1 diff)
• tolprj.tcl (modified) (4 diffs)

tolbase/lib/toltk/tolinspe__wtree2.tcl

@@ -686 +686 @@
 #/////////////////////////////////////////////////////////////////////////////
   variable wt_vars
-  #@! REVISAR dejó de funcionar!
   set node [$wt_vars selection get 0]
   if {$node == ""} {
     ::TolInspector::SelectionCollapse 
   } else { 
-    Tolcon_Trace "node $node"
     $wt_vars expand $node
   }

tolbase/lib/toltk/tolprj.tcl

@@ -805 +805 @@
       set item "Set $name.$data(num)"
       set value "Include(\"$filename\");"
-      Tolcon_Trace "item: $item, value: $value"
       writeini $fd $key $item $value
       incr data(num)
@@ -1026 +1025 @@
         set hasbutton 0
       }
-      Tolcon_Trace "prev $prev node $node"
       if {$prev eq "end"} {
         set idx [$tv item create -parent $node -button $hasbutton -open 0]
@@ -1819 +1817 @@
     return -code error "File $path doesn't exist"
   }
-  #@ Tolcon_Trace "Llamada a WtreeFromFile"
   set fd [iniparse:openfile $path] 
   BNodeFromFile $tv root "" $fd $proc
@@ -1871 +1868 @@
   # Llamar recursivamente para los hijos
   foreach child [$tv item children $index] {
-    Tolcon_Trace "child $child"
     BNodeToFile $tv $child $fd
   }