Changeset 6207115 in tol for tolbase/lib/wtree/wtree.tcl

Timestamp:

Nov 3, 2016, 8:59:28 AM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

e0578ae

Parents:

7a3f24e

Message:

Refs #1933
Se sustituye el uso de los widgets de BLT: ::blt::tree y ::blt::treeview por el árbol ::wtree basado en ::treectrl.
Se incorporan muchos cambios a la vez. Podrían destacarse los siguientes:

• Se sustituye blt_tree y ht_tree por wt_tree, y de modo similar blt_vartree y ht_vars por wt_vars y blt_functree y ht_funcs por wt_funcs.
• Se utilizan las columnas de ::wtree para almacenar la información de cada nodo. Esto simplifica algunos métodos que pueden reescribirse más fácilmente.
• Se revisa el uso de algunos atributos (variable) usados para el paso de argumentos entre métodos. Desaparecen algunos de ellos y aparece el atributo arguments.
• Se eliminan algunos métodos auxiliares de los que se podían prescindir y algunos que no estaban usándose.
• Se prescinde del Spool principalmente por dos motivos: (1) estaba dando problemas y corregirlo conlleva bastante trabajo y (2) la consola puede servir para lo mismo una vez implementada la opción de menú que permite llevar cualquier objeto TOL a la consola. Se implementa esta opción.
• Provisionalmente, tanto el árbol del inspector (::wtree izquierdo) como el listado de objetos (::wtree's derechos) muestran más columnas de lo necesario.
• Se implementa el llenado del listado de objetos al seleccionar el nodo raíz de los paquetes.

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

File:

• tolbase/lib/wtree/wtree.tcl (modified) (3 diffs)

tolbase/lib/wtree/wtree.tcl

@@ -315 +315 @@
         -scrollmargin 16 -xscrolldelay "500 50" -yscrolldelay "500 50"
 
-
     $tree notify install <<ItemSelected>>
     $tree notify install <<Escape>>
@@ -745 +744 @@
                       -image $opts(-image) \
                       -itembackground "\#e0e8f0 {}" \
-                      -tags $opts(-tags) ]
+                      -tags $opts(-tags) ]                     
+      # "
       set column_info($idx,ID) $colID
       set column_info(MAPIDX,$colID) $idx
@@ -839 +839 @@
     set item [ $tree item create \
                    -button $insopt(-button) \
-                   -tags insopt(-tags) ]
+                   -tags $insopt(-tags) ]
     set idx 0
     set idx_last  [ expr [ llength $options(-columns) ] - 1 ]