%
% for the filtered venue/shooter selection
% load the tree with subjects and xacts
%
*custhead
%
% stack: subjects
%
% make sure subjects exist
%
dup !Xact.Index
positive
{
%
% remove current child nodes
%
 *unrootch
%
% get the strings of subject summaries of xacts
%
 _Xact.Slist execstr
 _Xact.Index countup
 {
  pop
%
% process this subjects xacts
%
  execstr
%
% prefix a subject tag for tree name display
%
  dup !Shooter.Subject

  ^"subj "
  _Xact.Filter
  <
  |Shooter
   &"(" chuuter -2 right & &")"
  |Venue
   &"(" chuuter 2 right & &")"
  > pop
  root\ newchild
  "Subject" \!Type
  _Shooter.Subject \!Subject
%
% run through the xacts attached to this subject
%
  0 !counter
  _\ !anchor
  {
   isnull ?
   !Xact
%
% identify the asset of the xact tree thumbnail
%
   xact
%
% create a xact child of the subject
%
   _anchor !\ xact imgchild
   "Xact" \!Type
   _Xact \!Xact
  } loop
  pop
 } for
} if

root\
*expander