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

********************************************************************** generierte Dateien

~O~<streets.dlg.specs~>~{
$/Visual/BasicDlg.fw
~}
~O~<streets.dlg.sl~>~{
~<lido~>
~}

***************************************************************************** Typverbindungen

~$~<lido~>+=~{

SYMBOL ROOTCLASS:
  TypeList: VLListPtr;
SYMBOL ROOTCLASS
COMPUTE
  SYNT.TypeList = VLLIST();
  SYNT.TypeListDefined = CONSTITUENTS Type.TypeListDefined;
END;

SYMBOL Type
COMPUTE
  SYNT.TypeListDefined=VLAPPEND2(INCLUDING ROOTCLASS.TypeList,
    CONSTITUENT TypeName.persName, THIS.persTypeDefInstConnection);
END;

SYMBOL NormalPort
COMPUTE
  DialogSetEnumValues(_currn, "persTypeDefInstConnection", INCLUDING ROOT.TypeList)
  <- INCLUDING ROOT.TypeListDefined;
END;

SYMBOL TopologyPort
COMPUTE
  DialogSetEnumValues(_currn, "persTypeDefInstConnection", INCLUDING ROOT.TypeList)
  <- INCLUDING ROOT.TypeListDefined;
END;

SYMBOL FormalParamType
COMPUTE
  DialogSetEnumValues(_currn, "persTypeDefInstConnection", INCLUDING ROOT.TypeList)
  <- INCLUDING ROOT.TypeListDefined;
END;

~}

***************************************************************************** Computer-Angabe

~$~<lido~>+=~{

SYMBOL ROOTCLASS:
  ComputerList: VLListPtr;
SYMBOL ROOTCLASS
COMPUTE
  SYNT.ComputerList = VLLIST();
  SYNT.ComputerListDefined = CONSTITUENTS VirtualComputer.ComputerListDefined;
END;

SYMBOL VirtualComputer
COMPUTE
  SYNT.ComputerListDefined=VLAPPEND2(INCLUDING ROOTCLASS.ComputerList,
    THIS.persName, THIS.persComputerDefInstConnection);
END;

SYMBOL Subtask
COMPUTE
  DialogSetEnumValues(_currn, "persComputerDefInstConnection", INCLUDING ROOT.ComputerList)
  <- INCLUDING ROOT.ComputerListDefined;
END;

~}