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 100Finalmente, 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 blueY 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 greenEste es el resultado:
No comments:
Post a Comment