Pré. | Proc. |
Stereotypes
This is some example code for adding and deleting stereotypes.
Sub TestStereotypes
Dim o as object
Dim idx as integer
''add a new stereotype to the Stereotypes collection
o = m_Repository.Stereotypes.AddNew("funky","class")
If(o.Update=false) Then
Console.WriteLine (o.GetLastError())
End if
o = nothing
''make sure you refresh
m_Repository.Stereotypes.Refresh
''then iterate through - deleting our new entry in the process
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