%
% message post from SaWing
%
% stack: msg-exec msg-type
%
"sawx" log)(
!MsgType
unescape
dup ^"sawy--- " logs
_Arching.Vm
{
 "Error:" found?
 {
  _Arching.OrigLock any?
  {
   ^"Original "
   &"-->" &_Arching.ServLock &" " &2 catcr
   _Arching.OrigLock &".err" ofxone write
  }
  {
   "-->" &_Arching.ServLock &" " &2 catcr
   _Arching.ServLock &".err" ofxone write
  } ifelse 
 } if
} if
!Ent.ExitData

_MsgType "_" slice
exch !@
<
%
% the StdTree form has now initialized
%
|TreeReady
%
% the SaWing tree is ready, initialized
% now commands to the form can proceed, start by rooting the tree
% with the mep name of this task
%
 *treeredy

|TreeSel
 _Tree.Editing
 {
%
% editing is currently in process, selected node is target
%
  strand( Task.!Sel
  *nodfdone
  *freebacr
 }
 {
  strand(
  "Select" vector()
 } ifelse

|PhoData
 _Ent.ExitData
 dup token1&2 !Ent.Ident
%
% get the command and args
%
 *acceptit

 _found
 "panlfnd" log)(
 {
 }
 {
%
% intercept was not found
% use E5 as the directive, perform if it exists
%
  wireop(
"panlop" log)(
  <
  |Startup

  |Reply
   wirex(
"*(*(*(Dispatch " log)(
   <
   |Accept

   |Reject
   > pop
  > pop
} ifelse

> pop

@@