%
% acceptance vectors for Left Bar (editor version) indicators
%
page@sel
<
|LeftCar
 wireop(
">LeftCar" log)(
 <
 |Initial
  *defindic
  "C" *helpgrin
%
% no closure exec at arrival in xhelp
%
  empty !Help.Actions
%
% initialize left operations
%
  *leftbrop
  *helpinds
  *taskbkeu(
  _Edit.Enabled
"edena" log)(
  {
   "editstar"
  } if
%
% chain to next command (items on stack)
% continue with chain of startup
%
  *chaining(
 >
 {
%
% command processed
%
 }
 {
%
% command not processed, interrogate current group of left bar
%
  *helpgriq
 } ifelse

>

*acceptun

%
% stack: found
%