definer
{

"hierpath" "Relative Hier for Current Node to Path String"
"Exec" % "--> hier-path-str"
'_\ hier "\" "/" replall'
newdef

"sel@safe" "Task Node Not Selected Then Default Root Node"
"Exec" % "-->"
"
sel@? not
{
 rootnode
 0 Task.!Select
} if
"
newdef

"nod@" "Tree Changed"
"Exec" % "-->"
"@^Changed"
newdef

/*
"nod@/" "Tree Unchanged"
"Exec" % "-->"
"false @!Changed"
newdef

"nod@?" "New Tree Change Inquiry"
"Exec" % "--> tree-changed"
"@_Changed"
newdef
*/

} if