%
% click and double-click handlers for right target selection
%
% stack: double-click
%

false !dclicker

_NodeC.Index !Hier.Rindex

@Default#Target

Tree.Off

{
%
% was this left button double click
%
 _NodeC.Button _Mouse.Right and
 zero
 {
  _NodeC.Index
"LdclkRtarg " log()

%
% load the selected pep tree into Default#Target on the right
%
  selnode Tree.Select
%
% this is a tree file that can be loaded in the right
%
  "_fname" \_

  isnull
  {
   pop
  }
  {
   @Default#Target

   _\ hier *peprnorm

   "#" Str.Right "." Str.Left
"pepload " log()
   !Hier.Rname

%
% hide the default target tree
%
   hide

   Tree.Load

   "Default\Right.tlt" oflist Tree.Save pop

   Help.Hide

   "Back" vector()

   *tarjreld(

  } ifelse

 }
 {
%
% right double-click
%
  _NodeC.Index
"RdclkRtarg " log()
  select

 } ifelse

}
{

%
% was this left button click
%
 _NodeC.Button _Mouse.Right and
 zero
 {
  _NodeC.Index
"LclkRtarg " log()
  .!Selected
 }
 {
%
% right-click
%
  _NodeC.Index
"RclkRtarg " log()
  .!Selected
 } ifelse

} ifelse

@Default#Target

Tree.On