%
% acceptance vectors for Desk operations help page
%
Task.@
_Ent.Page
<

|DeskOps
%
% Desk operations
%
 wireop(
"Dskop " log)(
 <
 |Initial
  "Desk" x!
  helpon
  *chaining

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

 |LogIn

 |Saving
%
% save all trees open
%
  *autosave

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

 |TreeGo
  wireop( *taskanew

 > pop

>

*acceptun

%
% stack: found
%