@=~
~p typesetter = texinfo
~p maximum_input_line_length = infinity


~O~<qbe.MainView.sl~>~{

SYMBOL Main INHERITS VP_Form
COMPUTE
  SYNT.VP_OptDrawing=ADDROF(MainDrawing);
END;

SYMBOL TableDefinitions INHERITS VP_SimpleList, VP_ContainerSSS
COMPUTE
  SYNT.VP_OblContainerName="Tables";
  SYNT.VP_OptMinWidth2=100;
  SYNT.VP_OptElementDistance=20;
  SYNT.VP_OptAlignInWidth = VisAlignLeft;
END;

SYMBOL _List_TableDefinition INHERITS VP_ListContext END;

SYMBOL TableDefinition INHERITS VP_Table
COMPUTE
  SYNT.VP_OptDirection=visEast;
  SYNT.VP_OptFieldList=VLAPPEND(VLAPPEND(VLLIST(),"Field1"),"Field2");
  SYNT.VP_OptInDirectionBorderLineStyle=NULL;
  SYNT.VP_OptOrthDirectionBorderLineStyle=NULL;
END;

SYMBOL TableName INHERITS VP_TextTerminal, VP_ContainerSSS
COMPUTE
  SYNT.VP_OblContainerName = "Field1";
  SYNT.VP_OptText = THIS.persName;
END;

SYMBOL _List_Field INHERITS VP_ListContext END;
SYMBOL Field INHERITS VP_ComplexElement END;

SYMBOL FieldName INHERITS VP_ContainerSSS, VP_TextTerminal
COMPUTE
  SYNT.VP_OblContainerName="Field1";
  SYNT.VP_OptText=THIS.persName;
END;

SYMBOL FieldTypeNumber INHERITS VP_ContainerSSS, VP_TextTerminal
COMPUTE
  SYNT.VP_OblContainerName="Field2";
  SYNT.VP_OptText="Number";
END;

SYMBOL FieldTypeString INHERITS VP_ContainerSSS, VP_TextTerminal
COMPUTE
  SYNT.VP_OblContainerName="Field2";
  SYNT.VP_OptText="String";
END;


SYMBOL Queries INHERITS VP_ContainerSSS, VP_SimpleList
COMPUTE
  SYNT.VP_OblContainerName="Queries";
  SYNT.VP_OptMinWidth2=100;
  SYNT.VP_OptAlignInWidth = VisAlignLeft;
END;

SYMBOL _List_Query INHERITS VP_ListContext END;

SYMBOL Query INHERITS VP_TextTerminal
COMPUTE
  SYNT.VP_OptText=CONSTITUENT QueryName.persName;
END;

~}