%
% extended help start
%
help@
subform

@@
_@ "Xhelp" atleft
{
%
% already within xhelp, no startup action needed
%
 pop
}
{
%
% stack: current-help
%
% open a new task level to allow return after help
%
 "Xstart" x/act?
 {
%
% provide default task area
%
  "taskarea"
 } if
%
% stack: current-help area-vector
%
 false !Xhelp.Defer
 false !Xhelp.Descend
 "Xhelp" *taskopen
%
% stack: current-help
%
% insure the xhelp task is above the current help
%
 App.Above

} ifelse