Empecemos con checar cuantos "hijos" tiene la ventana principal, llamada "."
% winfo children
wrong # args: should be "winfo children window"
Me fall贸 porque falt贸 un par谩metro
% winfo children .
No me regresa nada, es que aun no le pongo controles a esta ventana
% proc tl {} {};edit tl
Edito (en otra ventana) un proc que crea una
tablelist accesible con la variable "tbl"
proc tl {} {
global tbl
set tbl .tbl
tablelist::tablelist $tbl\
-columns {0 "A" 0 "B" 0 "C" 0 "D" 0 "E"} -height 15 -width 100
pack $tbl
}
Creo un bot贸n
% button .btn -text rengSel?
.btn
% pack button
wrong # args: should be "pack option arg ?arg ...?"
Me fallo' porque no hay bot贸n llamado "
button" (se llama .btn)
% pack .btn
Ahora si aparece bot贸n en la ventana
% tl
invalid command name "tablelist::tablelist"
Falla porque no puse la "incorporaci贸n" de la librer铆a en el proc...
Ahora si lo hago...
% package require tablelist
5.7
% tl
Ahora si aparece la tabla en la ventana (pero tuve que hacer un "
resize" manual)
Le hago ediciones para que se le inserten renglones a partir de la lista de "hijos" de "."
% edit tl
Cuales son los "hijos" de "." ?
% winfo children .
.btn .__helpLabel .tbl .tbl-corner
Le inserto los hijos
% $tbl insert end [winfo children .]
k0
Pero me aparecen en un solo rengl贸n...eso no es lo que quer铆a...
"." tiene 4 hijos...
% llength [winfo children .]
4
Veamos esos 4 "hijos"
% foreach ctrl [winfo children .] {
puts $ctrl
}
.btn
.__helpLabel
.tbl
.tbl-corner
Quiero borrar el rengl贸n...
% $tbl delete all
bad row index "all": must be active, anchor, end, top, bottom, @x,y, a number, a full key, or a name
Falla porque "all" no es un indice v谩lido
% $tbl delete 0 end
Ahora si se borr贸
Le inserto un rengl贸n por cada "hijo"
% foreach ctrl [winfo children .] {
$tbl insert $ctrl
}
bad row index ".btn": must be active, anchor, end, top, bottom, @x,y, a number, a full key, or a name
Falla porque me falt贸 poner donde insertar
Ahora si...
% foreach ctrl [winfo children .] {
$tbl insert end $ctrl
}
Al tener seleccionado el primer rengl贸n, el comando "
curselection" indica cual es la selecci贸n actual:
(numeraci贸n empieza en cero)
% $tbl curselection
0
Al tener seleccionado el rengl贸n 2:
% $tbl curselection
1
Al tener seleccionado el rengl贸n 3:
% $tbl curselection
2
Al tener seleccionado el rengl贸n 4:
% $tbl curselection
3
Para obtener el valor de una de las celdas:
% $tbl cellcget 1,1 -text
No devuelve nada porque no hay nada en segunda columna, (recuerde, numeraci贸n empieza en cero)
Ah, entonces es as铆:
% $tbl cellcget 1,0 -text
.__helpLabel
Para obtener el valor en celda de:
rengl贸n = la selecci贸n actual
columna = 0 (numeraci贸n empieza en cero)
y estando seleccionado el renglon cuyo contenido de texto es "tbl-corner"
% $tbl cellcget [$tbl curselection],0 -text
.tbl-corner
Asignarle una acci贸n a bot贸n existente
% .btn configure -command {puts [$tbl cellcget [$tbl curselection],0 -text]}
Al hacer
click en el bot贸n...
.tbl-corner
Luego selecciono el tercer rengl贸n en la tabla...y hacer
click en bot贸n
.tbl
(ya que ese es el contenido de esa celda)
