Posted to tcl by schelte at Fri Jul 14 10:48:44 GMT 2017view pretty
proc detached {tv item} {
while {[set parent [$tv parent $item]] ne ""} {set item $parent}
return [expr {[lindex [$tv children {}] [$tv index $item]] ne $item}]
}
proc detached {tv item} {
while {[set parent [$tv parent $item]] ne ""} {set item $parent}
return [expr {[lindex [$tv children {}] [$tv index $item]] ne $item}]
}