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}]
}