%
% acceptance vectors for Left Bar indicators
%
page@sel
<
|LeftBar
 wireop(
">LeftBar" log)(
 <
 |Initial
  *defindic
  "B" *helpgrin
%
% no closure exec at arrival in xhelp
%
  empty !Help.Actions
  false !Edit.Full
%
% initialize preview operations
%
  *leftbrop
  *helpinds
  *taskbkeu(
%
% chain to next command (items on stack)
% continue with chain of startup
%
  *chaining(

 >
 {
%
% command processed
%
 }
 {
%
% command not processed,
% interrogate current help group of left bar
%
  *helpgriq
 } ifelse

>

*acceptun

%
% stack: found
%