]> git.saurik.com Git - wxWidgets.git/blobdiff - src/common/xti.cpp
Shell version of dllar, needed for building DLLs while generating
[wxWidgets.git] / src / common / xti.cpp
index 52eb0a771527526bdef624cc1526b2b44ca623ff..53203626127b7583dc9888d28ba13266c4600e35 100644 (file)
@@ -10,7 +10,7 @@
 // Licence:     wxWindows licence
 /////////////////////////////////////////////////////////////////////////////
 
-#ifdef __GNUG__
+#if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
 #pragma implementation "xti.h"
 #endif
 
 #endif
 
 #ifndef WX_PRECOMP
-    #include "wx/hash.h"
-    #include "wx/object.h"
+#include "wx/hash.h"
+#include "wx/object.h"
 #endif
 
+#if wxUSE_EXTENDED_RTTI
+
+#include "wx/xti.h"
 #include "wx/xml/xml.h"
 #include "wx/tokenzr.h"
-
+#include "wx/list.h"
 #include <string.h>
 
-#if wxUSE_EXTENDED_RTTI
+#include "wx/beforestd.h"
+#include <map>
+#include <string>
+#include <list>
+#include "wx/afterstd.h"
+
+using namespace std ;
 
 // ----------------------------------------------------------------------------
 // Enum Support
 
 wxEnumData::wxEnumData( wxEnumMemberData* data )
 {
-       m_members = data ;
+    m_members = data ;
     for ( m_count = 0; m_members[m_count].m_name ; m_count++)
-               {} ;
+    {} ;
 }
 
-bool wxEnumData::HasEnumMemberValue(const wxChar *name, int *value)
+bool wxEnumData::HasEnumMemberValue(const wxChar *name, int *value) const
 {
     int i;
     for (i = 0; m_members[i].m_name ; i++ )
-       {
-               if (!strcmp(name, m_members[i].m_name))
-               {
-                       if ( value )
-                               *value = m_members[i].m_value;
-                       return true ;
-               }
-       }
-       return false ;
+    {
+        if (!wxStrcmp(name, m_members[i].m_name))
+        {
+            if ( value )
+                *value = m_members[i].m_value;
+            return true ;
+        }
+    }
+    return false ;
 }
 
-int wxEnumData::GetEnumMemberValue(const wxChar *name)
+int wxEnumData::GetEnumMemberValue(const wxChar *name) const
 {
     int i;
     for (i = 0; m_members[i].m_name ; i++ )
-       {
-               if (!strcmp(name, m_members[i].m_name))
-               {
-                       return m_members[i].m_value;
-               }
-       }
+    {
+        if (!wxStrcmp(name, m_members[i].m_name))
+        {
+            return m_members[i].m_value;
+        }
+    }
     return 0 ;
 }
 
-const wxChar *wxEnumData::GetEnumMemberName(int value)
+const wxChar *wxEnumData::GetEnumMemberName(int value) const
 {
     int i;
     for (i = 0; m_members[i].m_name ; i++)
-               if (value == m_members[i].m_value)
-                       return m_members[i].m_name;
+        if (value == m_members[i].m_value)
+            return m_members[i].m_name;
 
-       return wxT("") ;
+    return wxT("") ;
 }
 
-int wxEnumData::GetEnumMemberValueByIndex( int idx )
+int wxEnumData::GetEnumMemberValueByIndex( int idx ) const
 {
-       // we should cache the count in order to avoid out-of-bounds errors
-       return m_members[idx].m_value ;
+    // we should cache the count in order to avoid out-of-bounds errors
+    return m_members[idx].m_value ;
 }
 
-const char * wxEnumData::GetEnumMemberNameByIndex( int idx )
+const wxChar * wxEnumData::GetEnumMemberNameByIndex( int idx ) const
 {
-       // we should cache the count in order to avoid out-of-bounds errors
-       return m_members[idx].m_name ;
+    // we should cache the count in order to avoid out-of-bounds errors
+    return m_members[idx].m_name ;
 }
 
 // ----------------------------------------------------------------------------
 // Type Information
 // ----------------------------------------------------------------------------
+// ----------------------------------------------------------------------------
+// value streaming
+// ----------------------------------------------------------------------------
 
-template<> const wxTypeInfo* wxGetTypeInfo( void * )
-{
-       static wxBuiltInTypeInfo s_typeInfo( wxT_VOID ) ;
-       return &s_typeInfo ;
-}
-
-template<> const wxTypeInfo* wxGetTypeInfo( bool * )
-{
-       static wxBuiltInTypeInfo s_typeInfo( wxT_BOOL ) ;
-       return &s_typeInfo ;
-}
+// streamer specializations
+// for all built-in types
 
-template<> const wxTypeInfo* wxGetTypeInfo( char * )
-{
-       static wxBuiltInTypeInfo s_typeInfo( wxT_CHAR ) ;
-       return &s_typeInfo ;
-}
+// bool
 
-template<> const wxTypeInfo* wxGetTypeInfo( unsigned char * )
+template<> void wxStringReadValue(const wxString &s , bool &data )
 {
-       static wxBuiltInTypeInfo s_typeInfo( wxT_UCHAR ) ;
-       return &s_typeInfo ;
+    int intdata ;
+    wxSscanf(s, _T("%d"), &intdata ) ;
+    data = (bool)intdata ;
 }
 
-template<> const wxTypeInfo* wxGetTypeInfo( int * )
+template<> void wxStringWriteValue(wxString &s , const bool &data )
 {
-       static wxBuiltInTypeInfo s_typeInfo( wxT_CHAR ) ;
-       return &s_typeInfo ;
+    s = wxString::Format(_T("%d"), data ) ;
 }
 
-template<> const wxTypeInfo* wxGetTypeInfo( unsigned int * )
-{
-       static wxBuiltInTypeInfo s_typeInfo( wxT_UCHAR ) ;
-       return &s_typeInfo ;
-}
+// char
 
-template<> const wxTypeInfo* wxGetTypeInfo( long * )
+template<> void wxStringReadValue(const wxString &s , char &data )
 {
-       static wxBuiltInTypeInfo s_typeInfo( wxT_CHAR ) ;
-       return &s_typeInfo ;
+    int intdata ;
+    wxSscanf(s, _T("%d"), &intdata ) ;
+    data = char(intdata) ;
 }
 
-template<> const wxTypeInfo* wxGetTypeInfo( unsigned long * )
+template<> void wxStringWriteValue(wxString &s , const char &data )
 {
-       static wxBuiltInTypeInfo s_typeInfo( wxT_UCHAR ) ;
-       return &s_typeInfo ;
+    s = wxString::Format(_T("%d"), data ) ;
 }
 
-template<> const wxTypeInfo* wxGetTypeInfo( float * )
-{
-       static wxBuiltInTypeInfo s_typeInfo( wxT_FLOAT ) ;
-       return &s_typeInfo ;
-}
+// unsigned char
 
-template<> const wxTypeInfo* wxGetTypeInfo( double * )
+template<> void wxStringReadValue(const wxString &s , unsigned char &data )
 {
-       static wxBuiltInTypeInfo s_typeInfo( wxT_DOUBLE ) ;
-       return &s_typeInfo ;
+    int intdata ;
+    wxSscanf(s, _T("%d"), &intdata ) ;
+    data = (unsigned char)(intdata) ;
 }
 
-template<> const wxTypeInfo* wxGetTypeInfo( wxString * )
+template<> void wxStringWriteValue(wxString &s , const unsigned char &data )
 {
-       static wxBuiltInTypeInfo s_typeInfo( wxT_STRING ) ;
-       return &s_typeInfo ;
+    s = wxString::Format(_T("%d"), data ) ;
 }
 
-// this are compiler induced specialization which are never used anywhere
-
-// char const *
-
-template<> const wxTypeInfo* wxGetTypeInfo( char const ** )
-{
-       assert(0) ;
-       static wxBuiltInTypeInfo s_typeInfo( wxT_VOID ) ;
-       return &s_typeInfo ;
-}
+// int
 
-template<> void wxStringReadValue(const wxString & , const char* & )
+template<> void wxStringReadValue(const wxString &s , int &data )
 {
-       assert(0) ;
+    wxSscanf(s, _T("%d"), &data ) ;
 }
 
-template<> void wxStringWriteValue(wxString & , char const * const & )
+template<> void wxStringWriteValue(wxString &s , const int &data )
 {
-       assert(0) ;
+    s = wxString::Format(_T("%d"), data ) ;
 }
 
-// char *
+// unsigned int
 
-template<> const wxTypeInfo* wxGetTypeInfo( char ** )
+template<> void wxStringReadValue(const wxString &s , unsigned int &data )
 {
-        assert(0) ;
-        static wxBuiltInTypeInfo s_typeInfo( wxT_VOID ) ;
-        return &s_typeInfo ;
+    wxSscanf(s, _T("%d"), &data ) ;
 }
 
-template<> void wxStringReadValue(const wxString & , char* & )
+template<> void wxStringWriteValue(wxString &s , const unsigned int &data )
 {
-        assert(0) ;
+    s = wxString::Format(_T("%d"), data ) ;
 }
 
-template<> void wxStringWriteValue(wxString & , char * const & )
-{
-        assert(0) ;
-}
+// long
 
-// const wxPoint
-/*
-template<> const wxTypeInfo* wxGetTypeInfo( const wxPoint * )
+template<> void wxStringReadValue(const wxString &s , long &data )
 {
-        assert(0) ;
-        static wxBuiltInTypeInfo s_typeInfo( wxT_VOID ) ;
-        return &s_typeInfo ;
+    wxSscanf(s, _T("%ld"), &data ) ;
 }
 
-template<> void wxStringReadValue(const wxString & , const wxPoint & )
+template<> void wxStringWriteValue(wxString &s , const long &data )
 {
-        assert(0) ;
+    s = wxString::Format(_T("%ld"), data ) ;
 }
-*/
-// ----------------------------------------------------------------------------
-// value streaming
-// ----------------------------------------------------------------------------
 
-// convenience function (avoids including xml headers in users code)
+// unsigned long
 
-void wxXmlAddContentToNode( wxXmlNode* node , const wxString& data )
+template<> void wxStringReadValue(const wxString &s , unsigned long &data )
 {
-       node->AddChild(new wxXmlNode(wxXML_TEXT_NODE, "value", data ) );
+    wxSscanf(s, _T("%ld"), &data ) ;
 }
 
-wxString wxXmlGetContentFromNode( wxXmlNode *node )
+template<> void wxStringWriteValue(wxString &s , const unsigned long &data )
 {
-       if ( node->GetChildren() )
-               return node->GetChildren()->GetContent() ;
-       else
-               return wxEmptyString ;
+    s = wxString::Format(_T("%ld"), data ) ;
 }
 
-// streamer specializations
-
-// TODO for all built-in types
+// float
 
-// long
-
-template<> void wxStringReadValue(const wxString &s , long &data )
+template<> void wxStringReadValue(const wxString &s , float &data )
 {
-       wxSscanf(s, _T("%ld"), &data ) ;
+    wxSscanf(s, _T("%f"), &data ) ;
 }
 
-template<> void wxStringWriteValue(wxString &s , const long &data )
+template<> void wxStringWriteValue(wxString &s , const float &data )
 {
-       s = wxString::Format("%ld", data ) ;
+    s = wxString::Format(_T("%f"), data ) ;
 }
 
-// int
+// double
 
-template<> void wxStringReadValue(const wxString &s , int &data )
+template<> void wxStringReadValue(const wxString &s , double &data )
 {
-       wxSscanf(s, _T("%d"), &data ) ;
+    wxSscanf(s, _T("%lf"), &data ) ;
 }
 
-template<> void wxStringWriteValue(wxString &s , const int &data )
+template<> void wxStringWriteValue(wxString &s , const double &data )
 {
-       s = wxString::Format("%d", data ) ;
+    s = wxString::Format(_T("%lf"), data ) ;
 }
 
 // wxString
 
 template<> void wxStringReadValue(const wxString &s , wxString &data )
 {
-       data = s ;
+    data = s ;
 }
 
 template<> void wxStringWriteValue(wxString &s , const wxString &data )
 {
-       s = data ;
+    s = data ;
 }
 
-/*
-       Custom Data Streaming / Type Infos
-       we will have to add this for all wx non object types, but it is also an example
-       for custom data structures
-*/
+// built-ins
+//
 
-// wxPoint
+wxBuiltInTypeInfo s_typeInfovoid( wxT_VOID , NULL , NULL , typeid(void).name() ) ;
+wxBuiltInTypeInfo s_typeInfobool( wxT_BOOL , &wxToStringConverter<bool> , &wxFromStringConverter<bool>, typeid(bool).name()) ;
+wxBuiltInTypeInfo s_typeInfochar( wxT_CHAR , &wxToStringConverter<char> , &wxFromStringConverter<char>, typeid(char).name()) ;
+wxBuiltInTypeInfo s_typeInfounsignedchar( wxT_UCHAR , &wxToStringConverter< unsigned char > , &wxFromStringConverter<unsigned char>, typeid(unsigned char).name()) ;
+wxBuiltInTypeInfo s_typeInfoint( wxT_INT , &wxToStringConverter<int> , &wxFromStringConverter<int>, typeid(int).name()) ;
+wxBuiltInTypeInfo s_typeInfounsignedint( wxT_UINT , &wxToStringConverter<unsigned int> , &wxFromStringConverter<unsigned int>, typeid(unsigned int).name()) ;
+wxBuiltInTypeInfo s_typeInfolong( wxT_LONG , &wxToStringConverter<long> , &wxFromStringConverter<long>, typeid(long).name()) ;
+wxBuiltInTypeInfo s_typeInfounsignedlong( wxT_ULONG , &wxToStringConverter<unsigned long> , &wxFromStringConverter<unsigned long>, typeid(unsigned long).name()) ;
+wxBuiltInTypeInfo s_typeInfofloat( wxT_FLOAT , &wxToStringConverter<float> , &wxFromStringConverter<float>, typeid(float).name()) ;
+wxBuiltInTypeInfo s_typeInfodouble( wxT_DOUBLE , &wxToStringConverter<double> , &wxFromStringConverter<double>, typeid(double).name()) ;
+wxBuiltInTypeInfo s_typeInfowxString( wxT_STRING , &wxToStringConverter<wxString> , &wxFromStringConverter<wxString>, typeid(wxString).name()) ;
 
-template<> void wxStringReadValue(const wxString &s , wxPoint &data )
+// this are compiler induced specialization which are never used anywhere
+
+wxILLEGAL_TYPE_SPECIALIZATION( char const * )
+wxILLEGAL_TYPE_SPECIALIZATION( char * )
+wxILLEGAL_TYPE_SPECIALIZATION( unsigned char * )
+wxILLEGAL_TYPE_SPECIALIZATION( int * )
+wxILLEGAL_TYPE_SPECIALIZATION( bool * )
+wxILLEGAL_TYPE_SPECIALIZATION( long * )
+wxILLEGAL_TYPE_SPECIALIZATION( wxString * )
+
+wxCOLLECTION_TYPE_INFO( wxString , wxArrayString ) ;
+
+template<> void wxCollectionToVariantArray( wxArrayString const &theArray, wxxVariantArray &value)
 {
-       wxSscanf(s, _T("%d,%d"), &data.x , &data.y ) ;
+    wxArrayCollectionToVariantArray( theArray , value ) ;
 }
 
-template<> void wxStringWriteValue(wxString &s , const wxPoint &data )
+wxTypeInfoMap *wxTypeInfo::ms_typeTable = NULL ;
+
+wxTypeInfo *wxTypeInfo::FindType(const wxChar *typeName)
 {
-       s = wxString::Format("%d,%d", data.x , data.y ) ;
+    wxTypeInfoMap::iterator iter = ms_typeTable->find(typeName) ;
+    wxASSERT_MSG( iter != ms_typeTable->end() , wxT("lookup for a non-existent type-info") ) ;
+    return (wxTypeInfo *)iter->second;
 }
 
-WX_CUSTOM_TYPE_INFO(wxPoint)
+#if wxUSE_UNICODE
+wxClassTypeInfo::wxClassTypeInfo( wxTypeKind kind , wxClassInfo* classInfo , converterToString_t to , converterFromString_t from , const char *name) :
+wxTypeInfo( kind , to , from , name)
+{ wxASSERT_MSG( kind == wxT_OBJECT_PTR || kind == wxT_OBJECT , wxT("Illegal Kind for Enum Type")) ; m_classInfo = classInfo ;}
+#endif
 
-template<> void wxStringReadValue(const wxString &s , wxSize &data )
-{
-       wxSscanf(s, _T("%d,%d"), &data.x , &data.y ) ;
+wxClassTypeInfo::wxClassTypeInfo( wxTypeKind kind , wxClassInfo* classInfo , converterToString_t to , converterFromString_t from , const wxString &name) :
+wxTypeInfo( kind , to , from , name)
+{ wxASSERT_MSG( kind == wxT_OBJECT_PTR || kind == wxT_OBJECT , wxT("Illegal Kind for Enum Type")) ; m_classInfo = classInfo ;}
+
+wxDelegateTypeInfo::wxDelegateTypeInfo( int eventType , wxClassInfo* eventClass , converterToString_t to , converterFromString_t from ) :
+wxTypeInfo ( wxT_DELEGATE , to , from , wxEmptyString )
+{ m_eventClass = eventClass ; m_eventType = eventType ; m_lastEventType = -1 ;}
+
+wxDelegateTypeInfo::wxDelegateTypeInfo( int eventType , int lastEventType , wxClassInfo* eventClass , converterToString_t to , converterFromString_t from ) :
+wxTypeInfo ( wxT_DELEGATE , to , from , wxEmptyString )
+{ m_eventClass = eventClass ; m_eventType = eventType ; m_lastEventType = lastEventType; }
+
+void wxTypeInfo::Register()
+{    
+    if ( ms_typeTable == NULL )
+        ms_typeTable = new wxTypeInfoMap() ;
+
+    if( !m_name.IsEmpty() )
+        (*ms_typeTable)[m_name] = this ;
 }
 
-template<> void wxStringWriteValue(wxString &s , const wxSize &data )
+void wxTypeInfo::Unregister()
 {
-       s = wxString::Format("%d,%d", data.x , data.y ) ;
+    if( !m_name.IsEmpty() )
+        ms_typeTable->erase(m_name);
 }
 
-WX_CUSTOM_TYPE_INFO(wxSize)
-
 // removing header dependancy on string tokenizer
 
 void wxSetStringToArray( const wxString &s , wxArrayString &array )
 {
     wxStringTokenizer tokenizer(s, wxT("| \t\n"), wxTOKEN_STRTOK);
     wxString flag;
-       array.Clear() ;
+    array.Clear() ;
     while (tokenizer.HasMoreTokens())
     {
-               array.Add(tokenizer.GetNextToken()) ;
-       }
+        array.Add(tokenizer.GetNextToken()) ;
+    }
 }
 
 // ----------------------------------------------------------------------------
 // wxClassInfo
 // ----------------------------------------------------------------------------
 
-
-void wxClassInfo::Register(const char *WXUNUSED(name), wxClassInfo *WXUNUSED(info))
+wxPropertyInfo::~wxPropertyInfo()
 {
-       /*
-    if (!ExtendedTypeMap)
-       ExtendedTypeMap = new ClassMap;
-    (*ExtendedTypeMap)[string(Name)] = Info;
-       */
+    if ( this == m_itsClass->m_firstProperty )
+    {
+        m_itsClass->m_firstProperty = m_next;
+    }
+    else
+    {
+        wxPropertyInfo *info = m_itsClass->m_firstProperty;
+        while (info)
+        {
+            if ( info->m_next == this )
+            {
+                info->m_next = m_next;
+                break;
+            }
+
+            info = info->m_next;
+        }
+    }
 }
 
-void wxClassInfo::Unregister(const char *WXUNUSED(name))
+wxHandlerInfo::~wxHandlerInfo()
 {
-       /*
-    assert(ExtendedTypeMap);
-    ExtendedTypeMap->erase(Name);
-       */
+    if ( this == m_itsClass->m_firstHandler )
+    {
+        m_itsClass->m_firstHandler = m_next;
+    }
+    else
+    {
+        wxHandlerInfo *info = m_itsClass->m_firstHandler;
+        while (info)
+        {
+            if ( info->m_next == this )
+            {
+                info->m_next = m_next;
+                break;
+            }
+
+            info = info->m_next;
+        }
+    }
 }
 
-const wxPropertyAccessor *wxClassInfo::FindAccessor(const char *PropertyName)
+const wxPropertyAccessor *wxClassInfo::FindAccessor(const wxChar *PropertyName) const
 {
     const wxPropertyInfo* info = FindPropertyInfo( PropertyName ) ;
 
-       if ( info )
-               return info->GetAccessor() ;
+    if ( info )
+        return info->GetAccessor() ;
+
+    return NULL ;
+}
+
+wxPropertyInfo *wxClassInfo::FindPropertyInfoInThisClass (const wxChar *PropertyName) const
+{
+    wxPropertyInfo* info = m_firstProperty ;
+
+    while( info )
+    {
+        if ( wxStrcmp( info->GetName() , PropertyName ) == 0 )
+            return info ;
+        info = info->GetNext() ;
+    }
 
-       return NULL ;
+    return 0;
 }
 
-const wxPropertyInfo *wxClassInfo::FindPropertyInfo (const char *PropertyName) const
+const wxPropertyInfo *wxClassInfo::FindPropertyInfo (const wxChar *PropertyName) const
 {
-       const wxPropertyInfo* info = GetFirstProperty() ;
+    const wxPropertyInfo* info = FindPropertyInfoInThisClass( PropertyName ) ;
+    if ( info )
+        return info ;
 
-       while( info )
-       {
-               if ( strcmp( info->GetName() , PropertyName ) == 0 )
-                       return info ;
-               info = info->GetNext() ;
-       }
+    const wxClassInfo** parents = GetParents() ;
+    for ( int i = 0 ; parents[i] ; ++ i )
+    {
+        if ( ( info = parents[i]->FindPropertyInfo( PropertyName ) ) != NULL )
+            return info ;
+    }
 
-       const wxClassInfo** parents = GetParents() ;
-       for ( int i = 0 ; parents[i] ; ++ i )
-       {
-               if ( ( info = parents[i]->FindPropertyInfo( PropertyName ) ) != NULL )
-                       return info ;
-       }
+    return 0;
+}
+
+wxHandlerInfo *wxClassInfo::FindHandlerInfoInThisClass (const wxChar *PropertyName) const
+{
+    wxHandlerInfo* info = m_firstHandler ;
+
+    while( info )
+    {
+        if ( wxStrcmp( info->GetName() , PropertyName ) == 0 )
+            return info ;
+        info = info->GetNext() ;
+    }
 
     return 0;
 }
 
-const wxHandlerInfo *wxClassInfo::FindHandlerInfo (const char *PropertyName) const
+const wxHandlerInfo *wxClassInfo::FindHandlerInfo (const wxChar *PropertyName) const
 {
-       const wxHandlerInfo* info = GetFirstHandler() ;
+    const wxHandlerInfo* info = FindHandlerInfoInThisClass( PropertyName ) ;
 
-       while( info )
-       {
-               if ( strcmp( info->GetName() , PropertyName ) == 0 )
-                       return info ;
-               info = info->GetNext() ;
-       }
+    if ( info )
+        return info ;
 
-       const wxClassInfo** parents = GetParents() ;
-       for ( int i = 0 ; parents[i] ; ++ i )
-       {
-               if ( ( info = parents[i]->FindHandlerInfo( PropertyName ) ) != NULL )
-                       return info ;
-       }
+    const wxClassInfo** parents = GetParents() ;
+    for ( int i = 0 ; parents[i] ; ++ i )
+    {
+        if ( ( info = parents[i]->FindHandlerInfo( PropertyName ) ) != NULL )
+            return info ;
+    }
 
     return 0;
 }
 
+wxObjectStreamingCallback wxClassInfo::GetStreamingCallback() const
+{
+    if ( m_streamingCallback )
+        return m_streamingCallback ;
+
+    wxObjectStreamingCallback retval = NULL ;
+    const wxClassInfo** parents = GetParents() ;
+    for ( int i = 0 ; parents[i] && retval == NULL ; ++ i )
+    {
+        retval = parents[i]->GetStreamingCallback() ;
+    }
+    return retval ;
+}
 
-void wxClassInfo::SetProperty(wxObject *object, const char *propertyName, const wxxVariant &value)
+bool wxClassInfo::BeforeWriteObject( const wxObject *obj, wxWriter *streamer , wxPersister *persister , wxxVariantArray &metadata) const  
+{
+    wxObjectStreamingCallback sb = GetStreamingCallback() ;
+    if ( sb )
+        return (*sb)(obj , streamer , persister , metadata ) ;
+
+    return true ;
+}
+
+void wxClassInfo::SetProperty(wxObject *object, const wxChar *propertyName, const wxxVariant &value) const
 {
     const wxPropertyAccessor *accessor;
 
     accessor = FindAccessor(propertyName);
     wxASSERT(accessor->HasSetter());
-       accessor->SetProperty( object , value ) ;
+    accessor->SetProperty( object , value ) ;
+}
+
+wxxVariant wxClassInfo::GetProperty(wxObject *object, const wxChar *propertyName) const
+{
+    const wxPropertyAccessor *accessor;
+
+    accessor = FindAccessor(propertyName);
+    wxASSERT(accessor->HasGetter());
+    wxxVariant result ;
+    accessor->GetProperty(object,result);
+    return result ;
 }
 
-wxxVariant wxClassInfo::GetProperty(wxObject *object, const char *propertyName)
+wxxVariantArray wxClassInfo::GetPropertyCollection(wxObject *object, const wxChar *propertyName) const
 {
     const wxPropertyAccessor *accessor;
 
     accessor = FindAccessor(propertyName);
     wxASSERT(accessor->HasGetter());
-    return accessor->GetProperty(object);
+    wxxVariantArray result ;
+    accessor->GetPropertyCollection(object,result);
+    return result ;
+}
+
+void wxClassInfo::AddToPropertyCollection(wxObject *object, const wxChar *propertyName , const wxxVariant& value) const
+{
+    const wxPropertyAccessor *accessor;
+
+    accessor = FindAccessor(propertyName);
+    wxASSERT(accessor->HasAdder());
+    accessor->AddToPropertyCollection( object , value ) ;
+}
+
+void wxClassInfo::GetProperties( wxPropertyInfoMap &map ) const
+{
+    const wxPropertyInfo *pi = GetFirstProperty() ;
+    while( pi ) 
+    {
+        if ( map.find( pi->GetName() ) == map.end() )
+            map[pi->GetName()] = (wxPropertyInfo*) pi ;
+
+        pi = pi->GetNext() ;
+    }
+
+    const wxClassInfo** parents = GetParents() ;
+    for ( int i = 0 ; parents[i] ; ++ i )
+    {
+        parents[i]->GetProperties( map ) ;
+    }
 }
 
 /*
 VARIANT TO OBJECT
 */
 
-wxObject* wxxVariant::GetAsObject() const
+wxObject* wxxVariant::GetAsObject()
+{
+    const wxClassTypeInfo *ti = dynamic_cast<const wxClassTypeInfo*>( m_data->GetTypeInfo() ) ;
+    if ( ti )
+        return ti->GetClassInfo()->VariantToInstance(*this) ;
+    else
+        return NULL ;
+}
+
+// ----------------------------------------------------------------------------
+// wxDynamicObject support
+// ----------------------------------------------------------------------------
+//
+// Dynamic Objects are objects that have a real superclass instance and carry their
+// own attributes in a hash map. Like this it is possible to create the objects and
+// stream them, as if their class information was already available from compiled data
+
+struct wxDynamicObject::wxDynamicObjectInternal
+{
+    wxDynamicObjectInternal() {}
+
+#if wxUSE_UNICODE
+    map<wstring,wxxVariant> m_properties ;
+#else
+    map<string,wxxVariant> m_properties ;
+#endif
+} ;
+
+typedef list< wxDynamicObject* > wxDynamicObjectList ;
+
+struct wxDynamicClassInfo::wxDynamicClassInfoInternal
+{
+    wxDynamicObjectList m_dynamicObjects ;
+} ;
+
+// instantiates this object with an instance of its superclass
+wxDynamicObject::wxDynamicObject(wxObject* superClassInstance, const wxDynamicClassInfo *info)
+{
+    m_superClassInstance = superClassInstance ;
+    m_classInfo = info ;
+    m_data = new wxDynamicObjectInternal ;
+}
+
+wxDynamicObject::~wxDynamicObject()
+{
+    dynamic_cast<const wxDynamicClassInfo*>(m_classInfo)->m_data->m_dynamicObjects.remove( this ) ;
+    delete m_data ;
+    delete m_superClassInstance ;
+}
+
+void wxDynamicObject::SetProperty (const wxChar *propertyName, const wxxVariant &value)
+{
+    wxASSERT_MSG(m_classInfo->FindPropertyInfoInThisClass(propertyName),wxT("Accessing Unknown Property in a Dynamic Object") ) ;
+    m_data->m_properties[propertyName] = value ;
+}
+
+wxxVariant wxDynamicObject::GetProperty (const wxChar *propertyName) const
+{
+    wxASSERT_MSG(m_classInfo->FindPropertyInfoInThisClass(propertyName),wxT("Accessing Unknown Property in a Dynamic Object") ) ;
+    return m_data->m_properties[propertyName] ;
+}
+
+void wxDynamicObject::RemoveProperty( const wxChar *propertyName ) 
+{
+    wxASSERT_MSG(m_classInfo->FindPropertyInfoInThisClass(propertyName),wxT("Removing Unknown Property in a Dynamic Object") ) ;
+    m_data->m_properties.erase( propertyName ) ;
+}
+
+void wxDynamicObject::RenameProperty( const wxChar *oldPropertyName , const wxChar *newPropertyName ) 
+{
+    wxASSERT_MSG(m_classInfo->FindPropertyInfoInThisClass(oldPropertyName),wxT("Renaming Unknown Property in a Dynamic Object") ) ;
+    wxxVariant value = m_data->m_properties[oldPropertyName] ;
+    m_data->m_properties.erase( oldPropertyName ) ;
+    m_data->m_properties[newPropertyName] = value ;
+}
+
+
+// ----------------------------------------------------------------------------
+// wxDynamiClassInfo
+// ----------------------------------------------------------------------------
+
+wxDynamicClassInfo::wxDynamicClassInfo( const wxChar *unitName, const wxChar *className , const wxClassInfo* superClass ) :
+wxClassInfo( unitName, className , new const wxClassInfo*[2])
+{
+    GetParents()[0] = superClass ;
+    GetParents()[1] = NULL ;
+    m_data = new wxDynamicClassInfoInternal ;
+}
+
+wxDynamicClassInfo::~wxDynamicClassInfo()
 {
-       const wxClassTypeInfo *ti = dynamic_cast<const wxClassTypeInfo*>( m_data->GetTypeInfo() ) ;
-       if ( ti )
-               return ti->GetClassInfo()->VariantToInstance(*this) ;
-       else
-               return NULL ;
+    delete[] GetParents() ;
+    delete m_data ;
 }
 
+wxObject *wxDynamicClassInfo::AllocateObject() const
+{
+    wxObject* parent = GetParents()[0]->AllocateObject() ;
+    wxDynamicObject *obj = new wxDynamicObject( parent , this ) ;
+    m_data->m_dynamicObjects.push_back( obj ) ;
+    return obj ;
+}
+
+void wxDynamicClassInfo::Create (wxObject *object, int paramCount, wxxVariant *params) const
+{
+    wxDynamicObject *dynobj = dynamic_cast< wxDynamicObject *>( object ) ;
+    wxASSERT_MSG( dynobj , wxT("cannot call wxDynamicClassInfo::Create on an object other than wxDynamicObject") ) ;
+    GetParents()[0]->Create( dynobj->GetSuperClassInstance() , paramCount , params ) ;
+}
+
+// get number of parameters for constructor
+int wxDynamicClassInfo::GetCreateParamCount() const
+{
+    return GetParents()[0]->GetCreateParamCount() ;
+}
+
+// get i-th constructor parameter
+const wxChar* wxDynamicClassInfo::GetCreateParamName(int i) const
+{
+    return GetParents()[0]->GetCreateParamName( i ) ;
+}
+
+void wxDynamicClassInfo::SetProperty(wxObject *object, const wxChar *propertyName, const wxxVariant &value) const
+{
+    wxDynamicObject* dynobj = dynamic_cast< wxDynamicObject * >( object ) ;
+    wxASSERT_MSG( dynobj , wxT("cannot call wxDynamicClassInfo::SetProperty on an object other than wxDynamicObject") ) ;
+    if ( FindPropertyInfoInThisClass(propertyName) )
+        dynobj->SetProperty( propertyName , value ) ;
+    else
+        GetParents()[0]->SetProperty( dynobj->GetSuperClassInstance() , propertyName , value ) ;
+}
+
+wxxVariant wxDynamicClassInfo::GetProperty(wxObject *object, const wxChar *propertyName) const
+{
+    wxDynamicObject* dynobj = dynamic_cast< wxDynamicObject * >( object ) ;
+    wxASSERT_MSG( dynobj , wxT("cannot call wxDynamicClassInfo::SetProperty on an object other than wxDynamicObject") ) ;
+    if ( FindPropertyInfoInThisClass(propertyName) )
+        return dynobj->GetProperty( propertyName ) ;
+    else
+        return GetParents()[0]->GetProperty( dynobj->GetSuperClassInstance() , propertyName ) ;
+}
+
+void wxDynamicClassInfo::AddProperty( const wxChar *propertyName , const wxTypeInfo* typeInfo )
+{
+    new wxPropertyInfo( m_firstProperty , this , propertyName , typeInfo->GetTypeName() , new wxGenericPropertyAccessor( propertyName ) , wxxVariant() ) ;
+}
+
+void wxDynamicClassInfo::AddHandler( const wxChar *handlerName , wxObjectEventFunction address , const wxClassInfo* eventClassInfo )
+{
+    new wxHandlerInfo( m_firstHandler , this , handlerName , address , eventClassInfo ) ;
+}
+
+// removes an existing runtime-property
+void wxDynamicClassInfo::RemoveProperty( const wxChar *propertyName ) 
+{
+    for ( wxDynamicObjectList::iterator iter = m_data->m_dynamicObjects.begin() ; iter != m_data->m_dynamicObjects.end() ; ++iter )
+        (*iter)->RemoveProperty( propertyName ) ;
+    delete FindPropertyInfoInThisClass(propertyName) ;
+}
+
+// removes an existing runtime-handler
+void wxDynamicClassInfo::RemoveHandler( const wxChar *handlerName ) 
+{
+    delete FindHandlerInfoInThisClass(handlerName) ;
+}
+
+// renames an existing runtime-property
+void wxDynamicClassInfo::RenameProperty( const wxChar *oldPropertyName , const wxChar *newPropertyName ) 
+{
+    wxPropertyInfo* pi = FindPropertyInfoInThisClass(oldPropertyName) ;
+    wxASSERT_MSG( pi ,wxT("not existing property") ) ;
+    pi->m_name = newPropertyName ;
+    dynamic_cast<wxGenericPropertyAccessor*>(pi->GetAccessor())->RenameProperty( oldPropertyName , newPropertyName ) ;
+    for ( wxDynamicObjectList::iterator iter = m_data->m_dynamicObjects.begin() ; iter != m_data->m_dynamicObjects.end() ; ++iter )
+        (*iter)->RenameProperty( oldPropertyName , newPropertyName ) ;
+}
+
+// renames an existing runtime-handler
+void wxDynamicClassInfo::RenameHandler( const wxChar *oldHandlerName , const wxChar *newHandlerName ) 
+{
+    wxASSERT_MSG(FindHandlerInfoInThisClass(oldHandlerName),wxT("not existing handler") ) ;
+    FindHandlerInfoInThisClass(oldHandlerName)->m_name = newHandlerName ;
+}
+
+// ----------------------------------------------------------------------------
+// wxGenericPropertyAccessor
+// ----------------------------------------------------------------------------
 
+struct wxGenericPropertyAccessor::wxGenericPropertyAccessorInternal
+{
+    char filler ;
+} ;
+
+wxGenericPropertyAccessor::wxGenericPropertyAccessor( const wxString& propertyName )
+: wxPropertyAccessor( NULL , NULL , NULL , NULL )
+{
+    m_data = new wxGenericPropertyAccessorInternal ;
+    m_propertyName = propertyName ;
+    m_getterName = wxT("Get")+propertyName ;
+    m_setterName = wxT("Set")+propertyName ;
+}
+
+wxGenericPropertyAccessor::~wxGenericPropertyAccessor()
+{
+    delete m_data ;
+}
+void wxGenericPropertyAccessor::SetProperty(wxObject *object, const wxxVariant &value) const
+{
+    wxDynamicObject* dynobj = dynamic_cast< wxDynamicObject * >( object ) ;
+    wxASSERT_MSG( dynobj , wxT("cannot call wxDynamicClassInfo::SetProperty on an object other than wxDynamicObject") ) ;
+    dynobj->SetProperty(m_propertyName , value ) ;
+}
+
+void wxGenericPropertyAccessor::GetProperty(const wxObject *object, wxxVariant& value) const
+{
+    const wxDynamicObject* dynobj = dynamic_cast< const wxDynamicObject * >( object ) ;
+    wxASSERT_MSG( dynobj , wxT("cannot call wxDynamicClassInfo::SetProperty on an object other than wxDynamicObject") ) ;
+    value = dynobj->GetProperty( m_propertyName ) ;
+}
 #endif