Estereotipos

Objeto público

Sub TestStereotypes 

Dim o as object

Dim idx as integer 

' ' agregar   un nuevo estereotipo a la colección Estereotipos 

o = m_Repository.Stereotypes.AddNew("funky","class") 

If(o.Update=false) Then 

Console.WriteLine (o.GetLastError()) 

End if

o = nothing 

' ' asegura   el refresco 

m_Repository.Stereotypes.Refresh 

' ' luego itera a través - eliminando o agregando una nueva entrada en el   proceso 

For idx = 0 to m_Repository.Stereotypes.Count-1 

COnsole.Writeline(m_Repository.Stereotypes.GetAt(idx).Name) 

If(m_Repository.Stereotypes.GetAt(idx).Name = "funky") then 

  m_Repository.Stereotypes.DeleteAt(idx,false) 

  Console.WriteLine("Delete element") 

End if 

Next 

End Sub