Add and Manage Packages

Topics

Topic

Detail

public Object

 

Example illustrating how to add a Model or a Package.

 

Sub TestPackageLifecycle

 

   Dim idx as integer

   Dim idx2 as integer

   Dim package as object

   Dim model as object

   Dim o as object

 

   ''first add a new Model

 

   model = m_Repository.Models.AddNew("AdvancedModel","")

   If not model.Update() Then

       Console.WriteLine(model.GetLastError())

   End If

 

   ''refresh the models collection

   m_Repository.Models.Refresh

 

   ''now work through models collection and add a package

 

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

       o = m_Repository.Models.GetAt(idx)

       Console.WriteLine(o.Name)

       If o.Name = "AdvancedModel" Then

               package = o.Packages.Addnew("Subpackage","Nothing")

               If not package.Update() Then

                   Console.WriteLine(package.GetLastError())

               End If

             

               package.Element.Stereotype = "system"

               package.Update

 

 

               ''for testing purposes just delete the

               ''newly created Model and its contents

               m_Repository.Models.Delete(idx)

 

       End If

   Next

 

End Sub