Please note : This help page is for an older version of Enteprise Archtiect. The latest help can be found here.

Topic
Prev Next

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