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