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

~O~<streets.ProcedureCallView.specs~>~{
$/Visual/VisPattern.gnrc+instance=ProcedureCallView:inst
~}
~O~<streets.ProcedureCallView.sl~>~{
~<lido~>
~}


~$~<lido~>+=~{

SYMBOL ProcedureCallValues INHERITS VP_Form
COMPUTE
  THIS.VP_OptDrawing=ADDROF(HeadlineBodyDrawing);
END;


SYMBOL ProcedureCallHeadline INHERITS VP_TextTerminal, VP_ContainerSSS
COMPUTE
  THIS.VP_OblContainerName="Headline"; 
  THIS.VP_OptText = GETVLSTRING(sprintf(VLStringBuffer,"Actual parameter for %s",
    VLCharPtr(INCLUDING ProcedureCall.pers3DefName)));
END;

SYMBOL ProcedureCallArgs INHERITS VP_Table, VP_ContainerSSS
COMPUTE
  THIS.VP_OptFieldList=VLAPPEND(VLAPPEND(VLAPPEND(VLLIST(),"Name"),"Type"),"Value");
  THIS.VP_OblContainerName="Body"; 
END;

SYMBOL ProcedureCallArgNameHead INHERITS VP_TableHeadElement 
COMPUTE THIS.VP_OblContainerName="Name"; END;

SYMBOL ProcedureCallArgTypeHead INHERITS VP_TableHeadElement 
COMPUTE THIS.VP_OblContainerName="Type"; END;

SYMBOL ProcedureCallArgValueHead INHERITS VP_TableHeadElement 
COMPUTE THIS.VP_OblContainerName="Value"; END;

SYMBOL _List_ProcedureCallArg INHERITS VP_ListContext END;
SYMBOL ProcedureCallArg INHERITS VP_ComplexElement END;

SYMBOL ProcedureCallArgName INHERITS VP_TextTerminal, VP_ContainerSSS
COMPUTE
  THIS.VP_OptText=IF(INCLUDING ProcedureCallArg.pers3Deleted,
    GETVLSTRING(sprintf(VLStringBuffer,"%s (deleted)",
      VLCharPtr(INCLUDING ProcedureCallArg.pers3ArgName))),
    INCLUDING ProcedureCallArg.pers3ArgName);
  THIS.VP_OptFill=IF(INCLUDING ProcedureCallArg.pers3Deleted,VLCharPtr("red"),VLCharPtr("black"));
  THIS.VP_OblContainerName="Name";
END;

SYMBOL ProcedureCallArgType INHERITS VP_TextTerminal, VP_ContainerSSS
COMPUTE
  THIS.VP_OptText=INCLUDING ProcedureCallArg.pers3TypeName;
  THIS.VP_OptDefault="";
  THIS.VP_OblContainerName="Type";
  THIS.VP_OptFill=INCLUDING ProcedureCallArg.pers3TypeColor;
END;

SYMBOL ProcedureCallArgValue INHERITS VP_TextTerminal, VP_ContainerSSS
COMPUTE
  THIS.VP_OptText=THIS.persCode;
  THIS.VP_OblContainerName="Value";
  THIS.VP_OptDefault="(empty)";
END;

~}