#!../tree_wish -f
# -*-Tcl-*-
#
# dirtree9 - same as dirtree8, but adds key binding to delete a subtree


source dirtree8


# Cut key on Sun keyboard removes node
bind $canvas <L10> "HideNode $canvas $tree"
bind $canvas <Control-d> "HideNode $canvas $tree"


# remove the selected node and its subnodes from the display

proc HideNode {canvas tree} {
    set path [GetPath $canvas]
    if {"$path" != "" && ![$tree isroot $path]} {
        $tree rmlink $path
    }
}
