Generic function
Contracts the specified node in a tree control.
contract-node tree-control node => ()
<tree-control>.
<tree-node>.
None
duim-gadgets
duim-gadgets
Contracts the specified node in tree-control, thereby hiding any children of the node that were displayed.