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

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

~$~<lido~>+=~{

SYMBOL TypeDefinition INHERITS VP_Form
COMPUTE
  THIS.VP_OptDrawing = ADDROF(TypeDefinitionDrawing);
END;

SYMBOL TypeName INHERITS VP_TextTerminal, VP_ContainerSSS
COMPUTE
  THIS.VP_OblContainerName="Name";
  THIS.VP_OptText=THIS.persName;
  THIS.VP_OptTextAttr="persName";
  THIS.VP_OptFill=THIS.persColor;
END;

CLASS SYMBOL TypeContainerClass INHERITS VP_ContainerIP
COMPUTE
  THIS.VP_OblContainerName="Body";
  THIS.VP_OptInsPointProc = "::instanz::insert_applied_pattern";
  THIS.VP_OptInsPointProcArgs = VLAPPEND(VLAPPEND(VLLIST(),"persTypeDefInstConnection"),"0");
END;

SYMBOL TypeDefinitionBody INHERITS TypeContainerClass END;
SYMBOL TypeDescription INHERITS VP_ReplacementContext END;

SYMBOL Array INHERITS VP_Form COMPUTE THIS.VP_OptDrawing=ADDROF(ArrayDrawing); END;
SYMBOL ArrayBody INHERITS TypeContainerClass END;

SYMBOL PortType INHERITS VP_Form COMPUTE THIS.VP_OptDrawing=ADDROF(PortTypeDrawing); END;
SYMBOL PortTypeBody INHERITS TypeContainerClass END;

SYMBOL Integer INHERITS VP_TextTerminal COMPUTE THIS.VP_OptText="Integer"; END;
SYMBOL Float INHERITS VP_TextTerminal COMPUTE THIS.VP_OptText="Float"; END;
SYMBOL String INHERITS VP_TextTerminal COMPUTE THIS.VP_OptText="String"; END;

SYMBOL TypeApplication INHERITS VP_TextTerminal 
COMPUTE 
  THIS.VP_OptText=THIS.pers3DefName; 
  THIS.VP_OptFill=THIS.pers3TypeColor; 
END;

SYMBOL Struct INHERITS VP_Table
COMPUTE
  THIS.VP_OptInDirectionLineStyle=NULL;
  THIS.VP_OptInDirectionBorderLineStyle="";
END;

SYMBOL _List_StructElement INHERITS VP_ListContext END;
SYMBOL StructElement INHERITS VP_ComplexElement END;

SYMBOL StructElementName INHERITS VP_ContainerSSS, VP_TextTerminal
COMPUTE
  THIS.VP_OptText=GETVLSTRING(sprintf(VLStringBuffer,"%s :",VLCharPtr(THIS.persName)));
  THIS.VP_OblContainerName = "Name";
  THIS.VP_OptFill = "blue";
  THIS.VP_OptFont = "default";
  THIS.VP_OptAlign = VisIntVector(VisAlignRight,VisAlignCenter);
END;

SYMBOL StructElementType INHERITS VP_ContainerIP
COMPUTE
  THIS.VP_OblContainerName = "Type";
END;

~}