Changeset 2bd0360 in tol

Timestamp:

Dec 20, 2016, 9:40:01 AM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

5e157f6

Parents:

c212e70

Message:

Refs #1933
Se revisa el método que actualiza el nodo de archivos compilados.

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

File:

• tolbase/lib/toltk/tolinspe__wtree2.tcl (modified) (1 diff)

tolbase/lib/toltk/tolinspe__wtree2.tcl

@@ -30 +30 @@
 #/////////////////////////////////////////////////////////////////////////////  
   variable wt_tree
-  set open 0
   set idx_file [$wt_tree item id "root-files"]
   if { [$wt_tree item isopen $idx_file] } {
+    #@ si está abierto el nodo de archivos, se cierra y se abre
     $wt_tree collapse $idx_file
-    set open 1
-  }
+    $wt_tree expand $idx_file
+    #@ si la selección estaba en el nodo de archivos se pierde
+    #@ de modo que seleccionamos el nodo raíz
+    if { [$wt_tree selection get] eq "" } {
+      $wt_tree selection modify $idx_file all
+    }
+  }
+  #@ si la selección es el nodo raíz, actualizamos la vista
   if { [$wt_tree item state get $idx_file selected] } {
     SelectObject
-  }
-  if $open {
-    $wt_tree expand $idx_file
   }
 }