]> git.saurik.com Git - wxWidgets.git/blobdiff - src/common/xtixml.cpp
Add missing WXK constants for the control keys
[wxWidgets.git] / src / common / xtixml.cpp
index 4ada35548995321ab5c94bca59b06dfe08fc63a9..ce70649d9c56b58e183560ccda82a83f0e28e380 100644 (file)
@@ -1,5 +1,5 @@
 /////////////////////////////////////////////////////////////////////////////
 /////////////////////////////////////////////////////////////////////////////
-// Name:        src/common/xtistrm.cpp
+// Name:        src/common/xtixml.cpp
 // Purpose:     streaming runtime metadata information
 // Author:      Stefan Csomor
 // Modified by:
 // Purpose:     streaming runtime metadata information
 // Author:      Stefan Csomor
 // Modified by:
@@ -9,10 +9,6 @@
 // Licence:     wxWindows licence
 /////////////////////////////////////////////////////////////////////////////
 
 // Licence:     wxWindows licence
 /////////////////////////////////////////////////////////////////////////////
 
-#if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
-#pragma implementation "xtistrm.h"
-#endif
-
 // For compilers that support precompilation, includes "wx.h".
 #include "wx/wxprec.h"
 
 // For compilers that support precompilation, includes "wx.h".
 #include "wx/wxprec.h"
 
 #pragma hdrstop
 #endif
 
 #pragma hdrstop
 #endif
 
+#if wxUSE_EXTENDED_RTTI
+
+#include "wx/xtistrm.h"
+
 #ifndef WX_PRECOMP
 #ifndef WX_PRECOMP
-#include "wx/hash.h"
-#include "wx/object.h"
+    #include "wx/object.h"
+    #include "wx/hash.h"
+    #include "wx/event.h"
 #endif
 
 #include "wx/xml/xml.h"
 #include "wx/tokenzr.h"
 #include "wx/txtstrm.h"
 #endif
 
 #include "wx/xml/xml.h"
 #include "wx/tokenzr.h"
 #include "wx/txtstrm.h"
-#include "wx/event.h"
-
-#if wxUSE_EXTENDED_RTTI
-
 #include "wx/xtistrm.h"
 #include "wx/xtixml.h"
 
 #include "wx/xtistrm.h"
 #include "wx/xtixml.h"
 
+// STL headers
+
 #include "wx/beforestd.h"
 #include <map>
 #include <vector>
 #include <string>
 #include "wx/afterstd.h"
 
 #include "wx/beforestd.h"
 #include <map>
 #include <vector>
 #include <string>
 #include "wx/afterstd.h"
 
-using namespace std ;
+using namespace std;
 
 
-//
-// XML Streaming
-//
+
+
+
+// ----------------------------------------------------------------------------
+// wxObjectXmlWriter
+// ----------------------------------------------------------------------------
 
 // convenience functions
 
 
 // convenience functions
 
-void wxXmlAddContentToNode( wxXmlNode* node , const wxString& data )
+void wxXmlAddContentToNode( wxXmlNode* node, const wxString& data )
 {
 {
-    node->AddChild(new wxXmlNode(wxXML_TEXT_NODE, "value", data ) );
+    node->AddChild(new wxXmlNode(wxXML_TEXT_NODE, wxT("value"), data ) );
 }
 
 wxString wxXmlGetContentFromNode( wxXmlNode *node )
 {
     if ( node->GetChildren() )
 }
 
 wxString wxXmlGetContentFromNode( wxXmlNode *node )
 {
     if ( node->GetChildren() )
-        return node->GetChildren()->GetContent() ;
+        return node->GetChildren()->GetContent();
     else
     else
-        return wxEmptyString ;
+        return wxEmptyString;
 }
 
 }
 
-struct wxXmlWriter::wxXmlWriterInternal
+struct wxObjectXmlWriter::wxObjectXmlWriterInternal
 {
 {
-    wxXmlNode *m_root ;
-    wxXmlNode *m_current ;
-    vector< wxXmlNode * > m_objectStack ;
+    wxXmlNode *m_root;
+    wxXmlNode *m_current;
+    vector< wxXmlNode * > m_objectStack;
 
     void Push( wxXmlNode *newCurrent )
     {
 
     void Push( wxXmlNode *newCurrent )
     {
-        m_objectStack.push_back( m_current ) ;
-        m_current = newCurrent ;
+        m_objectStack.push_back( m_current );
+        m_current = newCurrent;
     }
 
     void Pop()
     {
     }
 
     void Pop()
     {
-        m_current = m_objectStack.back() ;
-        m_objectStack.pop_back() ;
+        m_current = m_objectStack.back();
+        m_objectStack.pop_back();
     }
     }
-} ;
+};
 
 
-wxXmlWriter::wxXmlWriter( wxXmlNode * rootnode )
+wxObjectXmlWriter::wxObjectXmlWriter( wxXmlNode * rootnode )
 {
 {
-    m_data = new wxXmlWriterInternal() ;
-    m_data->m_root = rootnode ;
-    m_data->m_current = rootnode ;
+    m_data = new wxObjectXmlWriterInternal();
+    m_data->m_root = rootnode;
+    m_data->m_current = rootnode;
 }
 
 }
 
-wxXmlWriter::~wxXmlWriter()
+wxObjectXmlWriter::~wxObjectXmlWriter()
 {
 {
-    delete m_data ;
+    delete m_data;
 }
 
 }
 
-void wxXmlWriter::DoBeginWriteTopLevelEntry( const wxString &name )
+void wxObjectXmlWriter::DoBeginWriteTopLevelEntry( const wxString &name )
 {
     wxXmlNode *pnode;
     pnode = new wxXmlNode(wxXML_ELEMENT_NODE, wxT("entry"));
 {
     wxXmlNode *pnode;
     pnode = new wxXmlNode(wxXML_ELEMENT_NODE, wxT("entry"));
-    pnode->AddProperty(wxString("name"), name);
-    m_data->m_current->AddChild(pnode) ;
-    m_data->Push( pnode ) ;
+    pnode->AddProperty(wxString(wxT("name")), name);
+    m_data->m_current->AddChild(pnode);
+    m_data->Push( pnode );
 }
 
 }
 
-void wxXmlWriter::DoEndWriteTopLevelEntry( const wxString &WXUNUSED(name) )
+void wxObjectXmlWriter::DoEndWriteTopLevelEntry( const wxString &WXUNUSED(name) )
 {
 {
-    m_data->Pop() ;
+    m_data->Pop();
 }
 
 }
 
-void wxXmlWriter::DoBeginWriteObject(const wxObject *WXUNUSED(object), const wxClassInfo *classInfo, int objectID , wxxVariantArray &metadata   )
+void wxObjectXmlWriter::DoBeginWriteObject(const wxObject *WXUNUSED(object), 
+                                     const wxClassInfo *classInfo, 
+                                     int objectID, const wxStringToAnyHashMap &metadata   )
 {
     wxXmlNode *pnode;
     pnode = new wxXmlNode(wxXML_ELEMENT_NODE, wxT("object"));
     pnode->AddProperty(wxT("class"), wxString(classInfo->GetClassName()));
 {
     wxXmlNode *pnode;
     pnode = new wxXmlNode(wxXML_ELEMENT_NODE, wxT("object"));
     pnode->AddProperty(wxT("class"), wxString(classInfo->GetClassName()));
-    pnode->AddProperty(wxT("id"), wxString::Format( "%d" , objectID ) );
+    pnode->AddProperty(wxT("id"), wxString::Format( wxT("%d"), objectID ) );
 
 
-    for ( size_t i = 0 ; i < metadata.GetCount() ; ++i )
+    wxStringToAnyHashMap::const_iterator it, en;
+    for( it = metadata.begin(), en = metadata.end(); it != en; ++it )
     {
     {
-        pnode->AddProperty( metadata[i].GetName() , metadata[i].GetAsString() ) ;
+        pnode->AddProperty( it->first, wxAnyGetAsString(it->second) );
     }
     }
-    m_data->m_current->AddChild(pnode) ;
-    m_data->Push( pnode ) ;
+
+    m_data->m_current->AddChild(pnode);
+    m_data->Push( pnode );
 }
 
 }
 
-// end of writing the root object
-void wxXmlWriter::DoEndWriteObject(const wxObject *WXUNUSED(object), const wxClassInfo *WXUNUSED(classInfo), int WXUNUSED(objectID) )
+void wxObjectXmlWriter::DoEndWriteObject(const wxObject *WXUNUSED(object), 
+                                   const wxClassInfo *WXUNUSED(classInfo), 
+                                   int WXUNUSED(objectID) )
 {
 {
-    m_data->Pop() ;
+    m_data->Pop();
 }
 
 }
 
-// writes a property in the stream format
-void wxXmlWriter::DoWriteSimpleType( wxxVariant &value )
+void wxObjectXmlWriter::DoWriteSimpleType( const wxAny &value )
 {
 {
-    wxXmlAddContentToNode( m_data->m_current ,value.GetAsString() ) ;
+    wxXmlAddContentToNode( m_data->m_current,wxAnyGetAsString(value) );
 }
 
 }
 
-void wxXmlWriter::DoBeginWriteElement()
+void wxObjectXmlWriter::DoBeginWriteElement()
 {
     wxXmlNode *pnode;
 {
     wxXmlNode *pnode;
-    pnode = new wxXmlNode(wxXML_ELEMENT_NODE, "element" );
-    m_data->m_current->AddChild(pnode) ;
-    m_data->Push( pnode ) ;
+    pnode = new wxXmlNode(wxXML_ELEMENT_NODE, wxT("element") );
+    m_data->m_current->AddChild(pnode);
+    m_data->Push( pnode );
 }
 
 }
 
-void wxXmlWriter::DoEndWriteElement()
+void wxObjectXmlWriter::DoEndWriteElement()
 {
 {
-    m_data->Pop() ;
+    m_data->Pop();
 }
 
 }
 
-void wxXmlWriter::DoBeginWriteProperty(const wxPropertyInfo *pi )
+void wxObjectXmlWriter::DoBeginWriteProperty(const wxPropertyInfo *pi )
 {
     wxXmlNode *pnode;
 {
     wxXmlNode *pnode;
-    pnode = new wxXmlNode(wxXML_ELEMENT_NODE, "prop" );
+    pnode = new wxXmlNode(wxXML_ELEMENT_NODE, wxT("prop") );
     pnode->AddProperty(wxT("name"), pi->GetName() );
     pnode->AddProperty(wxT("name"), pi->GetName() );
-    m_data->m_current->AddChild(pnode) ;
-    m_data->Push( pnode ) ;
+    m_data->m_current->AddChild(pnode);
+    m_data->Push( pnode );
 }
 
 }
 
-void wxXmlWriter::DoEndWriteProperty(const wxPropertyInfo *WXUNUSED(propInfo) )
+void wxObjectXmlWriter::DoEndWriteProperty(const wxPropertyInfo *WXUNUSED(propInfo) )
 {
 {
-    m_data->Pop() ;
+    m_data->Pop();
 }
 
 }
 
-
-
-// insert an object reference to an already written object
-void wxXmlWriter::DoWriteRepeatedObject( int objectID )
+void wxObjectXmlWriter::DoWriteRepeatedObject( int objectID )
 {
     wxXmlNode *pnode;
     pnode = new wxXmlNode(wxXML_ELEMENT_NODE, wxT("object"));
 {
     wxXmlNode *pnode;
     pnode = new wxXmlNode(wxXML_ELEMENT_NODE, wxT("object"));
-    pnode->AddProperty(wxString("href"), wxString::Format( "%d" , objectID ) );
-    m_data->m_current->AddChild(pnode) ;
+    pnode->AddProperty(wxString(wxT("href")), wxString::Format( wxT("%d"), objectID ) );
+    m_data->m_current->AddChild(pnode);
 }
 
 }
 
-// insert a null reference
-void wxXmlWriter::DoWriteNullObject()
+void wxObjectXmlWriter::DoWriteNullObject()
 {
     wxXmlNode *pnode;
     pnode = new wxXmlNode(wxXML_ELEMENT_NODE, wxT("object"));
 {
     wxXmlNode *pnode;
     pnode = new wxXmlNode(wxXML_ELEMENT_NODE, wxT("object"));
-    m_data->m_current->AddChild(pnode) ;
+    m_data->m_current->AddChild(pnode);
 }
 
 }
 
-// writes a delegate in the stream format
-void wxXmlWriter::DoWriteDelegate( const wxObject *WXUNUSED(object),  const wxClassInfo* WXUNUSED(classInfo) , const wxPropertyInfo *WXUNUSED(pi) ,
-                                  const wxObject *eventSink, int sinkObjectID , const wxClassInfo* WXUNUSED(eventSinkClassInfo) , const wxHandlerInfo* handlerInfo )
+void wxObjectXmlWriter::DoWriteDelegate( const wxObject *WXUNUSED(object), 
+                                   const wxClassInfo* WXUNUSED(classInfo), 
+                                   const wxPropertyInfo *WXUNUSED(pi),
+                                   const wxObject *eventSink, int sinkObjectID, 
+                                   const wxClassInfo* WXUNUSED(eventSinkClassInfo), 
+                                   const wxHandlerInfo* handlerInfo )
 {
     if ( eventSink != NULL && handlerInfo != NULL )
     {
 {
     if ( eventSink != NULL && handlerInfo != NULL )
     {
-        wxXmlAddContentToNode( m_data->m_current ,wxString::Format(wxT("%d.%s"), sinkObjectID , handlerInfo->GetName().c_str()) ) ;
+        wxXmlAddContentToNode( m_data->m_current,
+            wxString::Format(wxT("%d.%s"), sinkObjectID, handlerInfo->GetName().c_str()) );
     }
 }
 
     }
 }
 
-// ----------------------------------------------------------------------------
-// reading objects in
-// ----------------------------------------------------------------------------
-
-
 
 // ----------------------------------------------------------------------------
 
 // ----------------------------------------------------------------------------
-// reading xml in
+// wxObjectXmlReader
 // ----------------------------------------------------------------------------
 
 /*
 // ----------------------------------------------------------------------------
 
 /*
@@ -206,251 +207,347 @@ as properties are always sought by typeinfo over all levels
 and create params are always toplevel class only
 */
 
 and create params are always toplevel class only
 */
 
-int wxXmlReader::ReadComponent(wxXmlNode *node, wxDepersister *callbacks)
+int wxObjectXmlReader::ReadComponent(wxXmlNode *node, wxObjectReaderCallback *callbacks)
 {
 {
-    wxASSERT_MSG( callbacks , wxT("Does not support reading without a Depersistor") ) ;
+    wxASSERT_MSG( callbacks, wxT("Does not support reading without a Depersistor") );
     wxString className;
     wxClassInfo *classInfo;
 
     wxString className;
     wxClassInfo *classInfo;
 
-    wxxVariant *createParams ;
-    int *createParamOids ;
-    const wxClassInfo** createClassInfos ;
+    wxAny *createParams;
+    int *createParamOids;
+    const wxClassInfo** createClassInfos;
     wxXmlNode *children;
     int objectID;
     wxXmlNode *children;
     int objectID;
-    wxString ObjectIdString ;
+    wxString ObjectIdString;
 
     children = node->GetChildren();
     if (!children)
     {
         // check for a null object or href
 
     children = node->GetChildren();
     if (!children)
     {
         // check for a null object or href
-        if (node->GetPropVal("href" , &ObjectIdString ) )
+        if (node->GetAttribute(wxT("href"), &ObjectIdString ) )
         {
         {
-            objectID = atoi( ObjectIdString.c_str() ) ;
-            wxASSERT_MSG( HasObjectClassInfo( objectID ) , wxT("Forward hrefs are not supported") ) ;
-            return objectID ;
+            objectID = atoi( ObjectIdString.ToAscii() );
+            if ( HasObjectClassInfo( objectID ) )
+            {
+                return objectID;
+            }
+            else
+            {
+                wxLogError( _("Forward hrefs are not supported") );
+                return wxInvalidObjectID;
+            }
         }
         }
-        if ( !node->GetPropVal("id" , &ObjectIdString ) )
+        if ( !node->GetAttribute(wxT("id"), &ObjectIdString ) )
         {
             return wxNullObjectID;
         }
     }
         {
             return wxNullObjectID;
         }
     }
-    if (!node->GetPropVal("class", &className))
+    if (!node->GetAttribute(wxT("class"), &className))
     {
         // No class name.  Eek. FIXME: error handling
         return wxInvalidObjectID;
     }
     {
         // No class name.  Eek. FIXME: error handling
         return wxInvalidObjectID;
     }
+
     classInfo = wxClassInfo::FindClass(className);
     classInfo = wxClassInfo::FindClass(className);
-    wxASSERT_MSG( classInfo , wxString::Format(wxT("unknown class %s"),className ) ) ;
-    wxASSERT_MSG( !children || children->GetType() != wxXML_TEXT_NODE , wxT("objects cannot have XML Text Nodes") ) ;
-    if (!node->GetPropVal("id", &ObjectIdString))
+    if ( classInfo == NULL )
     {
     {
-        wxASSERT_MSG(0,wxT("Objects must have an id attribute") ) ;
+        wxLogError( wxString::Format(_("unknown class %s"),className ) );
+        return wxInvalidObjectID;
+    }
+
+    if ( children != NULL && children->GetType() == wxXML_TEXT_NODE )
+    {
+        wxLogError(_("objects cannot have XML Text Nodes") );
+        return wxInvalidObjectID;
+    }
+    if (!node->GetAttribute(wxT("id"), &ObjectIdString))
+    {
+        wxLogError(_("Objects must have an id attribute") );
         // No object id.  Eek. FIXME: error handling
         return wxInvalidObjectID;
     }
         // No object id.  Eek. FIXME: error handling
         return wxInvalidObjectID;
     }
-    objectID = atoi( ObjectIdString.c_str() ) ;
+    objectID = atoi( ObjectIdString.ToAscii() );
+
     // is this object already has been streamed in, return it here
     // is this object already has been streamed in, return it here
-    wxASSERT_MSG( !HasObjectClassInfo( objectID ) , wxString::Format(wxT("Doubly used id : %d"), objectID ) ) ;
+    if ( HasObjectClassInfo( objectID ) )
+    {
+        wxLogError ( wxString::Format(_("Doubly used id : %d"), objectID ) );
+        return wxInvalidObjectID;
+    }
 
     // new object, start with allocation
     // first make the object know to our internal registry
 
     // new object, start with allocation
     // first make the object know to our internal registry
-    SetObjectClassInfo( objectID , classInfo ) ;
+    SetObjectClassInfo( objectID, classInfo );
 
 
-    wxxVariantArray metadata ;
-    wxXmlProperty *xp = node->GetProperties() ;
+    wxStringToAnyHashMap metadata;
+    wxXmlProperty *xp = node->GetAttributes();
     while ( xp )
     {
     while ( xp )
     {
-        if ( xp->GetName() != wxString("class") && xp->GetName() != wxString("id") )
+        if ( xp->GetName() != wxString(wxT("class")) && 
+             xp->GetName() != wxString(wxT("id")) )
         {
         {
-            metadata.Add( new wxxVariant( xp->GetValue() , xp->GetName() ) ) ;
+            metadata[xp->GetName()] = wxAny( xp->GetValue() );
         }
         }
-        xp = xp->GetNext() ;
+        xp = xp->GetNext();
     }
     }
-    callbacks->AllocateObject(objectID, classInfo, metadata);
+    if ( !classInfo->NeedsDirectConstruction() )
+        callbacks->AllocateObject(objectID, classInfo, metadata);
 
     //
     // stream back the Create parameters first
 
     //
     // stream back the Create parameters first
-    createParams = new wxxVariant[ classInfo->GetCreateParamCount() ] ;
-    createParamOids = new int[classInfo->GetCreateParamCount() ] ;
-    createClassInfos = new const wxClassInfo*[classInfo->GetCreateParamCount() ] ;
-
-    typedef map<string, wxXmlNode *> PropertyNodes ;
-    typedef vector<string> PropertyNames ;
-
-    PropertyNodes propertyNodes ;
-    PropertyNames propertyNames ;
+    createParams = new wxAny[ classInfo->GetCreateParamCount() ];
+    createParamOids = new int[classInfo->GetCreateParamCount() ];
+    createClassInfos = new const wxClassInfo*[classInfo->GetCreateParamCount() ];
+
+#if wxUSE_UNICODE
+    typedef map<wstring, wxXmlNode *> PropertyNodes;
+    typedef vector<wstring> PropertyNames;
+#else
+    typedef map<string, wxXmlNode *> PropertyNodes;
+    typedef vector<string> PropertyNames;
+#endif
+    PropertyNodes propertyNodes;
+    PropertyNames propertyNames;
 
     while( children )
     {
 
     while( children )
     {
-        wxString name ;
-        children->GetPropVal( wxT("name") , &name ) ;
-        propertyNames.push_back( name.c_str() ) ;
-        propertyNodes[name.c_str()] = children->GetChildren() ;
-        children = children->GetNext() ;
+        wxString name;
+        children->GetAttribute( wxT("name"), &name );
+        propertyNames.push_back( (const wxChar*)name.c_str() );
+        propertyNodes[(const wxChar*)name.c_str()] = children->GetChildren();
+        children = children->GetNext();
     }
 
     }
 
-    for ( int i = 0 ; i <classInfo->GetCreateParamCount() ; ++i )
+    for ( int i = 0; i <classInfo->GetCreateParamCount(); ++i )
     {
     {
-        const wxChar* paramName = classInfo->GetCreateParamName(i) ;
-        PropertyNodes::iterator propiter = propertyNodes.find( paramName ) ;
-        const wxPropertyInfo* pi = classInfo->FindPropertyInfo( paramName ) ;
-        wxASSERT_MSG(pi,wxString::Format("Unkown Property %s",paramName) ) ;
+        const wxChar* paramName = classInfo->GetCreateParamName(i);
+        PropertyNodes::iterator propiter = propertyNodes.find( paramName );
+        const wxPropertyInfo* pi = classInfo->FindPropertyInfo( paramName );
+        if ( pi == 0 )
+        {
+            wxLogError( wxString::Format(_("Unknown Property %s"),paramName) );
+        }
         // if we don't have the value of a create param set in the xml
         // we use the default value
         if ( propiter != propertyNodes.end() )
         {
         // if we don't have the value of a create param set in the xml
         // we use the default value
         if ( propiter != propertyNodes.end() )
         {
-            wxXmlNode* prop = propiter->second ;
+            wxXmlNode* prop = propiter->second;
             if ( pi->GetTypeInfo()->IsObjectType() )
             {
             if ( pi->GetTypeInfo()->IsObjectType() )
             {
-                createParamOids[i] = ReadComponent( prop , callbacks ) ;
-                createClassInfos[i] = dynamic_cast<const wxClassTypeInfo*>(pi->GetTypeInfo())->GetClassInfo() ;
+                createParamOids[i] = ReadComponent( prop, callbacks );
+                createClassInfos[i] = 
+                    wx_dynamic_cast(const wxClassTypeInfo*, pi->GetTypeInfo())->GetClassInfo();
             }
             else
             {
             }
             else
             {
-                createParamOids[i] = wxInvalidObjectID ;
-                createParams[i] = ReadValue( prop , pi->GetTypeInfo() ) ;
+                createParamOids[i] = wxInvalidObjectID;
+                createParams[i] = ReadValue( prop, pi->GetTypeInfo() );
                 if( pi->GetFlags() & wxPROP_ENUM_STORE_LONG )
                 {
                 if( pi->GetFlags() & wxPROP_ENUM_STORE_LONG )
                 {
-                    const wxEnumTypeInfo *eti = dynamic_cast<const wxEnumTypeInfo*>( pi->GetTypeInfo() ) ;
-                    wxASSERT_MSG( eti , wxT("Type must have enum - long conversion") ) ;
-
-                    long realval ;
-                    eti->ConvertToLong( createParams[i]  , realval ) ;
-                    createParams[i] = wxxVariant( realval ) ;
+                    const wxEnumTypeInfo *eti = 
+                        wx_dynamic_cast(const wxEnumTypeInfo*, pi->GetTypeInfo() );
+                    if ( eti )
+                    {
+                        long realval;
+                        eti->ConvertToLong( createParams[i], realval );
+                        createParams[i] = wxAny( realval );
+                    }
+                    else
+                    {
+                        wxLogError( _("Type must have enum - long conversion") );
+                    }
                 }
                 }
-                createClassInfos[i] = NULL ;
+                createClassInfos[i] = NULL;
             }
 
             }
 
-            for ( size_t j = 0 ; j < propertyNames.size() ; ++j )
+            for ( size_t j = 0; j < propertyNames.size(); ++j )
             {
                 if ( propertyNames[j] == paramName )
                 {
             {
                 if ( propertyNames[j] == paramName )
                 {
-                    propertyNames[j] = "" ;
-                    break ;
+                    propertyNames[j] = wxEmptyString;
+                    break;
                 }
             }
         }
         else
         {
                 }
             }
         }
         else
         {
-            createParams[i] = pi->GetDefaultValue() ;
+            if ( pi->GetTypeInfo()->IsObjectType() )
+            {
+                createParamOids[i] = wxNullObjectID;
+                createClassInfos[i] = 
+                    wx_dynamic_cast(const wxClassTypeInfo*, pi->GetTypeInfo())->GetClassInfo();
+            }
+            else
+            {
+                createParams[i] = pi->GetDefaultValue();
+                createParamOids[i] = wxInvalidObjectID;
+            }
         }
     }
 
     // got the parameters.  Call the Create method
         }
     }
 
     // got the parameters.  Call the Create method
-    callbacks->CreateObject(objectID, classInfo,
-        classInfo->GetCreateParamCount(),
-        createParams, createParamOids, createClassInfos, metadata );
+    if ( classInfo->NeedsDirectConstruction() )
+        callbacks->ConstructObject(objectID, classInfo,
+            classInfo->GetCreateParamCount(),
+            createParams, createParamOids, createClassInfos, metadata );
+    else
+        callbacks->CreateObject(objectID, classInfo,
+            classInfo->GetCreateParamCount(),
+            createParams, createParamOids, createClassInfos, metadata );
 
 
-    // now stream in the rest of the properties, in the sequence their properties were written in the xml
-    for ( size_t j = 0 ; j < propertyNames.size() ; ++j )
+    // now stream in the rest of the properties, in the sequence their 
+    // properties were written in the xml
+    for ( size_t j = 0; j < propertyNames.size(); ++j )
     {
     {
-        if ( propertyNames[j].length() )
+        if ( !propertyNames[j].empty() )
         {
         {
-            PropertyNodes::iterator propiter = propertyNodes.find( propertyNames[j] ) ;
+            PropertyNodes::iterator propiter = propertyNodes.find( propertyNames[j] );
             if ( propiter != propertyNodes.end() )
             {
             if ( propiter != propertyNodes.end() )
             {
-                wxXmlNode* prop = propiter->second ;
-                const wxPropertyInfo* pi = classInfo->FindPropertyInfo( propertyNames[j].c_str() ) ;
+                wxXmlNode* prop = propiter->second;
+                const wxPropertyInfo* pi = 
+                    classInfo->FindPropertyInfo( propertyNames[j].c_str() );
                 if ( pi->GetTypeInfo()->GetKind() == wxT_COLLECTION )
                 {
                 if ( pi->GetTypeInfo()->GetKind() == wxT_COLLECTION )
                 {
-                    const wxCollectionTypeInfo* collType = dynamic_cast< const wxCollectionTypeInfo* >( pi->GetTypeInfo() ) ;
-                    const wxTypeInfo * elementType = collType->GetElementType() ;
+                    const wxCollectionTypeInfo* collType = 
+                        wx_dynamic_cast( const wxCollectionTypeInfo*, pi->GetTypeInfo() );
+                    const wxTypeInfo * elementType = collType->GetElementType();
                     while( prop )
                     {
                     while( prop )
                     {
-                        wxASSERT_MSG(prop->GetName() == wxT("element") , wxT("A non empty collection must consist of 'element' nodes")) ;
-                        wxXmlNode* elementContent = prop->GetChildren() ;
+                        if ( prop->GetName() != wxT("element") )
+                        {
+                            wxLogError( _("A non empty collection must consist of 'element' nodes" ) );
+                            break;
+                        }
+
+                        wxXmlNode* elementContent = prop->GetChildren();
                         if ( elementContent )
                         {
                             // we skip empty elements
                             if ( elementType->IsObjectType() )
                             {
                         if ( elementContent )
                         {
                             // we skip empty elements
                             if ( elementType->IsObjectType() )
                             {
-                                int valueId = ReadComponent( elementContent , callbacks ) ;
+                                int valueId = ReadComponent( elementContent, callbacks );
                                 if ( valueId != wxInvalidObjectID )
                                 {
                                     if ( pi->GetAccessor()->HasAdder() )
                                 if ( valueId != wxInvalidObjectID )
                                 {
                                     if ( pi->GetAccessor()->HasAdder() )
-                                        callbacks->AddToPropertyCollectionAsObject( objectID , classInfo , pi , valueId ) ;
+                                        callbacks->AddToPropertyCollectionAsObject( objectID, classInfo, pi, valueId );
                                     // TODO for collections we must have a notation on taking over ownership or not
                                     if ( elementType->GetKind() == wxT_OBJECT && valueId != wxNullObjectID )
                                     // TODO for collections we must have a notation on taking over ownership or not
                                     if ( elementType->GetKind() == wxT_OBJECT && valueId != wxNullObjectID )
-                                        callbacks->DestroyObject( valueId , GetObjectClassInfo( valueId ) ) ;
+                                        callbacks->DestroyObject( valueId, GetObjectClassInfo( valueId ) );
                                 }
                             }
                             else
                             {
                                 }
                             }
                             else
                             {
-                                wxxVariant elementValue = ReadValue( elementContent , elementType ) ;
+                                wxAny elementValue = ReadValue( elementContent, elementType );
                                 if ( pi->GetAccessor()->HasAdder() )
                                 if ( pi->GetAccessor()->HasAdder() )
-                                    callbacks->AddToPropertyCollection( objectID , classInfo ,pi , elementValue ) ;
+                                    callbacks->AddToPropertyCollection( objectID, classInfo,pi, elementValue );
                             }
                         }
                             }
                         }
-                        prop = prop->GetNext() ;
+                        prop = prop->GetNext();
                     }
                 }
                 else if ( pi->GetTypeInfo()->IsObjectType() )
                 {
                     }
                 }
                 else if ( pi->GetTypeInfo()->IsObjectType() )
                 {
-                    int valueId = ReadComponent( prop , callbacks ) ;
-                    if ( valueId != wxInvalidObjectID )
+                    // and object can either be streamed out a string or as an object
+                    // in case we have no node, then the object's streaming out has been vetoed
+                    if ( prop )
                     {
                     {
-                        callbacks->SetPropertyAsObject( objectID , classInfo , pi , valueId ) ;
-                        if ( pi->GetTypeInfo()->GetKind() == wxT_OBJECT && valueId != wxNullObjectID )
-                            callbacks->DestroyObject( valueId , GetObjectClassInfo( valueId ) ) ;
+                        if ( prop->GetName() == wxT("object") )
+                        {
+                            int valueId = ReadComponent( prop, callbacks );
+                            if ( valueId != wxInvalidObjectID )
+                            {
+                                callbacks->SetPropertyAsObject( objectID, classInfo, pi, valueId );
+                                if ( pi->GetTypeInfo()->GetKind() == wxT_OBJECT && valueId != wxNullObjectID )
+                                    callbacks->DestroyObject( valueId, GetObjectClassInfo( valueId ) );
+                            }
+                        }
+                        else
+                        {
+                            wxASSERT( pi->GetTypeInfo()->HasStringConverters() );
+                            wxAny nodeval = ReadValue( prop, pi->GetTypeInfo() );
+                            callbacks->SetProperty( objectID, classInfo,pi, nodeval );
+                        }
                     }
                 }
                 else if ( pi->GetTypeInfo()->IsDelegateType() )
                 {
                     if ( prop )
                     {
                     }
                 }
                 else if ( pi->GetTypeInfo()->IsDelegateType() )
                 {
                     if ( prop )
                     {
-                        wxString resstring = prop->GetContent() ;
-                        wxInt32 pos = resstring.Find('.') ;
-                        assert( pos != wxNOT_FOUND ) ;
-                        int sinkOid = atol(resstring.Left(pos)) ;
-                        wxString handlerName = resstring.Mid(pos+1) ;
-                        wxClassInfo* sinkClassInfo = GetObjectClassInfo( sinkOid ) ;
-
-                        callbacks->SetConnect( objectID , classInfo , dynamic_cast<const wxDelegateTypeInfo*>(pi->GetTypeInfo()) , sinkClassInfo ,
-                            sinkClassInfo->FindHandlerInfo(handlerName) ,  sinkOid ) ;
+                        wxString resstring = prop->GetContent();
+                        wxInt32 pos = resstring.Find('.');
+                        if ( pos != wxNOT_FOUND )
+                        {
+                            int sinkOid = atol(resstring.Left(pos).ToAscii());
+                            wxString handlerName = resstring.Mid(pos+1);
+                            wxClassInfo* sinkClassInfo = GetObjectClassInfo( sinkOid );
+
+                            callbacks->SetConnect( objectID, classInfo, pi, sinkClassInfo,
+                                sinkClassInfo->FindHandlerInfo(handlerName.c_str()),  sinkOid );
+                        }
+                        else
+                        {
+                            wxLogError( _("incorrect event handler string, missing dot") );
+                        }
                     }
 
                 }
                 else
                 {
                     }
 
                 }
                 else
                 {
-                    wxxVariant nodeval ;
-                    callbacks->SetProperty( objectID, classInfo ,pi , ReadValue( prop , pi->GetTypeInfo() ) ) ;
+                    wxAny nodeval = ReadValue( prop, pi->GetTypeInfo() );
+                    if( pi->GetFlags() & wxPROP_ENUM_STORE_LONG )
+                    {
+                        const wxEnumTypeInfo *eti = 
+                            wx_dynamic_cast(const wxEnumTypeInfo*, pi->GetTypeInfo() );
+                        if ( eti )
+                        {
+                            long realval;
+                            eti->ConvertToLong( nodeval, realval );
+                            nodeval = wxAny( realval );
+                        }
+                        else
+                        {
+                            wxLogError( _("Type must have enum - long conversion") );
+                        }
+                    }
+                    callbacks->SetProperty( objectID, classInfo,pi, nodeval );
                 }
             }
         }
     }
 
                 }
             }
         }
     }
 
-    delete[] createParams ;
-    delete[] createParamOids ;
-    delete[] createClassInfos ;
+    delete[] createParams;
+    delete[] createParamOids;
+    delete[] createClassInfos;
 
     return objectID;
 }
 
 
     return objectID;
 }
 
-wxxVariant wxXmlReader::ReadValue(wxXmlNode *node,
+wxAny wxObjectXmlReader::ReadValue(wxXmlNode *node,
                                   const wxTypeInfo *type )
 {
                                   const wxTypeInfo *type )
 {
-    wxString content ;
+    wxString content;
     if ( node )
     if ( node )
-        content = node->GetContent() ;
-    wxxVariant result ;
-    type->ConvertFromString( content , result ) ;
-    return result ;
+        content = node->GetContent();
+    wxAny result;
+    type->ConvertFromString( content, result );
+    return result;
 }
 
 }
 
-int wxXmlReader::ReadObject( const wxString &name , wxDepersister *callbacks)
+int wxObjectXmlReader::ReadObject( const wxString &name, wxObjectReaderCallback *callbacks)
 {
 {
-    wxXmlNode *iter = m_parent->GetChildren() ;
+    wxXmlNode *iter = m_parent->GetChildren();
     while ( iter )
     {
     while ( iter )
     {
-        wxString entryName ;
-        if ( iter->GetPropVal("name", &entryName) )
+        wxString entryName;
+        if ( iter->GetAttribute(wxT("name"), &entryName) )
         {
             if ( entryName == name )
         {
             if ( entryName == name )
-                return ReadComponent( iter->GetChildren() , callbacks ) ;
+                return ReadComponent( iter->GetChildren(), callbacks );
         }
         }
-        iter = iter->GetNext() ;
+        iter = iter->GetNext();
     }
     }
-    return wxInvalidObjectID ;
+    return wxInvalidObjectID;
 }
 
 }
 
-#endif
+#endif // wxUSE_EXTENDED_RTTI