Saturday, May 3, 2014

tablelist

tablelist es una libreria para presentar (y editar) datos en una tabla.
http://www.nemethi.de/
Es muy facil de usar.

Primero, hay que agregar la libreria a nuestro codigo, de esta manera:

package require tablelist

Preparemos la variable para el control (widget) de esta tabla:

set tbl .tbl

Ya podemos crear la tabla, en este caso:

  • 5 columnas (titulos de columna: A,B,C,D y E)
  • ancho de columna (0 = auto ajustable)
  • height = altura de la tabla en lineas
  • width = ancho de la tabla en caracteres

tablelist::tablelist $tbl \
 -columns {0 "A" 0 "B" 0 "C" 0 "D" 0 "E"}\
 -height 15\
 -width 100
Finalmente, a "empacar" el control en la ventana principal
pack $tbl

Para insertar datos en la tabla, se usa el comando...insert con los datos a insertar en una lista.

$tbl insert end [list a b c d e]
 
Vea como configuramos la celda del ultimo renglon, primer columna con letras blancas en fondo rojo:Notese que en ese momento, el ultimo renglon es el que acabamos de insertar y que la numeracion de celdas inicia con cero.

$tbl cellconfigure end,0 -foreground white -background red

Insertamos mas datos, y configuramos la celda del ultimo renglon, segunda columna con letras blancas en fondo azul:


$tbl insert end [list a b c d e]
$tbl cellconfigure end,1 -foreground white -background blue
Y para terminar, letras negras en fondo verde, para la celda en ultimo renglon, tercer columna:

$tbl insert end [list a b c d e]
$tbl cellconfigure end,2 -foreground black -background green
Este es el resultado:


No comments: