CX_OBJECT_MANAGER::NewMetaClass

Var (segment, coll0, coll1, collg)  // already contaning CXS_SEGMENT and CXS_REP_COLLECTIONs

    .  .  .

    Window(winClass, 33, 11, 619, 36, "Pseudo-Class")
    [
      Var(omgr, metaClass)
      INITIALIZE: GetManager(OBJECT) -> omgr  // we need the object manager
    ]
    {
      Prompt(FONT(0), BLUE, 11, 11, "Name")
      String(CX_META_CLASS::internalName, 120, 11, 210) // to enter name of pseudo-class

      Prompt(FONT(0), BLUE, 345, 11, "classID")
      Integer(CX_META_CLASS::realWorldClassID, 420, 11, 130)  // to enter numerical classID

      Prompt(FONT(0), BLUE, 11, 22, "derive from")
      ObjectCombobox(CX_META_CLASS::superClass, 120, 22, 430, 50) // derive from another class (pseudo or real one)
      [ INITIALIZE: 0 SetSort
        omgr Call(GetMetaClasses) FillObox  // show all classes known to the object manager
      ]

      Button(RED, 17, 45, 100, 7, "create")
      [ SELECT: omgr Call(NewMetaClass) -> metaClass,  // create new CX_META_CLASS
                metaClass FillWindow(, winClass)  // write input into object
                0 segment,  // layer and segment
                [ coll0, coll1 ] collg  // collections for domain 0 / 1 and for deleted objects (garbage)
                metaClass Call(SetPersistenceInfo)
                metaClass Call(Integrate)
        // now objects of the new pseudo class could be created
      ]
    }