Changeset 2c0158d in tol for tolbase/lib/wtree/wtree.tcl

Timestamp:

Feb 8, 2012, 2:29:02 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

72b4d96

Parents:

4c42e65

Message:

refs #1417, implementamos un metodo de wtree para facilitar la modificación/consulat de las columnas en items creados, el ícono del nodo de un paquete refleja el estado de sus hijos (paquetes con versión específica), se corrige un error cuando la ruta de instalación de los paquetes tiene espacio en el nombre

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

File:

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

tolbase/lib/wtree/wtree.tcl

@@ -792 +792 @@
   }
 
+  method itemcolumn { item col args } {
+    set colid [ $tree column id $col ]
+    if { $colid eq "" } {
+      puts "$col does not reference a valid column"
+      return
+    }
+    set ret {}
+    foreach elemdata $args {
+      set v ""
+      foreach { e v } $elemdata break
+      if { $v eq "" } {
+        array set def_prop {
+          text -text
+          image -image
+        }
+        lappend ret [ list $e [ $tree item element cget $item $colid $elements($e) $def_prop($e) ] ]
+      } else {
+        set e_conf [ $self _build_element_config $e $v ]
+        eval $tree item element configure $item $colid $e_conf
+      }
+    }
+    return $ret
+  }
+
   method insert { data args } {
     array set insopt {
@@ -1021 +1045 @@
 }
 
+msgcat::mcload [ file join [ file dir [ info script ] ] msgs ]
+
 package provide wtree 1.0