DG>class A
DG>{
DG>  int A;
DG>  string B;
DG>  double C;
DG>  Properties <PropsForSave>()
DG>  {
DG>    return <list>{A.A, A.C};
DG>  }
DG>  void Save(IStream stream)
DG>  {
DG>     <foreach> (Property <prop> in <PropsForSave)
DG>       stream.Save(<prop>.Name);
DG>  }
DG>} 
DG>

class TestA : public ddx::controller<TestA, Loki::NullType>, public CDialog
{
    typedef ddx::controller<derived_type, base_type> parent_t;
protected:
    typedef ddx::member<CString, IDC_SERVER, Ser, &DDX_CBString> m_Server;
    typedef ddx::member<CString, IDC_PROCESS_NAME, Ser, &DDX_Text> m_ProcessName;
    typedef ddx::members<TYPELIST_2(m_Server, m_ProcessName)> members_info;
public:
    TestA(CWnd *wnd) {}
    members_info ddxMembers;
};

class TestC : public ddx::controller<TestC, TestA>
{
    typedef ddx::controller<derived_type, base_type> parent_t;
protected:
    typedef ddx::members<Loki::NullType> members_info;
public:
    TestC(CWnd *wnd) : parent_t(wnd) {}
    members_info ddxMembers;
};

class TestB : public ddx::controller<TestB, TestC>
{
    typedef ddx::controller<derived_type, base_type> parent_t;
protected:
    typedef ddx::member<BOOL, IDC_CREATEMM, Ser, &DDX_Check> m_CreateMM;
    typedef ddx::members<TYPELIST_1(m_CreateMM)> members_info;
public:
    TestB(CWnd *wnd) : parent_t(wnd) {}
    members_info ddxMembers;
};

_>REGISTER_CLASS("CategoryInfo", CategoryInfo)
_>  REGISTER_MEMBER("CategoryID", CategoryID)
_>  REGISTER_MEMBER("CategoryName", CategoryName)
_>  REGISTER_MEMBER("Count", Count)
_>END_REGISTER_CLASS()