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

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


~$~<lido~>+=~{

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


SYMBOL FormalParamHeadline INHERITS VP_TextTerminal, VP_ContainerSSS
COMPUTE
  THIS.VP_OblContainerName="Headline"; 
  THIS.VP_OptText = GETVLSTRING(sprintf(VLStringBuffer,"Formal parameter of %s",
    VLCharPtr(THIS.pers3ProcName)));
END;

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

SYMBOL _List_FormalParamElem INHERITS VP_ListContext END;
SYMBOL FormalParamElem INHERITS VP_ComplexElement END;

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

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

SYMBOL FormalParamName INHERITS VP_TextTerminal, VP_ContainerSSS
COMPUTE
  THIS.VP_OptText=THIS.persName;
  THIS.VP_OblContainerName="Name";
END;

SYMBOL FormalParamType INHERITS VP_TextTerminal, VP_ContainerSSS
COMPUTE
  THIS.VP_OptText=IF(THIS.pers3Deleted,
    GETVLSTRING(sprintf(VLStringBuffer,"%s (UNDEFINED)",VLCharPtr(THIS.pers3DefName))),
    THIS.pers3DefName);
  THIS.VP_OblContainerName="Type";
  THIS.VP_OptFill=THIS.pers3TypeColor;
END;

~}