%
% acceptance vectors for Help
%

_Ent.Page
<

|Helq
%
% Help vector operations
%
 wireop(
 <
 |Initial
%
% make sure Base and Help are displayed
%
  wired( !Help.Help
  @Help
  @_LocalIp
"locip" log)(
  !Local.Ip
  *taskbkeu(
%
% no closure exec at arrival in xhelp
%
  empty !Help.Actions
%
% chain to next command (items on stack)
% continue with chain of startup
%
  *chaining

 |Photoshop
  "Photoshop" !Help.Url
  x/*
 |Bridge
  "Bridge" !Help.Url
  x/*
 |Desk
  "Desk" !Help.Url
  x/*
 |Tree
  "Desk\Tree" !Help.Url
  x/*
 |Factory
  "Factory" !Help.Url
  x/*

 |TreeEdit
%
% spaces interpreted as hierarchy seps
% edit the requested tree
%
  *autosave
  @@
  wired( *treemang

 |TreeGo
  *autosave
  @@
%
% hide until tree manager enacted
%
  hide
%
% spaces interpreted as hierarchy seps
% edit the requested tree
%
  @@
  "taskarea" wired( *taskopen

 |Saving
%
% go to Hier for saving pep trees
%
  *autosave

 > pop

|Local
%
% Help vector operations
%
 Ent._E3
 <

%
% the local Help browser finishes loading and issues the Initial vector
%
 |Initial
%
% hide the help form for now, Base knows this
%
  Ent._E4 unescape !Help.Local
  *taskbket
  *helpstat(

 > pop

>

*acceptun

%
% stack: found
%