fancy/inscrutable
Posted to
tcl
by Stu at Wed Aug 20 10:50:24 GMT 2008
view raw
set
i -1;
foreach
d
$data
{
incr
i
set
idx2node(
$i
) [
$table
insert {} end \
-values [
list
\
[
lindex
$d
end] \
[
lindex
$d
0] \
[
lindex
$d
3] \
$i
\
]
]
}
Recent Posts
tcl by Stu
10 days ago
tcl by rhobart
23 days ago
tcl by stevel
27 days ago
tcl by dandyn
35 days ago
tcl by dandyn
35 days ago
tcl by dandyn
35 days ago
tcl by dandyn
37 days ago
tcl by dandyn
37 days ago
tcl by emiliano
48 days ago
tcl by dandyn
48 days ago
Submit
New paste
Documentation
From Jabber