List of objects

Hi

What would be the preferred way to keep a list of (dynamically allocated)
objects (or pointers to objects)
without preventing them to be destroyed ?
In VO pseudo code:

CLASS ObjectList

METHOD AddMember() CLASS ObjectList
    Local oMember    as object

    oMember := ObjectListMember{Self}

    Self:RegisterMember(oMember)

    RETURN oMember

METHOD RegisterMember(oMember) CLASS ObjectList
    // What to do here ?

METHOD UnRegisterMember(oMember) CLASS ObjectList
    // What to do here ?

METHOD NotifyMembers(kNotifyCode) CLASS ObjectList
    // Traverse the list, and notify each member
    // What to do here ?

CLASS ObjectListMember
    Protect w_oObjectList    as ObjectList

METHOD Init(oObjectList) CLASS ObjectListMember
    w_oObjectList := oObjectList

    RegisterAxit(Self)

    RETURN Self

METHOD Axit() CLASS oObjectListMember
    w_oObjectList:UnregisterMember(Self)

    UnRegisterAxit(Self)

    RETURN NIL

METHOD Notify() CLASS ObjectListMember
    ...
    RETURN NIL

Thx.

--
Dieter De Doncker
CMS