Is there no easier way to check detachedness of a ttk::treeview item?

Posted to tcl by schelte at Fri Jul 14 10:48:44 GMT 2017view raw

proc detached {tv item} {
while {[set parent [$tv parent $item]] ne ""} {set item $parent}
return [expr {[lindex [$tv children {}] [$tv index $item]] ne $item}]
}