%
% bring up task function window
%

false !dclicker

_NodeC.Index !Hier.Rindex

_Hier.Right @
Tree.Off

%
% was this left button click
%
_NodeC.Button _Mouse.Right and
zero
{
 _NodeC.Index
"LclkRight " log()
 .!Selected
}
{
%
% right-click
%
 _NodeC.Index
"RclkRight " log()
 selnode
 true _\ Tree.!Selected
 _\ "CopyOne" do
 _@ !src@ _\ !src\
} ifelse

Tree.On