%
% stack: target-tree
%
*persnorm
dup _@ eq$
{
 pop
}
{
%
% modal setting for move or copy drag ops
%
 0 !Hier.Drag
%
% left tree is in @, target tree will be right
%
 _@
 dup !Hier.Lname
 second !Hier.Rname
 Help.@Help
 subform
%
% initiate tree management helper for user op selection
%
 "hier.html" "archarea" "Harch"
 "nullarea" "Hier"
 *tasklopq

 Help.@Help
 App.Above

 -1 !Edits

%
% stack: entry-@
%
 *hierlpre

 _@ exch

 *hierrpre

%
% stack: left-pep
%
 "Hier" *platting

} ifelse