]> git.saurik.com Git - wxWidgets.git/blobdiff - src/common/variant.cpp
fixing osx_cocoa
[wxWidgets.git] / src / common / variant.cpp
index bea0193b8e6b15b2069687e8f1c6a3b5f5835883..5f7daabe9a6f5b91d25f3992402a6f6f37c702fc 100644 (file)
@@ -1,5 +1,5 @@
 /////////////////////////////////////////////////////////////////////////////
-// Name:        variant.cpp
+// Name:        src/common/variant.cpp
 // Purpose:     wxVariant class, container for any type
 // Author:      Julian Smart
 // Modified by:
@@ -9,10 +9,6 @@
 // Licence:     wxWindows licence
 /////////////////////////////////////////////////////////////////////////////
 
-#ifdef __GNUG__
-#pragma implementation "variant.h"
-#endif
-
 // For compilers that support precompilation, includes "wx/wx.h".
 #include "wx/wxprec.h"
 
     #pragma hdrstop
 #endif
 
-#if wxUSE_IOSTREAMH
-#   include <fstream.h>
-#else
-#   include <fstream>
+#include "wx/variant.h"
+
+#if wxUSE_VARIANT
+
+#ifndef WX_PRECOMP
+    #include "wx/string.h"
+    #include "wx/math.h"
+    #include "wx/crt.h"
+    #if wxUSE_STREAMS
+        #include "wx/stream.h"
+    #endif
+#endif
+
+#if wxUSE_STD_IOSTREAM
+    #if wxUSE_IOSTREAMH
+        #include <fstream.h>
+    #else
+        #include <fstream>
+    #endif
+#endif
+
+#if defined(__MWERKS__) && __MSL__ >= 0x6000
+namespace std {}
+using namespace std ;
+#endif
+
+#if wxUSE_STREAMS
+    #include "wx/txtstrm.h"
 #endif
 
-#include "wx/stream.h"
 #include "wx/string.h"
-#include "wx/variant.h"
+#include "wx/tokenzr.h"
 
-IMPLEMENT_ABSTRACT_CLASS(wxVariantData, wxObject)
+wxVariant WXDLLIMPEXP_BASE wxNullVariant;
 
-wxVariant WXDLLEXPORT wxNullVariant;
+
+#include "wx/listimpl.cpp"
+WX_DEFINE_LIST(wxVariantList)
 
 /*
- * wxVariantDataList
+ * wxVariant
  */
 
-class WXDLLEXPORT wxVariantDataList: public wxVariantData
+IMPLEMENT_DYNAMIC_CLASS(wxVariant, wxObject)
+
+wxVariant::wxVariant()
+    : wxObject()
 {
-DECLARE_DYNAMIC_CLASS(wxVariantDataList)
-public:
-    wxVariantDataList() {}
-    wxVariantDataList(const wxList& list);
-    ~wxVariantDataList();
+}
 
-    wxList& GetValue() const { return (wxList&) m_value; }
-    void SetValue(const wxList& value) ;
+bool wxVariant::IsNull() const
+{
+     return (m_refData == NULL);
+}
 
-    virtual void Copy(wxVariantData& data);
-    virtual bool Eq(wxVariantData& data) const;
-    virtual bool Write(ostream& str) const;
-    virtual bool Write(wxString& str) const;
-    virtual bool Read(istream& str);
-    virtual bool Read(wxString& str);
-    virtual wxString GetType() const { return _T("list"); };
+void wxVariant::MakeNull()
+{
+    UnRef();
+}
 
-    void Clear();
+void wxVariant::Clear()
+{
+    m_name = wxEmptyString;
+}
 
-protected:
-    wxList  m_value;
-};
+wxVariant::wxVariant(const wxVariant& variant)
+    : wxObject()
+{
+    if (!variant.IsNull())
+        Ref(variant);
 
-IMPLEMENT_DYNAMIC_CLASS(wxVariantDataList, wxVariantData)
+    m_name = variant.m_name;
+}
 
-wxVariantDataList::wxVariantDataList(const wxList& list)
+wxVariant::wxVariant(wxVariantData* data, const wxString& name) // User-defined data
+    : wxObject()
 {
-    SetValue(list);
+    m_refData = data;
+    m_name = name;
 }
 
-wxVariantDataList::~wxVariantDataList()
+wxVariant::~wxVariant()
 {
-    Clear();
 }
 
-void wxVariantDataList::SetValue(const wxList& value)
+wxObjectRefData *wxVariant::CreateRefData() const
 {
-    Clear();
-    wxNode* node = value.First();
-    while (node)
-    {
-        wxVariant* var = (wxVariant*) node->Data();
-        m_value.Append(new wxVariant(*var));
-        node = node->Next();
-    }
+    // We cannot create any particular wxVariantData.
+    wxFAIL_MSG("wxVariant::CreateRefData() cannot be implemented");
+    return NULL;
 }
 
-void wxVariantDataList::Clear()
+wxObjectRefData *wxVariant::CloneRefData(const wxObjectRefData *data) const
 {
-    wxNode* node = m_value.First();
-    while (node)
-    {
-        wxVariant* var = (wxVariant*) node->Data();
-        delete var;
-        node = node->Next();
-    }
-    m_value.Clear();
+    return ((wxVariantData*) data)->Clone();
 }
 
-void wxVariantDataList::Copy(wxVariantData& data)
+// Assignment
+void wxVariant::operator= (const wxVariant& variant)
 {
-    wxASSERT_MSG( (data.GetType() == _T("list")), _T("wxVariantDataList::Copy: Can't copy to this type of data") );
-
-    wxVariantDataList& listData = (wxVariantDataList&) data;
+    Ref(variant);
+    m_name = variant.m_name;
+}
 
-    listData.Clear();
-    wxNode* node = m_value.First();
-    while (node)
-    {
-        wxVariant* var = (wxVariant*) node->Data();
-        listData.m_value.Append(new wxVariant(*var));
-        node = node->Next();
-    }
+// myVariant = new wxStringVariantData("hello")
+void wxVariant::operator= (wxVariantData* variantData)
+{
+    UnRef();
+    m_refData = variantData;
 }
 
-bool wxVariantDataList::Eq(wxVariantData& data) const
+bool wxVariant::operator== (const wxVariant& variant) const
 {
-    wxASSERT_MSG( (data.GetType() == _T("list")), _T("wxVariantDataList::Eq: argument mismatch") );
+    if (IsNull() || variant.IsNull())
+        return (IsNull() == variant.IsNull());
 
-    wxVariantDataList& listData = (wxVariantDataList&) data;
-    wxNode* node1 = m_value.First();
-    wxNode* node2 = listData.GetValue().First();
-    while (node1 && node2)
-    {
-        wxVariant* var1 = (wxVariant*) node1->Data();
-        wxVariant* var2 = (wxVariant*) node2->Data();
-        if ((*var1) != (*var2))
-            return FALSE;
-        node1 = node1->Next();
-        node2 = node2->Next();
-    }
-    if (node1 || node2) return FALSE;
-    return TRUE;
+    if (GetType() != variant.GetType())
+        return false;
+
+    return (GetData()->Eq(* variant.GetData()));
 }
 
-bool wxVariantDataList::Write(ostream& str) const
+bool wxVariant::operator!= (const wxVariant& variant) const
 {
-    wxString s;
-    Write(s);
-    str << (const char*) s.mb_str();
-    return TRUE;
+    return (!(*this == variant));
 }
 
-bool wxVariantDataList::Write(wxString& str) const
+wxString wxVariant::MakeString() const
 {
-    str = _T("");
-    wxNode* node = m_value.First();
-    while (node)
+    if (!IsNull())
     {
-        wxVariant* var = (wxVariant*) node->Data();
-        if (node != m_value.First())
-          str += _T(" ");
-        wxString str1;
-        str += var->MakeString();
-        node = node->Next();
+        wxString str;
+        if (GetData()->Write(str))
+            return str;
     }
-
-    return TRUE;
+    return wxEmptyString;
 }
 
-bool wxVariantDataList::Read(istream& WXUNUSED(str))
+void wxVariant::SetData(wxVariantData* data)
 {
-    wxFAIL_MSG(_T("Unimplemented"));
-    // TODO
-    return FALSE;
+    UnRef();
+    m_refData = data;
 }
 
-bool wxVariantDataList::Read(wxString& WXUNUSED(str))
+bool wxVariant::Unshare()
 {
-    wxFAIL_MSG(_T("Unimplemented"));
-    // TODO
-    return FALSE;
-}
+    if ( !m_refData || m_refData->GetRefCount() == 1 )
+        return true;
 
-/*
- * wxVariantDataStringList
- */
-
-class WXDLLEXPORT wxVariantDataStringList: public wxVariantData
-{
-DECLARE_DYNAMIC_CLASS(wxVariantDataStringList)
-public:
-    wxVariantDataStringList() {}
-    wxVariantDataStringList(const wxStringList& list) { m_value = list; }
+    wxObject::UnShare();
 
-    wxStringList& GetValue() const { return (wxStringList&) m_value; }
-    void SetValue(const wxStringList& value);
+    return (m_refData && m_refData->GetRefCount() == 1);
+}
 
-    virtual void Copy(wxVariantData& data);
-    virtual bool Eq(wxVariantData& data) const;
-    virtual bool Write(ostream& str) const;
-    virtual bool Write(wxString& str) const;
-    virtual bool Read(istream& str);
-    virtual bool Read(wxString& str);
-    virtual wxString GetType() const { return _T("stringlist"); };
 
-protected:
-    wxStringList  m_value;
-};
+// Returns a string representing the type of the variant,
+// e.g. "string", "bool", "list", "double", "long"
+wxString wxVariant::GetType() const
+{
+    if (IsNull())
+        return wxString(wxT("null"));
+    else
+        return GetData()->GetType();
+}
 
-IMPLEMENT_DYNAMIC_CLASS(wxVariantDataStringList, wxVariantData)
 
-void wxVariantDataStringList::SetValue(const wxStringList& value)
+bool wxVariant::IsType(const wxString& type) const
 {
-    m_value = value;
+    return (GetType() == type);
 }
 
-void wxVariantDataStringList::Copy(wxVariantData& data)
+bool wxVariant::IsValueKindOf(const wxClassInfo* type) const
 {
-    wxASSERT_MSG( (data.GetType() == _T("stringlist")), _T("wxVariantDataStringList::Copy: Can't copy to this type of data") );
+    wxClassInfo* info=GetData()->GetValueClassInfo();
+    return info ? info->IsKindOf(type) : false ;
+}
 
-    wxVariantDataStringList& listData = (wxVariantDataStringList&) data;
+// -----------------------------------------------------------------
+// wxVariant <-> wxAny conversion code
+// -----------------------------------------------------------------
 
-    listData.m_value = m_value ;
-}
+#if wxUSE_ANY
 
-bool wxVariantDataStringList::Eq(wxVariantData& data) const
+wxAnyToVariantRegistration::
+    wxAnyToVariantRegistration(wxVariantDataFactory factory)
+        : m_factory(factory)
 {
-    wxASSERT_MSG( (data.GetType() == _T("stringlist")), _T("wxVariantDataStringList::Eq: argument mismatch") );
-
-    wxVariantDataStringList& listData = (wxVariantDataStringList&) data;
-    wxNode* node1 = m_value.First();
-    wxNode* node2 = listData.GetValue().First();
-    while (node1 && node2)
-    {
-        wxString str1 ((wxChar*) node1->Data());
-        wxString str2 ((wxChar*) node2->Data());
-        if (str1 != str2)
-            return FALSE;
-        node1 = node1->Next();
-        node2 = node2->Next();
-    }
-    if (node1 || node2) return FALSE;
-    return TRUE;
+    wxPreRegisterAnyToVariant(this);
 }
 
-bool wxVariantDataStringList::Write(ostream& str) const
+wxAnyToVariantRegistration::~wxAnyToVariantRegistration()
 {
-    wxString s;
-    Write(s);
-    str << (const char*) s.mb_str();
-    return TRUE;
 }
 
-bool wxVariantDataStringList::Write(wxString& str) const
+wxVariant::wxVariant(const wxAny& any)
+    : wxObject()
 {
-    str = _T("");
-    wxNode* node = m_value.First();
-    while (node)
+    wxVariant variant;
+    if ( !any.GetAs(&variant) )
     {
-        wxChar* s = (wxChar*) node->Data();
-        if (node != m_value.First())
-          str += _T(" ");
-        str += s;
-        node = node->Next();
+        wxFAIL_MSG("wxAny of this type cannot be converted to wxVariant");
+        return;
     }
 
-    return TRUE;
+    *this = variant;
 }
 
-bool wxVariantDataStringList::Read(istream& WXUNUSED(str))
+wxAny wxVariant::GetAny() const
 {
-    wxFAIL_MSG(_T("Unimplemented"));
-    // TODO
-    return FALSE;
-}
+    if ( IsNull() )
+        return wxAny();
 
-bool wxVariantDataStringList::Read(wxString& WXUNUSED(str))
-{
-    wxFAIL_MSG(_T("Unimplemented"));
-    // TODO
-    return FALSE;
+    wxAny any;
+    wxVariantData* data = GetData();
+
+    if ( data->GetAsAny(&any) )
+        return any;
+
+    // If everything else fails, wrap the whole wxVariantData
+    return wxAny(data);
 }
 
-/*
- * wxVariantDataLong
- */
+#endif // wxUSE_ANY
 
-class WXDLLEXPORT wxVariantDataLong: public wxVariantData
+// -----------------------------------------------------------------
+// wxVariantDataLong
+// -----------------------------------------------------------------
+
+class WXDLLIMPEXP_BASE wxVariantDataLong: public wxVariantData
 {
-DECLARE_DYNAMIC_CLASS(wxVariantDataLong)
 public:
     wxVariantDataLong() { m_value = 0; }
     wxVariantDataLong(long value) { m_value = value; }
@@ -288,375 +253,604 @@ public:
     inline long GetValue() const { return m_value; }
     inline void SetValue(long value) { m_value = value; }
 
-    virtual void Copy(wxVariantData& data);
     virtual bool Eq(wxVariantData& data) const;
 
     virtual bool Read(wxString& str);
     virtual bool Write(wxString& str) const;
-    virtual bool Read(istream& str);
-    virtual bool Write(ostream& str) const;
-
+#if wxUSE_STD_IOSTREAM
+    virtual bool Read(wxSTD istream& str);
+    virtual bool Write(wxSTD ostream& str) const;
+#endif
 #if wxUSE_STREAMS
     virtual bool Read(wxInputStream& str);
     virtual bool Write(wxOutputStream &str) const;
 #endif // wxUSE_STREAMS
 
-    virtual wxString GetType() const { return _T("long"); };
+    wxVariantData* Clone() const { return new wxVariantDataLong(m_value); }
+
+    virtual wxString GetType() const { return wxT("long"); }
+
+#if wxUSE_ANY
+    // Since wxAny does not have separate type for integers shorter than
+    // longlong, we do not usually implement wxVariant->wxAny conversion
+    // here (but in wxVariantDataLongLong instead).
+  #ifndef wxLongLong_t
+    DECLARE_WXANY_CONVERSION()
+  #else
+    bool GetAsAny(wxAny* any) const
+    {
+        *any = m_value;
+        return true;
+    }
+  #endif
+#endif // wxUSE_ANY
 
 protected:
     long m_value;
 };
 
-IMPLEMENT_DYNAMIC_CLASS(wxVariantDataLong, wxVariantData)
-
-void wxVariantDataLong::Copy(wxVariantData& data)
-{
-    wxASSERT_MSG( (data.GetType() == _T("long")), _T("wxVariantDataLong::Copy: Can't copy to this type of data") );
-
-    wxVariantDataLong& otherData = (wxVariantDataLong&) data;
-
-    otherData.m_value = m_value;
-}
+#ifndef wxLongLong_t
+IMPLEMENT_TRIVIAL_WXANY_CONVERSION(long, wxVariantDataLong)
+#endif
 
 bool wxVariantDataLong::Eq(wxVariantData& data) const
 {
-    wxASSERT_MSG( (data.GetType() == _T("long")), _T("wxVariantDataLong::Eq: argument mismatch") );
+    wxASSERT_MSG( (data.GetType() == wxT("long")), wxT("wxVariantDataLong::Eq: argument mismatch") );
 
     wxVariantDataLong& otherData = (wxVariantDataLong&) data;
 
     return (otherData.m_value == m_value);
 }
 
-bool wxVariantDataLong::Write(ostream& str) const
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataLong::Write(wxSTD ostream& str) const
 {
     wxString s;
     Write(s);
     str << (const char*) s.mb_str();
-    return TRUE;
+    return true;
 }
+#endif
 
 bool wxVariantDataLong::Write(wxString& str) const
 {
-    str.Printf(_T("%ld"), m_value);
-    return TRUE;
+    str.Printf(wxT("%ld"), m_value);
+    return true;
 }
 
-bool wxVariantDataLong::Read(istream& str)
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataLong::Read(wxSTD istream& str)
 {
     str >> m_value;
-    return TRUE;
+    return true;
 }
+#endif
 
 #if wxUSE_STREAMS
 bool wxVariantDataLong::Write(wxOutputStream& str) const
 {
-    str << m_value;
-    return TRUE;
+    wxTextOutputStream s(str);
+
+    s.Write32((size_t)m_value);
+    return true;
 }
 
 bool wxVariantDataLong::Read(wxInputStream& str)
 {
-   str >> m_value;
-   return TRUE;
+   wxTextInputStream s(str);
+   m_value = s.Read32();
+   return true;
 }
 #endif // wxUSE_STREAMS
 
 bool wxVariantDataLong::Read(wxString& str)
 {
-    m_value = wxAtol((const wxChar*) str);
-    return TRUE;
+    m_value = wxAtol(str);
+    return true;
 }
 
-/*
- * wxVariantDataReal
- */
-
-class WXDLLEXPORT wxVariantDataReal: public wxVariantData
-{
-DECLARE_DYNAMIC_CLASS(wxVariantDataReal)
-public:
-    wxVariantDataReal() { m_value = 0.0; }
-    wxVariantDataReal(double value) { m_value = value; }
-
-    inline double GetValue() const { return m_value; }
-    inline void SetValue(double value) { m_value = value; }
-
-    virtual void Copy(wxVariantData& data);
-    virtual bool Eq(wxVariantData& data) const;
-    virtual bool Read(wxString& str);
-    virtual bool Write(ostream& str) const;
-    virtual bool Write(wxString& str) const;
-    virtual bool Read(istream& str);
-#if wxUSE_STREAMS
-    virtual bool Read(wxInputStream& str);
-    virtual bool Write(wxOutputStream &str) const;
-#endif // wxUSE_STREAMS
-    virtual wxString GetType() const { return _T("double"); };
-
-protected:
-    double m_value;
-};
-
-IMPLEMENT_DYNAMIC_CLASS(wxVariantDataReal, wxVariantData)
+// wxVariant
 
-void wxVariantDataReal::Copy(wxVariantData& data)
-{
-    wxASSERT_MSG( (data.GetType() == _T("double")), _T("wxVariantDataReal::Copy: Can't copy to this type of data") );
-
-    wxVariantDataReal& otherData = (wxVariantDataReal&) data;
-
-    otherData.m_value = m_value;
-}
-
-bool wxVariantDataReal::Eq(wxVariantData& data) const
+wxVariant::wxVariant(long val, const wxString& name)
 {
-    wxASSERT_MSG( (data.GetType() == _T("double")), _T("wxVariantDataReal::Eq: argument mismatch") );
-
-    wxVariantDataReal& otherData = (wxVariantDataReal&) data;
-
-    return (otherData.m_value == m_value);
+    m_refData = new wxVariantDataLong(val);
+    m_name = name;
 }
 
-bool wxVariantDataReal::Write(ostream& str) const
+wxVariant::wxVariant(int val, const wxString& name)
 {
-    wxString s;
-    Write(s);
-    str << (const char*) s.mb_str();
-    return TRUE;
+    m_refData = new wxVariantDataLong((long)val);
+    m_name = name;
 }
 
-bool wxVariantDataReal::Write(wxString& str) const
+wxVariant::wxVariant(short val, const wxString& name)
 {
-    str.Printf(_T("%.4f"), m_value);
-    return TRUE;
+    m_refData = new wxVariantDataLong((long)val);
+    m_name = name;
 }
 
-bool wxVariantDataReal::Read(istream& str)
+bool wxVariant::operator== (long value) const
 {
-    str >> m_value;
-    return TRUE;
+    long thisValue;
+    if (!Convert(&thisValue))
+        return false;
+    else
+        return (value == thisValue);
 }
 
-#if wxUSE_STREAMS
-bool wxVariantDataReal::Write(wxOutputStream& str) const
+bool wxVariant::operator!= (long value) const
 {
-    str << m_value;
-    return TRUE;
+    return (!((*this) == value));
 }
 
-bool wxVariantDataReal::Read(wxInputStream& str)
+void wxVariant::operator= (long value)
 {
-    str >> (float&)m_value;
-    return TRUE;
+    if (GetType() == wxT("long") &&
+        m_refData->GetRefCount() == 1)
+    {
+        ((wxVariantDataLong*)GetData())->SetValue(value);
+    }
+    else
+    {
+        UnRef();
+        m_refData = new wxVariantDataLong(value);
+    }
 }
-#endif // wxUSE_STREAMS
 
-bool wxVariantDataReal::Read(wxString& str)
+long wxVariant::GetLong() const
 {
-    m_value = wxAtof((const wxChar*) str);
-    return TRUE;
+    long value;
+    if (Convert(& value))
+        return value;
+    else
+    {
+        wxFAIL_MSG(wxT("Could not convert to a long"));
+        return 0;
+    }
 }
 
-#ifdef HAVE_BOOL
-/*
- * wxVariantDataBool
- */
+// -----------------------------------------------------------------
+// wxVariantDoubleData
+// -----------------------------------------------------------------
 
-class WXDLLEXPORT wxVariantDataBool: public wxVariantData
+class WXDLLIMPEXP_BASE wxVariantDoubleData: public wxVariantData
 {
-DECLARE_DYNAMIC_CLASS(wxVariantDataBool)
 public:
-    wxVariantDataBool() { m_value = 0; }
-    wxVariantDataBool(bool value) { m_value = value; }
+    wxVariantDoubleData() { m_value = 0.0; }
+    wxVariantDoubleData(double value) { m_value = value; }
 
-    inline bool GetValue() const { return m_value; }
-    inline void SetValue(bool value) { m_value = value; }
+    inline double GetValue() const { return m_value; }
+    inline void SetValue(double value) { m_value = value; }
 
-    virtual void Copy(wxVariantData& data);
     virtual bool Eq(wxVariantData& data) const;
-    virtual bool Write(ostream& str) const;
-    virtual bool Write(wxString& str) const;
     virtual bool Read(wxString& str);
-    virtual bool Read(istream& str);
+#if wxUSE_STD_IOSTREAM
+    virtual bool Write(wxSTD ostream& str) const;
+#endif
+    virtual bool Write(wxString& str) const;
+#if wxUSE_STD_IOSTREAM
+    virtual bool Read(wxSTD istream& str);
+#endif
 #if wxUSE_STREAMS
     virtual bool Read(wxInputStream& str);
-    virtual bool Write(wxOutputStreamstr) const;
+    virtual bool Write(wxOutputStream &str) const;
 #endif // wxUSE_STREAMS
-    virtual wxString GetType() const { return _T("bool"); };
+    virtual wxString GetType() const { return wxT("double"); }
+
+    wxVariantData* Clone() const { return new wxVariantDoubleData(m_value); }
 
+    DECLARE_WXANY_CONVERSION()
 protected:
-    bool m_value;
+    double m_value;
 };
 
-IMPLEMENT_DYNAMIC_CLASS(wxVariantDataBool, wxVariantData)
+IMPLEMENT_TRIVIAL_WXANY_CONVERSION(double, wxVariantDoubleData)
 
-void wxVariantDataBool::Copy(wxVariantData& data)
+bool wxVariantDoubleData::Eq(wxVariantData& data) const
 {
-    wxASSERT_MSG( (data.GetType() == _T("bool")), _T("wxVariantDataBool::Copy: Can't copy to this type of data") );
+    wxASSERT_MSG( (data.GetType() == wxT("double")), wxT("wxVariantDoubleData::Eq: argument mismatch") );
 
-    wxVariantDataBool& otherData = (wxVariantDataBool&) data;
-
-    otherData.m_value = m_value;
-}
-
-bool wxVariantDataBool::Eq(wxVariantData& data) const
-{
-    wxASSERT_MSG( (data.GetType() == _T("bool")), _T("wxVariantDataBool::Eq: argument mismatch") );
-
-    wxVariantDataBool& otherData = (wxVariantDataBool&) data;
+    wxVariantDoubleData& otherData = (wxVariantDoubleData&) data;
 
-    return (otherData.m_value == m_value);
+    return wxIsSameDouble(otherData.m_value, m_value);
 }
 
-bool wxVariantDataBool::Write(ostream& str) const
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDoubleData::Write(wxSTD ostream& str) const
 {
     wxString s;
     Write(s);
     str << (const char*) s.mb_str();
-    return TRUE;
+    return true;
 }
+#endif
 
-bool wxVariantDataBool::Write(wxString& str) const
+bool wxVariantDoubleData::Write(wxString& str) const
 {
-    str.Printf(_T("%d"), (int) m_value);
-    return TRUE;
+    str.Printf(wxT("%.14g"), m_value);
+    return true;
 }
 
-bool wxVariantDataBool::Read(istream& WXUNUSED(str))
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDoubleData::Read(wxSTD istream& str)
 {
-    wxFAIL_MSG(_T("Unimplemented"));
-//    str >> (long) m_value;
-    return FALSE;
+    str >> m_value;
+    return true;
 }
+#endif
 
 #if wxUSE_STREAMS
-bool wxVariantDataBool::Write(wxOutputStream& str) const
+bool wxVariantDoubleData::Write(wxOutputStream& str) const
 {
-    str << (char)m_value;
-    return TRUE;
+    wxTextOutputStream s(str);
+    s.WriteDouble((double)m_value);
+    return true;
 }
 
-bool wxVariantDataBool::Read(wxInputStream& str)
+bool wxVariantDoubleData::Read(wxInputStream& str)
 {
-    str >> (char&)m_value;
-    return TRUE;
+    wxTextInputStream s(str);
+    m_value = (float)s.ReadDouble();
+    return true;
 }
 #endif // wxUSE_STREAMS
 
-bool wxVariantDataBool::Read(wxString& str)
+bool wxVariantDoubleData::Read(wxString& str)
 {
-    m_value = (wxAtol((const wxChar*) str) != 0);
-    return TRUE;
+    m_value = wxAtof(str);
+    return true;
 }
-#endif // HAVE_BOOL
 
-/*
- * wxVariantDataChar
- */
+//  wxVariant double code
 
-class WXDLLEXPORT wxVariantDataChar: public wxVariantData
+wxVariant::wxVariant(double val, const wxString& name)
 {
-DECLARE_DYNAMIC_CLASS(wxVariantDataChar)
-public:
-    wxVariantDataChar() { m_value = 0; }
-    wxVariantDataChar(char value) { m_value = value; }
+    m_refData = new wxVariantDoubleData(val);
+    m_name = name;
+}
 
-    inline char GetValue() const { return m_value; }
-    inline void SetValue(char value) { m_value = value; }
+bool wxVariant::operator== (double value) const
+{
+    double thisValue;
+    if (!Convert(&thisValue))
+        return false;
+
+    return wxIsSameDouble(value, thisValue);
+}
+
+bool wxVariant::operator!= (double value) const
+{
+    return (!((*this) == value));
+}
+
+void wxVariant::operator= (double value)
+{
+    if (GetType() == wxT("double") &&
+        m_refData->GetRefCount() == 1)
+    {
+        ((wxVariantDoubleData*)GetData())->SetValue(value);
+    }
+    else
+    {
+        UnRef();
+        m_refData = new wxVariantDoubleData(value);
+    }
+}
+
+double wxVariant::GetDouble() const
+{
+    double value;
+    if (Convert(& value))
+        return value;
+    else
+    {
+        wxFAIL_MSG(wxT("Could not convert to a double number"));
+        return 0.0;
+    }
+}
+
+// -----------------------------------------------------------------
+// wxVariantBoolData
+// -----------------------------------------------------------------
+
+class WXDLLIMPEXP_BASE wxVariantDataBool: public wxVariantData
+{
+public:
+    wxVariantDataBool() { m_value = 0; }
+    wxVariantDataBool(bool value) { m_value = value; }
+
+    inline bool GetValue() const { return m_value; }
+    inline void SetValue(bool value) { m_value = value; }
 
-    virtual void Copy(wxVariantData& data);
     virtual bool Eq(wxVariantData& data) const;
-    virtual bool Read(istream& str);
-    virtual bool Write(ostream& str) const;
-    virtual bool Read(wxString& str);
+#if wxUSE_STD_IOSTREAM
+    virtual bool Write(wxSTD ostream& str) const;
+#endif
     virtual bool Write(wxString& str) const;
+    virtual bool Read(wxString& str);
+#if wxUSE_STD_IOSTREAM
+    virtual bool Read(wxSTD istream& str);
+#endif
 #if wxUSE_STREAMS
     virtual bool Read(wxInputStream& str);
     virtual bool Write(wxOutputStream& str) const;
 #endif // wxUSE_STREAMS
-    virtual wxString GetType() const { return _T("char"); };
+    virtual wxString GetType() const { return wxT("bool"); }
+
+    wxVariantData* Clone() const { return new wxVariantDataBool(m_value); }
 
+    DECLARE_WXANY_CONVERSION()
 protected:
-    char m_value;
+    bool m_value;
 };
 
-IMPLEMENT_DYNAMIC_CLASS(wxVariantDataChar, wxVariantData)
+IMPLEMENT_TRIVIAL_WXANY_CONVERSION(bool, wxVariantDataBool)
 
-void wxVariantDataChar::Copy(wxVariantData& data)
+bool wxVariantDataBool::Eq(wxVariantData& data) const
 {
-    wxASSERT_MSG( (data.GetType() == _T("char")), _T("wxVariantDataChar::Copy: Can't copy to this type of data") );
+    wxASSERT_MSG( (data.GetType() == wxT("bool")), wxT("wxVariantDataBool::Eq: argument mismatch") );
 
-    wxVariantDataChar& otherData = (wxVariantDataChar&) data;
+    wxVariantDataBool& otherData = (wxVariantDataBool&) data;
+
+    return (otherData.m_value == m_value);
+}
+
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataBool::Write(wxSTD ostream& str) const
+{
+    wxString s;
+    Write(s);
+    str << (const char*) s.mb_str();
+    return true;
+}
+#endif
+
+bool wxVariantDataBool::Write(wxString& str) const
+{
+    str.Printf(wxT("%d"), (int) m_value);
+    return true;
+}
+
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataBool::Read(wxSTD istream& WXUNUSED(str))
+{
+    wxFAIL_MSG(wxT("Unimplemented"));
+//    str >> (long) m_value;
+    return false;
+}
+#endif
+
+#if wxUSE_STREAMS
+bool wxVariantDataBool::Write(wxOutputStream& str) const
+{
+    wxTextOutputStream s(str);
+
+    s.Write8(m_value);
+    return true;
+}
+
+bool wxVariantDataBool::Read(wxInputStream& str)
+{
+    wxTextInputStream s(str);
+
+    m_value = s.Read8() != 0;
+    return true;
+}
+#endif // wxUSE_STREAMS
+
+bool wxVariantDataBool::Read(wxString& str)
+{
+    m_value = (wxAtol(str) != 0);
+    return true;
+}
+
+// wxVariant ****
+
+wxVariant::wxVariant(bool val, const wxString& name)
+{
+    m_refData = new wxVariantDataBool(val);
+    m_name = name;
+}
+
+bool wxVariant::operator== (bool value) const
+{
+    bool thisValue;
+    if (!Convert(&thisValue))
+        return false;
+    else
+        return (value == thisValue);
+}
+
+bool wxVariant::operator!= (bool value) const
+{
+    return (!((*this) == value));
+}
 
-    otherData.m_value = m_value;
+void wxVariant::operator= (bool value)
+{
+    if (GetType() == wxT("bool") &&
+        m_refData->GetRefCount() == 1)
+    {
+        ((wxVariantDataBool*)GetData())->SetValue(value);
+    }
+    else
+    {
+        UnRef();
+        m_refData = new wxVariantDataBool(value);
+    }
 }
 
+bool wxVariant::GetBool() const
+{
+    bool value;
+    if (Convert(& value))
+        return value;
+    else
+    {
+        wxFAIL_MSG(wxT("Could not convert to a bool"));
+        return 0;
+    }
+}
+
+// -----------------------------------------------------------------
+// wxVariantDataChar
+// -----------------------------------------------------------------
+
+class WXDLLIMPEXP_BASE wxVariantDataChar: public wxVariantData
+{
+public:
+    wxVariantDataChar() { m_value = 0; }
+    wxVariantDataChar(const wxUniChar& value) { m_value = value; }
+
+    inline wxUniChar GetValue() const { return m_value; }
+    inline void SetValue(const wxUniChar& value) { m_value = value; }
+
+    virtual bool Eq(wxVariantData& data) const;
+#if wxUSE_STD_IOSTREAM
+    virtual bool Read(wxSTD istream& str);
+    virtual bool Write(wxSTD ostream& str) const;
+#endif
+    virtual bool Read(wxString& str);
+    virtual bool Write(wxString& str) const;
+#if wxUSE_STREAMS
+    virtual bool Read(wxInputStream& str);
+    virtual bool Write(wxOutputStream& str) const;
+#endif // wxUSE_STREAMS
+    virtual wxString GetType() const { return wxT("char"); }
+    wxVariantData* Clone() const { return new wxVariantDataChar(m_value); }
+
+    DECLARE_WXANY_CONVERSION()
+protected:
+    wxUniChar m_value;
+};
+
+IMPLEMENT_TRIVIAL_WXANY_CONVERSION(wxUniChar, wxVariantDataChar)
+
 bool wxVariantDataChar::Eq(wxVariantData& data) const
 {
-    wxASSERT_MSG( (data.GetType() == _T("char")), _T("wxVariantDataChar::Eq: argument mismatch") );
+    wxASSERT_MSG( (data.GetType() == wxT("char")), wxT("wxVariantDataChar::Eq: argument mismatch") );
 
     wxVariantDataChar& otherData = (wxVariantDataChar&) data;
 
     return (otherData.m_value == m_value);
 }
 
-bool wxVariantDataChar::Write(ostream& str) const
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataChar::Write(wxSTD ostream& str) const
 {
-    wxString s;
-    Write(s);
-    str << (const char*) s.mb_str();
-    return TRUE;
+    str << wxString(m_value);
+    return true;
 }
+#endif
 
 bool wxVariantDataChar::Write(wxString& str) const
 {
-    str.Printf(_T("%c"), m_value);
-    return TRUE;
+    str = m_value;
+    return true;
 }
 
-bool wxVariantDataChar::Read(istream& WXUNUSED(str))
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataChar::Read(wxSTD istream& WXUNUSED(str))
 {
-    wxFAIL_MSG(_T("Unimplemented"));
-//    str >> m_value;
-    return FALSE;
+    wxFAIL_MSG(wxT("Unimplemented"));
+
+    return false;
 }
+#endif
 
 #if wxUSE_STREAMS
 bool wxVariantDataChar::Write(wxOutputStream& str) const
 {
-    str << m_value;
-    return TRUE;
+    wxTextOutputStream s(str);
+
+    // FIXME-UTF8: this should be just "s << m_value;" after removal of
+    //             ANSI build and addition of wxUniChar to wxTextOutputStream:
+    s << (wxChar)m_value;
+
+    return true;
 }
 
 bool wxVariantDataChar::Read(wxInputStream& str)
 {
-    str >> m_value;
-    return TRUE;
+    wxTextInputStream s(str);
+
+    // FIXME-UTF8: this should be just "s >> m_value;" after removal of
+    //             ANSI build and addition of wxUniChar to wxTextInputStream:
+    wxChar ch;
+    s >> ch;
+    m_value = ch;
+
+    return true;
 }
 #endif // wxUSE_STREAMS
 
 bool wxVariantDataChar::Read(wxString& str)
 {
-    m_value = str[(size_t)0];
-    return TRUE;
+    m_value = str[0u];
+    return true;
 }
 
-/*
- * wxVariantDataString
- */
+wxVariant::wxVariant(const wxUniChar& val, const wxString& name)
+{
+    m_refData = new wxVariantDataChar(val);
+    m_name = name;
+}
 
-#if defined(__BORLANDC__) && defined(__WIN16__)
-// Change name because of truncation
-#define wxVariantDataString wxVariantStringData
-#endif
+wxVariant::wxVariant(char val, const wxString& name)
+{
+    m_refData = new wxVariantDataChar(val);
+    m_name = name;
+}
 
-class WXDLLEXPORT wxVariantDataString: public wxVariantData
+wxVariant::wxVariant(wchar_t val, const wxString& name)
+{
+    m_refData = new wxVariantDataChar(val);
+    m_name = name;
+}
+
+bool wxVariant::operator==(const wxUniChar& value) const
+{
+    wxUniChar thisValue;
+    if (!Convert(&thisValue))
+        return false;
+    else
+        return (value == thisValue);
+}
+
+wxVariant& wxVariant::operator=(const wxUniChar& value)
+{
+    if (GetType() == wxT("char") &&
+        m_refData->GetRefCount() == 1)
+    {
+        ((wxVariantDataChar*)GetData())->SetValue(value);
+    }
+    else
+    {
+        UnRef();
+        m_refData = new wxVariantDataChar(value);
+    }
+
+    return *this;
+}
+
+wxUniChar wxVariant::GetChar() const
+{
+    wxUniChar value;
+    if (Convert(& value))
+        return value;
+    else
+    {
+        wxFAIL_MSG(wxT("Could not convert to a char"));
+        return wxUniChar(0);
+    }
+}
+
+// ----------------------------------------------------------------------------
+// wxVariantDataString
+// ----------------------------------------------------------------------------
+
+class WXDLLIMPEXP_BASE wxVariantDataString: public wxVariantData
 {
-#if defined(__BORLANDC__) && defined(__WIN16__)
-DECLARE_DYNAMIC_CLASS(wxVariantStringData)
-#else
-DECLARE_DYNAMIC_CLASS(wxVariantDataString)
-#endif
 public:
     wxVariantDataString() { }
     wxVariantDataString(const wxString& value) { m_value = value; }
@@ -664,243 +858,318 @@ public:
     inline wxString GetValue() const { return m_value; }
     inline void SetValue(const wxString& value) { m_value = value; }
 
-    virtual void Copy(wxVariantData& data);
     virtual bool Eq(wxVariantData& data) const;
-    virtual bool Write(ostream& str) const;
+#if wxUSE_STD_IOSTREAM
+    virtual bool Write(wxSTD ostream& str) const;
+#endif
     virtual bool Read(wxString& str);
     virtual bool Write(wxString& str) const;
-    virtual bool Read(istream& str);
+#if wxUSE_STD_IOSTREAM
+    virtual bool Read(wxSTD istream& WXUNUSED(str)) { return false; }
+#endif
 #if wxUSE_STREAMS
     virtual bool Read(wxInputStream& str);
     virtual bool Write(wxOutputStream& str) const;
 #endif // wxUSE_STREAMS
-    virtual wxString GetType() const { return _T("string"); };
+    virtual wxString GetType() const { return wxT("string"); }
+    wxVariantData* Clone() const { return new wxVariantDataString(m_value); }
 
+    DECLARE_WXANY_CONVERSION()
 protected:
     wxString m_value;
 };
 
-void wxVariantDataString::Copy(wxVariantData& data)
-{
-    wxASSERT_MSG( (data.GetType() == _T("string")), _T("wxVariantDataString::Copy: Can't copy to this type of data") );
+IMPLEMENT_TRIVIAL_WXANY_CONVERSION(wxString, wxVariantDataString)
 
-    wxVariantDataString& otherData = (wxVariantDataString&) data;
+#if wxUSE_ANY
+// This allows converting string literal wxAnys to string variants
+wxVariantData* wxVariantDataFromConstCharPAny(const wxAny& any)
+{
+    return new wxVariantDataString(wxANY_AS(any, const char*));
+}
 
-    otherData.m_value = m_value;
+wxVariantData* wxVariantDataFromConstWchar_tPAny(const wxAny& any)
+{
+    return new wxVariantDataString(wxANY_AS(any, const wchar_t*));
 }
 
+_REGISTER_WXANY_CONVERSION(const char*,
+                           ConstCharP,
+                           wxVariantDataFromConstCharPAny)
+_REGISTER_WXANY_CONVERSION(const wchar_t*,
+                           ConstWchar_tP,
+                           wxVariantDataFromConstWchar_tPAny)
+#endif
+
 bool wxVariantDataString::Eq(wxVariantData& data) const
 {
-    wxASSERT_MSG( (data.GetType() == _T("string")), _T("wxVariantDataString::Eq: argument mismatch") );
+    wxASSERT_MSG( (data.GetType() == wxT("string")), wxT("wxVariantDataString::Eq: argument mismatch") );
 
     wxVariantDataString& otherData = (wxVariantDataString&) data;
 
     return (otherData.m_value == m_value);
 }
 
-bool wxVariantDataString::Write(ostream& str) const
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataString::Write(wxSTD ostream& str) const
 {
     str << (const char*) m_value.mb_str();
-    return TRUE;
+    return true;
 }
+#endif
 
 bool wxVariantDataString::Write(wxString& str) const
 {
     str = m_value;
-    return TRUE;
-}
-
-bool wxVariantDataString::Read(istream& str)
-{
-    str >> m_value;
-    return TRUE;
+    return true;
 }
 
 #if wxUSE_STREAMS
 bool wxVariantDataString::Write(wxOutputStream& str) const
 {
   // why doesn't wxOutputStream::operator<< take "const wxString&"
-    str << (const char*) m_value.mb_str();
-    return TRUE;
+    wxTextOutputStream s(str);
+    s.WriteString(m_value);
+    return true;
 }
 
 bool wxVariantDataString::Read(wxInputStream& str)
 {
-    str >> m_value;
-    return TRUE;
+    wxTextInputStream s(str);
+
+    m_value = s.ReadLine();
+    return true;
 }
 #endif // wxUSE_STREAMS
 
 bool wxVariantDataString::Read(wxString& str)
 {
     m_value = str;
-    return TRUE;
+    return true;
 }
 
-#if defined(__BORLANDC__) && defined(__WIN16__)
-IMPLEMENT_DYNAMIC_CLASS(wxVariantStringData, wxVariantData)
-#else
-IMPLEMENT_DYNAMIC_CLASS(wxVariantDataString, wxVariantData)
-#endif
+// wxVariant ****
 
-/*
- * wxVariantDataTime
- */
-
-#if wxUSE_TIMEDATE
-
-class wxVariantDataTime: public wxVariantData
+wxVariant::wxVariant(const wxString& val, const wxString& name)
 {
- DECLARE_DYNAMIC_CLASS(wxVariantDataTime)
-public:
-    wxVariantDataTime() { }
-    wxVariantDataTime(const wxTime& value) { m_value = value; }
-
-    inline wxTime GetValue() const { return m_value; }
-    inline void SetValue(const wxTime& value) { m_value = value; }
-
-    virtual void Copy(wxVariantData& data);
-    virtual bool Eq(wxVariantData& data) const;
-    virtual bool Write(ostream& str) const;
-    virtual bool Write(wxString& str) const;
-    virtual bool Read(istream& str);
-    virtual bool Read(wxString& str);
-    virtual wxString GetType() const { return _T("time"); };
-       virtual wxVariantData* Clone() { return new wxVariantDataTime; }
-
-protected:
-    wxTime m_value;
-};
+    m_refData = new wxVariantDataString(val);
+    m_name = name;
+}
 
-IMPLEMENT_DYNAMIC_CLASS(wxVariantDataTime, wxVariantData)
+wxVariant::wxVariant(const char* val, const wxString& name)
+{
+    m_refData = new wxVariantDataString(wxString(val));
+    m_name = name;
+}
 
-void wxVariantDataTime::Copy(wxVariantData& data)
+wxVariant::wxVariant(const wchar_t* val, const wxString& name)
 {
-    wxASSERT_MSG( (data.GetType() == _T("time")), _T("wxVariantDataTime::Copy: Can't copy to this type of data") );
+    m_refData = new wxVariantDataString(wxString(val));
+    m_name = name;
+}
 
-    wxVariantDataTime& otherData = (wxVariantDataTime&) data;
+wxVariant::wxVariant(const wxCStrData& val, const wxString& name)
+{
+    m_refData = new wxVariantDataString(val.AsString());
+    m_name = name;
+}
 
-    otherData.m_value = m_value;
+wxVariant::wxVariant(const wxScopedCharBuffer& val, const wxString& name)
+{
+    m_refData = new wxVariantDataString(wxString(val));
+    m_name = name;
 }
 
-bool wxVariantDataTime::Eq(wxVariantData& data) const
+wxVariant::wxVariant(const wxScopedWCharBuffer& val, const wxString& name)
 {
-    wxASSERT_MSG( (data.GetType() == _T("time")), _T("wxVariantDataTime::Eq: argument mismatch") );
+    m_refData = new wxVariantDataString(wxString(val));
+    m_name = name;
+}
 
-    wxVariantDataTime& otherData = (wxVariantDataTime&) data;
+#if wxUSE_STD_STRING
+wxVariant::wxVariant(const std::string& val, const wxString& name)
+{
+    m_refData = new wxVariantDataString(wxString(val));
+    m_name = name;
+}
 
-    return (otherData.m_value == m_value);
+wxVariant::wxVariant(const wxStdWideString& val, const wxString& name)
+{
+    m_refData = new wxVariantDataString(wxString(val));
+    m_name = name;
 }
+#endif // wxUSE_STD_STRING
 
-bool wxVariantDataTime::Write(ostream& str) const
+bool wxVariant::operator== (const wxString& value) const
 {
-    wxString s;
-    Write(s);
-    str << (const char*) s.mb_str();
-    return TRUE;
+    wxString thisValue;
+    if (!Convert(&thisValue))
+        return false;
+
+    return value == thisValue;
 }
 
-bool wxVariantDataTime::Write(wxString& str) const
+bool wxVariant::operator!= (const wxString& value) const
 {
-    wxChar*s = m_value.FormatTime();
-    str = s;
-    return TRUE;
+    return (!((*this) == value));
 }
 
-bool wxVariantDataTime::Read(istream& WXUNUSED(str))
+wxVariant& wxVariant::operator= (const wxString& value)
 {
-    // Not implemented
-    return FALSE;
+    if (GetType() == wxT("string") &&
+        m_refData->GetRefCount() == 1)
+    {
+        ((wxVariantDataString*)GetData())->SetValue(value);
+    }
+    else
+    {
+        UnRef();
+        m_refData = new wxVariantDataString(value);
+    }
+    return *this;
 }
 
-bool wxVariantDataTime::Read(wxString& WXUNUSED(str))
+wxString wxVariant::GetString() const
 {
-    // Not implemented
-    return FALSE;
+    wxString value;
+    if (!Convert(& value))
+    {
+        wxFAIL_MSG(wxT("Could not convert to a string"));
+    }
+
+    return value;
 }
 
-/*
- * wxVariantDataDate
- */
+// ----------------------------------------------------------------------------
+// wxVariantDataWxObjectPtr
+// ----------------------------------------------------------------------------
 
-class wxVariantDataDate: public wxVariantData
+class wxVariantDataWxObjectPtr: public wxVariantData
 {
- DECLARE_DYNAMIC_CLASS(wxVariantDataDate)
 public:
-    wxVariantDataDate() { }
-    wxVariantDataDate(const wxDate& value) { m_value = value; }
+    wxVariantDataWxObjectPtr() { }
+    wxVariantDataWxObjectPtr(wxObject* value) { m_value = value; }
 
-    inline wxDate GetValue() const { return m_value; }
-    inline void SetValue(const wxDate& value) { m_value = value; }
+    inline wxObject* GetValue() const { return m_value; }
+    inline void SetValue(wxObject* value) { m_value = value; }
 
-    virtual void Copy(wxVariantData& data);
     virtual bool Eq(wxVariantData& data) const;
-    virtual bool Write(ostream& str) const;
+#if wxUSE_STD_IOSTREAM
+    virtual bool Write(wxSTD ostream& str) const;
+#endif
     virtual bool Write(wxString& str) const;
-    virtual bool Read(istream& str);
+#if wxUSE_STD_IOSTREAM
+    virtual bool Read(wxSTD istream& str);
+#endif
     virtual bool Read(wxString& str);
-    virtual wxString GetType() const { return _T("date"); };
-       virtual wxVariantData* Clone() { return new wxVariantDataDate; }
+    virtual wxString GetType() const ;
+    virtual wxVariantData* Clone() const { return new wxVariantDataWxObjectPtr(m_value); }
+
+    virtual wxClassInfo* GetValueClassInfo();
 
+    DECLARE_WXANY_CONVERSION()
 protected:
-    wxDate m_value;
+    wxObject* m_value;
 };
 
-IMPLEMENT_DYNAMIC_CLASS(wxVariantDataDate, wxVariantData)
+IMPLEMENT_TRIVIAL_WXANY_CONVERSION(wxObject*, wxVariantDataWxObjectPtr)
 
-void wxVariantDataDate::Copy(wxVariantData& data)
+bool wxVariantDataWxObjectPtr::Eq(wxVariantData& data) const
 {
-    wxASSERT_MSG( (data.GetType() == _T("date")), _T("wxVariantDataDate::Copy: Can't copy to this type of data") );
+    wxASSERT_MSG( data.GetType() == GetType(), wxT("wxVariantDataWxObjectPtr::Eq: argument mismatch") );
 
-    wxVariantDataDate& otherData = (wxVariantDataDate&) data;
+    wxVariantDataWxObjectPtr& otherData = (wxVariantDataWxObjectPtr&) data;
 
-    otherData.m_value = m_value;
+    return (otherData.m_value == m_value);
 }
 
-bool wxVariantDataDate::Eq(wxVariantData& data) const
+wxString wxVariantDataWxObjectPtr::GetType() const
 {
-    wxASSERT_MSG( (data.GetType() == _T("date")), _T("wxVariantDataDate::Eq: argument mismatch") );
+    wxString returnVal(wxT("wxObject*"));
 
-    wxVariantDataDate& otherData = (wxVariantDataDate&) data;
+    if (m_value)
+    {
+        returnVal = m_value->GetClassInfo()->GetClassName();
+        returnVal += wxT("*");
+    }
 
-    return (otherData.m_value == m_value);
+    return returnVal;
+}
+
+wxClassInfo* wxVariantDataWxObjectPtr::GetValueClassInfo()
+{
+    wxClassInfo* returnVal=NULL;
+
+    if (m_value) returnVal = m_value->GetClassInfo();
+
+    return returnVal;
 }
 
-bool wxVariantDataDate::Write(ostream& str) const
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataWxObjectPtr::Write(wxSTD ostream& str) const
 {
     wxString s;
     Write(s);
     str << (const char*) s.mb_str();
-    return TRUE;
+    return true;
 }
+#endif
 
-bool wxVariantDataDate::Write(wxString& str) const
+bool wxVariantDataWxObjectPtr::Write(wxString& str) const
 {
-    str = m_value.FormatDate();
-    return TRUE;
+    str.Printf(wxT("%s(%p)"), GetType().c_str(), static_cast<void*>(m_value));
+    return true;
 }
 
-bool wxVariantDataDate::Read(istream& WXUNUSED(str))
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataWxObjectPtr::Read(wxSTD istream& WXUNUSED(str))
 {
     // Not implemented
-    return FALSE;
+    return false;
 }
+#endif
 
-bool wxVariantDataDate::Read(wxString& WXUNUSED(str))
+bool wxVariantDataWxObjectPtr::Read(wxString& WXUNUSED(str))
 {
     // Not implemented
-    return FALSE;
+    return false;
 }
-#endif
-  // wxUSE_TIMEDATE
 
-/*
- * wxVariantDataVoidPtr
- */
+// wxVariant
+
+wxVariant::wxVariant( wxObject* val, const wxString& name)
+{
+    m_refData = new wxVariantDataWxObjectPtr(val);
+    m_name = name;
+}
+
+bool wxVariant::operator== (wxObject* value) const
+{
+    return (value == ((wxVariantDataWxObjectPtr*)GetData())->GetValue());
+}
+
+bool wxVariant::operator!= (wxObject* value) const
+{
+    return (!((*this) == (wxObject*) value));
+}
+
+void wxVariant::operator= (wxObject* value)
+{
+    UnRef();
+    m_refData = new wxVariantDataWxObjectPtr(value);
+}
+
+wxObject* wxVariant::GetWxObjectPtr() const
+{
+    return (wxObject*) ((wxVariantDataWxObjectPtr*) m_refData)->GetValue();
+}
+
+// ----------------------------------------------------------------------------
+// wxVariantDataVoidPtr
+// ----------------------------------------------------------------------------
 
 class wxVariantDataVoidPtr: public wxVariantData
 {
-DECLARE_DYNAMIC_CLASS(wxVariantDataVoidPtr)
 public:
     wxVariantDataVoidPtr() { }
     wxVariantDataVoidPtr(void* value) { m_value = value; }
@@ -908,716 +1177,989 @@ public:
     inline void* GetValue() const { return m_value; }
     inline void SetValue(void* value) { m_value = value; }
 
-    virtual void Copy(wxVariantData& data);
     virtual bool Eq(wxVariantData& data) const;
-    virtual bool Write(ostream& str) const;
+#if wxUSE_STD_IOSTREAM
+    virtual bool Write(wxSTD ostream& str) const;
+#endif
     virtual bool Write(wxString& str) const;
-    virtual bool Read(istream& str);
+#if wxUSE_STD_IOSTREAM
+    virtual bool Read(wxSTD istream& str);
+#endif
     virtual bool Read(wxString& str);
-    virtual wxString GetType() const { return _T("void*"); };
-       virtual wxVariantData* Clone() { return new wxVariantDataVoidPtr; }
+    virtual wxString GetType() const { return wxT("void*"); }
+    virtual wxVariantData* Clone() const { return new wxVariantDataVoidPtr(m_value); }
 
+    DECLARE_WXANY_CONVERSION()
 protected:
     void* m_value;
 };
 
-IMPLEMENT_DYNAMIC_CLASS(wxVariantDataVoidPtr, wxVariantData)
+IMPLEMENT_TRIVIAL_WXANY_CONVERSION(void*, wxVariantDataVoidPtr)
 
-void wxVariantDataVoidPtr::Copy(wxVariantData& data)
+bool wxVariantDataVoidPtr::Eq(wxVariantData& data) const
 {
-    wxASSERT_MSG( (data.GetType() == _T("void*")), _T("wxVariantDataVoidPtr::Copy: Can't copy to this type of data") );
+    wxASSERT_MSG( data.GetType() == wxT("void*"), wxT("wxVariantDataVoidPtr::Eq: argument mismatch") );
 
     wxVariantDataVoidPtr& otherData = (wxVariantDataVoidPtr&) data;
 
-    otherData.m_value = m_value;
+    return (otherData.m_value == m_value);
 }
 
-bool wxVariantDataVoidPtr::Eq(wxVariantData& data) const
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataVoidPtr::Write(wxSTD ostream& str) const
+{
+    wxString s;
+    Write(s);
+    str << (const char*) s.mb_str();
+    return true;
+}
+#endif
+
+bool wxVariantDataVoidPtr::Write(wxString& str) const
+{
+    str.Printf(wxT("%p"), m_value);
+    return true;
+}
+
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataVoidPtr::Read(wxSTD istream& WXUNUSED(str))
+{
+    // Not implemented
+    return false;
+}
+#endif
+
+bool wxVariantDataVoidPtr::Read(wxString& WXUNUSED(str))
+{
+    // Not implemented
+    return false;
+}
+
+// wxVariant
+
+wxVariant::wxVariant( void* val, const wxString& name)
+{
+    m_refData = new wxVariantDataVoidPtr(val);
+    m_name = name;
+}
+
+bool wxVariant::operator== (void* value) const
+{
+    return (value == ((wxVariantDataVoidPtr*)GetData())->GetValue());
+}
+
+bool wxVariant::operator!= (void* value) const
+{
+    return (!((*this) == (void*) value));
+}
+
+void wxVariant::operator= (void* value)
+{
+    if (GetType() == wxT("void*") && (m_refData->GetRefCount() == 1))
+    {
+        ((wxVariantDataVoidPtr*)GetData())->SetValue(value);
+    }
+    else
+    {
+        UnRef();
+        m_refData = new wxVariantDataVoidPtr(value);
+    }
+}
+
+void* wxVariant::GetVoidPtr() const
+{
+    // handling this specially is convenient when working with COM, see #9873
+    if ( IsNull() )
+        return NULL;
+
+    wxASSERT( GetType() == wxT("void*") );
+
+    return (void*) ((wxVariantDataVoidPtr*) m_refData)->GetValue();
+}
+
+// ----------------------------------------------------------------------------
+// wxVariantDataDateTime
+// ----------------------------------------------------------------------------
+
+#if wxUSE_DATETIME
+
+class wxVariantDataDateTime: public wxVariantData
+{
+public:
+    wxVariantDataDateTime() { }
+    wxVariantDataDateTime(const wxDateTime& value) { m_value = value; }
+
+    inline wxDateTime GetValue() const { return m_value; }
+    inline void SetValue(const wxDateTime& value) { m_value = value; }
+
+    virtual bool Eq(wxVariantData& data) const;
+#if wxUSE_STD_IOSTREAM
+    virtual bool Write(wxSTD ostream& str) const;
+#endif
+    virtual bool Write(wxString& str) const;
+#if wxUSE_STD_IOSTREAM
+    virtual bool Read(wxSTD istream& str);
+#endif
+    virtual bool Read(wxString& str);
+    virtual wxString GetType() const { return wxT("datetime"); }
+    virtual wxVariantData* Clone() const { return new wxVariantDataDateTime(m_value); }
+
+    DECLARE_WXANY_CONVERSION()
+protected:
+    wxDateTime m_value;
+};
+
+IMPLEMENT_TRIVIAL_WXANY_CONVERSION(wxDateTime, wxVariantDataDateTime)
+
+bool wxVariantDataDateTime::Eq(wxVariantData& data) const
 {
-    wxASSERT_MSG( (data.GetType() == _T("void*")), _T("wxVariantDataVoidPtr::Eq: argument mismatch") );
+    wxASSERT_MSG( (data.GetType() == wxT("datetime")), wxT("wxVariantDataDateTime::Eq: argument mismatch") );
 
-    wxVariantDataVoidPtr& otherData = (wxVariantDataVoidPtr&) data;
+    wxVariantDataDateTime& otherData = (wxVariantDataDateTime&) data;
 
     return (otherData.m_value == m_value);
 }
 
-bool wxVariantDataVoidPtr::Write(ostream& str) const
-{
-    wxString s;
-    Write(s);
-    str << (const char*) s.mb_str();
-    return TRUE;
-}
 
-bool wxVariantDataVoidPtr::Write(wxString& str) const
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataDateTime::Write(wxSTD ostream& str) const
 {
-    str.Printf(_T("%ld"), (long) m_value);
-    return TRUE;
+    wxString value;
+    Write( value );
+    str << value.c_str();
+    return true;
 }
+#endif
+
 
-bool wxVariantDataVoidPtr::Read(istream& WXUNUSED(str))
+bool wxVariantDataDateTime::Write(wxString& str) const
 {
-    // Not implemented
-    return FALSE;
+    if ( m_value.IsValid() )
+        str = m_value.Format();
+    else
+        str = wxS("Invalid");
+    return true;
 }
 
-bool wxVariantDataVoidPtr::Read(wxString& WXUNUSED(str))
+
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataDateTime::Read(wxSTD istream& WXUNUSED(str))
 {
     // Not implemented
-    return FALSE;
+    return false;
 }
+#endif
 
 
-/*
- * wxVariant
- */
-
-IMPLEMENT_DYNAMIC_CLASS(wxVariant, wxObject)
-
-// Construction & destruction
-wxVariant::wxVariant()
+bool wxVariantDataDateTime::Read(wxString& str)
 {
-    m_data = (wxVariantData*) NULL;
+    if ( str == wxS("Invalid") )
+    {
+        m_value = wxInvalidDateTime;
+        return true;
+    }
+
+    wxString::const_iterator end;
+    return m_value.ParseDateTime(str, &end) && end == str.end();
 }
 
-wxVariant::wxVariant(double val, const wxString& name)
+// wxVariant
+
+wxVariant::wxVariant(const wxDateTime& val, const wxString& name) // Date
 {
-    m_data = new wxVariantDataReal(val);
+    m_refData = new wxVariantDataDateTime(val);
     m_name = name;
 }
 
-wxVariant::wxVariant(long val, const wxString& name)
+bool wxVariant::operator== (const wxDateTime& value) const
 {
-    m_data = new wxVariantDataLong(val);
-    m_name = name;
+    wxDateTime thisValue;
+    if (!Convert(&thisValue))
+        return false;
+
+    return value.IsEqualTo(thisValue);
 }
 
-#ifdef HAVE_BOOL
-wxVariant::wxVariant(bool val, const wxString& name)
+bool wxVariant::operator!= (const wxDateTime& value) const
 {
-    m_data = new wxVariantDataBool(val);
-    m_name = name;
+    return (!((*this) == value));
 }
-#endif
 
-wxVariant::wxVariant(char val, const wxString& name)
+void wxVariant::operator= (const wxDateTime& value)
 {
-    m_data = new wxVariantDataChar(val);
-    m_name = name;
+    if (GetType() == wxT("datetime") &&
+        m_refData->GetRefCount() == 1)
+    {
+        ((wxVariantDataDateTime*)GetData())->SetValue(value);
+    }
+    else
+    {
+        UnRef();
+        m_refData = new wxVariantDataDateTime(value);
+    }
 }
 
-wxVariant::wxVariant(const wxString& val, const wxString& name)
+wxDateTime wxVariant::GetDateTime() const
 {
-    m_data = new wxVariantDataString(val);
-    m_name = name;
+    wxDateTime value;
+    if (!Convert(& value))
+    {
+        wxFAIL_MSG(wxT("Could not convert to a datetime"));
+    }
+
+    return value;
 }
 
-wxVariant::wxVariant(const wxChar* val, const wxString& name)
+#endif // wxUSE_DATETIME
+
+// ----------------------------------------------------------------------------
+// wxVariantDataArrayString
+// ----------------------------------------------------------------------------
+
+class wxVariantDataArrayString: public wxVariantData
 {
-    m_data = new wxVariantDataString(wxString(val));
-    m_name = name;
-}
+public:
+    wxVariantDataArrayString() { }
+    wxVariantDataArrayString(const wxArrayString& value) { m_value = value; }
+
+    wxArrayString GetValue() const { return m_value; }
+    void SetValue(const wxArrayString& value) { m_value = value; }
+
+    virtual bool Eq(wxVariantData& data) const;
+#if wxUSE_STD_IOSTREAM
+    virtual bool Write(wxSTD ostream& str) const;
+#endif
+    virtual bool Write(wxString& str) const;
+#if wxUSE_STD_IOSTREAM
+    virtual bool Read(wxSTD istream& str);
+#endif
+    virtual bool Read(wxString& str);
+    virtual wxString GetType() const { return wxT("arrstring"); }
+    virtual wxVariantData* Clone() const { return new wxVariantDataArrayString(m_value); }
+
+    DECLARE_WXANY_CONVERSION()
+protected:
+    wxArrayString m_value;
+};
 
-wxVariant::wxVariant(const wxStringList& val, const wxString& name)
+IMPLEMENT_TRIVIAL_WXANY_CONVERSION(wxArrayString, wxVariantDataArrayString)
+
+bool wxVariantDataArrayString::Eq(wxVariantData& data) const
 {
-    m_data = new wxVariantDataStringList(val);
-    m_name = name;
+    wxASSERT_MSG( data.GetType() == GetType(), wxT("wxVariantDataArrayString::Eq: argument mismatch") );
+
+    wxVariantDataArrayString& otherData = (wxVariantDataArrayString&) data;
+
+    return otherData.m_value == m_value;
 }
 
-wxVariant::wxVariant(const wxList& val, const wxString& name) // List of variants
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataArrayString::Write(wxSTD ostream& WXUNUSED(str)) const
 {
-    m_data = new wxVariantDataList(val);
-    m_name = name;
+    // Not implemented
+    return false;
 }
+#endif
 
-#if wxUSE_TIMEDATE
-wxVariant::wxVariant(const wxTime& val, const wxString& name) // Time
+bool wxVariantDataArrayString::Write(wxString& str) const
 {
-    m_data = new wxVariantDataTime(val);
-    m_name = name;
+    size_t count = m_value.GetCount();
+    for ( size_t n = 0; n < count; n++ )
+    {
+        if ( n )
+            str += wxT(';');
+
+        str += m_value[n];
+    }
+
+    return true;
 }
 
-wxVariant::wxVariant(const wxDate& val, const wxString& name) // Date
+
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataArrayString::Read(wxSTD istream& WXUNUSED(str))
 {
-    m_data = new wxVariantDataDate(val);
-    m_name = name;
+    // Not implemented
+    return false;
 }
 #endif
 
-wxVariant::wxVariant(void* val, const wxString& name) // Void ptr
-{
-    m_data = new wxVariantDataVoidPtr(val);
-    m_name = name;
-}
 
-wxVariant::wxVariant(const wxVariant& variant)
+bool wxVariantDataArrayString::Read(wxString& str)
 {
-    if (!variant.IsNull())
+    wxStringTokenizer tk(str, wxT(";"));
+    while ( tk.HasMoreTokens() )
     {
-        m_data = (wxVariantData*) variant.GetData()->GetClassInfo()->CreateObject();
-        variant.m_data->Copy(*m_data);
+        m_value.Add(tk.GetNextToken());
     }
-    else
-        m_data = (wxVariantData*) NULL;
-    m_name = variant.m_name;
+
+    return true;
 }
 
-wxVariant::wxVariant(wxVariantData* data, const wxString& name) // User-defined data
+// wxVariant
+
+wxVariant::wxVariant(const wxArrayString& val, const wxString& name) // Strings
 {
-    m_data = data;
+    m_refData = new wxVariantDataArrayString(val);
     m_name = name;
 }
 
-wxVariant::~wxVariant()
+bool wxVariant::operator==(const wxArrayString& WXUNUSED(value)) const
 {
-    delete m_data;
-}
+    wxFAIL_MSG( wxT("TODO") );
 
+    return false;
+}
 
-// Make NULL (i.e. delete the data)
-void wxVariant::MakeNull()
+bool wxVariant::operator!=(const wxArrayString& value) const
 {
-    delete m_data;
-    m_data = NULL;
+    return !(*this == value);
 }
 
-// Generic operators
-// Assignment
-void wxVariant::operator= (const wxVariant& variant)
+void wxVariant::operator=(const wxArrayString& value)
 {
-    if (variant.IsNull())
+    if (GetType() == wxT("arrstring") &&
+        m_refData->GetRefCount() == 1)
     {
-        MakeNull();
-        return;
+        ((wxVariantDataArrayString *)GetData())->SetValue(value);
     }
-
-    if (IsNull() || (GetType() != variant.GetType()))
+    else
     {
-        if (m_data)
-            delete m_data;
-        m_data = (wxVariantData*) variant.GetData()->GetClassInfo()->CreateObject();
+        UnRef();
+        m_refData = new wxVariantDataArrayString(value);
     }
-//    GetData()->Copy(* variant.GetData());
-    variant.GetData()->Copy(* GetData());
 }
 
-// Assignment using data, e.g.
-// myVariant = new wxStringVariantData("hello")
-void wxVariant::operator= (wxVariantData* variantData)
+wxArrayString wxVariant::GetArrayString() const
 {
-    MakeNull();
-    m_data = variantData;
+    if ( GetType() == wxT("arrstring") )
+        return ((wxVariantDataArrayString *)GetData())->GetValue();
+
+    return wxArrayString();
 }
 
-bool wxVariant::operator== (const wxVariant& variant) const
-{
-    if (IsNull() || variant.IsNull())
-        return (IsNull() == variant.IsNull());
+// ----------------------------------------------------------------------------
+// wxVariantDataLongLong
+// ----------------------------------------------------------------------------
 
-    return (GetData()->Eq(* variant.GetData()));
-}
+#if wxUSE_LONGLONG
 
-bool wxVariant::operator!= (const wxVariant& variant) const
+class WXDLLIMPEXP_BASE wxVariantDataLongLong : public wxVariantData
 {
-    return (!(*this == variant));
-}
+public:
+    wxVariantDataLongLong() { m_value = 0; }
+    wxVariantDataLongLong(wxLongLong value) { m_value = value; }
 
+    wxLongLong GetValue() const { return m_value; }
+    void SetValue(wxLongLong value) { m_value = value; }
 
-// Specific operators
-bool wxVariant::operator== (double value) const
+    virtual bool Eq(wxVariantData& data) const;
+
+    virtual bool Read(wxString& str);
+    virtual bool Write(wxString& str) const;
+#if wxUSE_STD_IOSTREAM
+    virtual bool Read(wxSTD istream& str);
+    virtual bool Write(wxSTD ostream& str) const;
+#endif
+#if wxUSE_STREAMS
+    virtual bool Read(wxInputStream& str);
+    virtual bool Write(wxOutputStream &str) const;
+#endif // wxUSE_STREAMS
+
+    wxVariantData* Clone() const
+    {
+        return new wxVariantDataLongLong(m_value);
+    }
+
+    virtual wxString GetType() const { return wxS("longlong"); }
+
+    DECLARE_WXANY_CONVERSION()
+protected:
+    wxLongLong m_value;
+};
+
+//
+// wxLongLong type requires customized wxAny conversion code
+//
+#if wxUSE_ANY
+#ifdef wxLongLong_t
+
+bool wxVariantDataLongLong::GetAsAny(wxAny* any) const
 {
-    double thisValue;
-    if (!Convert(&thisValue))
-        return FALSE;
-    else
-        return (value == thisValue);
+    *any = m_value.GetValue();
+    return true;
 }
 
-bool wxVariant::operator!= (double value) const
+wxVariantData* wxVariantDataLongLong::VariantDataFactory(const wxAny& any)
 {
-    return (!((*this) == value));
+    return new wxVariantDataLongLong(wxANY_AS(any, wxLongLong_t));
 }
 
-void wxVariant::operator= (double value)
+REGISTER_WXANY_CONVERSION(wxLongLong_t, wxVariantDataLongLong)
+
+#else // if !defined(wxLongLong_t)
+
+bool wxVariantDataLongLong::GetAsAny(wxAny* any) const
 {
-    if (GetType() == _T("double"))
-    {
-        ((wxVariantDataReal*)GetData())->SetValue(value);
-    }
-    else
-    {
-        if (m_data)
-            delete m_data;
-        m_data = new wxVariantDataReal(value);
-    }
+    *any = m_value;
+    return true;
 }
 
-bool wxVariant::operator== (long value) const
+wxVariantData* wxVariantDataLongLong::VariantDataFactory(const wxAny& any)
 {
-    long thisValue;
-    if (!Convert(&thisValue))
-        return FALSE;
-    else
-        return (value == thisValue);
+    return new wxVariantDataLongLong(wxANY_AS(any, wxLongLong));
 }
 
-bool wxVariant::operator!= (long value) const
+REGISTER_WXANY_CONVERSION(wxLongLong, wxVariantDataLongLong)
+
+#endif // defined(wxLongLong_t)/!defined(wxLongLong_t)
+#endif // wxUSE_ANY
+
+bool wxVariantDataLongLong::Eq(wxVariantData& data) const
 {
-    return (!((*this) == value));
+    wxASSERT_MSG( (data.GetType() == wxS("longlong")),
+                  "wxVariantDataLongLong::Eq: argument mismatch" );
+
+    wxVariantDataLongLong& otherData = (wxVariantDataLongLong&) data;
+
+    return (otherData.m_value == m_value);
 }
 
-void wxVariant::operator= (long value)
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataLongLong::Write(wxSTD ostream& str) const
 {
-    if (GetType() == _T("long"))
-    {
-        ((wxVariantDataLong*)GetData())->SetValue(value);
-    }
-    else
-    {
-        if (m_data)
-            delete m_data;
-        m_data = new wxVariantDataLong(value);
-    }
+    wxString s;
+    Write(s);
+    str << (const char*) s.mb_str();
+    return true;
 }
+#endif
 
-bool wxVariant::operator== (char value) const
+bool wxVariantDataLongLong::Write(wxString& str) const
 {
-    char thisValue;
-    if (!Convert(&thisValue))
-        return FALSE;
-    else
-        return (value == thisValue);
+#ifdef wxLongLong_t
+    str.Printf(wxS("%lld"), m_value.GetValue());
+    return true;
+#else
+    return false;
+#endif
 }
 
-bool wxVariant::operator!= (char value) const
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataLongLong::Read(wxSTD istream& WXUNUSED(str))
 {
-    return (!((*this) == value));
+    wxFAIL_MSG(wxS("Unimplemented"));
+    return false;
 }
+#endif
 
-void wxVariant::operator= (char value)
+#if wxUSE_STREAMS
+bool wxVariantDataLongLong::Write(wxOutputStream& str) const
 {
-    if (GetType() == _T("char"))
-    {
-        ((wxVariantDataChar*)GetData())->SetValue(value);
-    }
-    else
-    {
-        if (m_data)
-            delete m_data;
-        m_data = new wxVariantDataChar(value);
-    }
+    wxTextOutputStream s(str);
+    s.Write32(m_value.GetLo());
+    s.Write32(m_value.GetHi());
+    return true;
 }
 
-#ifdef HAVE_BOOL
-bool wxVariant::operator== (bool value) const
+bool wxVariantDataLongLong::Read(wxInputStream& str)
 {
-    bool thisValue;
-    if (!Convert(&thisValue))
-        return FALSE;
-    else
-        return (value == thisValue);
+   wxTextInputStream s(str);
+   unsigned long lo = s.Read32();
+   long hi = s.Read32();
+   m_value = wxLongLong(hi, lo);
+   return true;
 }
+#endif // wxUSE_STREAMS
 
-bool wxVariant::operator!= (bool value) const
+bool wxVariantDataLongLong::Read(wxString& str)
 {
-    return (!((*this) == value));
+#ifdef wxLongLong_t
+    wxLongLong_t value_t;
+    if ( !str.ToLongLong(&value_t) )
+        return false;
+    m_value = value_t;
+    return true;
+#else
+    return false;
+#endif
 }
 
-void wxVariant::operator= (bool value)
+// wxVariant
+
+wxVariant::wxVariant(wxLongLong val, const wxString& name)
 {
-    if (GetType() == _T("bool"))
-    {
-        ((wxVariantDataBool*)GetData())->SetValue(value);
-    }
-    else
-    {
-        if (m_data)
-            delete m_data;
-        m_data = new wxVariantDataBool(value);
-    }
+    m_refData = new wxVariantDataLongLong(val);
+    m_name = name;
 }
-#endif // HAVE_BOOL
 
-bool wxVariant::operator== (const wxString& value) const
+bool wxVariant::operator==(wxLongLong value) const
 {
-    wxString thisValue;
-    if (!Convert(&thisValue))
-        return FALSE;
+    wxLongLong thisValue;
+    if ( !Convert(&thisValue) )
+        return false;
     else
         return (value == thisValue);
 }
 
-bool wxVariant::operator!= (const wxString& value) const
+bool wxVariant::operator!=(wxLongLong value) const
 {
     return (!((*this) == value));
 }
 
-void wxVariant::operator= (const wxString& value)
+void wxVariant::operator=(wxLongLong value)
 {
-    if (GetType() == _T("string"))
+    if ( GetType() == wxS("longlong") &&
+         m_refData->GetRefCount() == 1 )
     {
-        ((wxVariantDataString*)GetData())->SetValue(value);
+        ((wxVariantDataLongLong*)GetData())->SetValue(value);
     }
     else
     {
-        if (m_data)
-            delete m_data;
-        m_data = new wxVariantDataString(value);
+        UnRef();
+        m_refData = new wxVariantDataLongLong(value);
     }
 }
 
-void wxVariant::operator= (const wxChar* value)
+wxLongLong wxVariant::GetLongLong() const
 {
-    if (GetType() == _T("string"))
+    wxLongLong value;
+    if ( Convert(&value) )
     {
-        ((wxVariantDataString*)GetData())->SetValue(wxString(value));
+        return value;
     }
     else
     {
-        if (m_data)
-            delete m_data;
-        m_data = new wxVariantDataString(wxString(value));
+        wxFAIL_MSG(wxT("Could not convert to a long long"));
+        return 0;
     }
 }
 
-bool wxVariant::operator== (const wxStringList& value) const
+#endif // wxUSE_LONGLONG
+
+// ----------------------------------------------------------------------------
+// wxVariantDataULongLong
+// ----------------------------------------------------------------------------
+
+#if wxUSE_LONGLONG
+
+class WXDLLIMPEXP_BASE wxVariantDataULongLong : public wxVariantData
 {
-    wxASSERT_MSG( (GetType() == _T("stringlist")), _T("Invalid type for == operator") );
+public:
+    wxVariantDataULongLong() { m_value = 0; }
+    wxVariantDataULongLong(wxULongLong value) { m_value = value; }
 
-    wxVariantDataStringList other(value);
-    return (m_data->Eq(other));
-}
+    wxULongLong GetValue() const { return m_value; }
+    void SetValue(wxULongLong value) { m_value = value; }
+
+    virtual bool Eq(wxVariantData& data) const;
+
+    virtual bool Read(wxString& str);
+    virtual bool Write(wxString& str) const;
+#if wxUSE_STD_IOSTREAM
+    virtual bool Read(wxSTD istream& str);
+    virtual bool Write(wxSTD ostream& str) const;
+#endif
+#if wxUSE_STREAMS
+    virtual bool Read(wxInputStream& str);
+    virtual bool Write(wxOutputStream &str) const;
+#endif // wxUSE_STREAMS
+
+    wxVariantData* Clone() const
+    {
+        return new wxVariantDataULongLong(m_value);
+    }
+
+    virtual wxString GetType() const { return wxS("ulonglong"); }
 
-bool wxVariant::operator!= (const wxStringList& value) const
+    DECLARE_WXANY_CONVERSION()
+protected:
+    wxULongLong m_value;
+};
+
+//
+// wxULongLong type requires customized wxAny conversion code
+//
+#if wxUSE_ANY
+#ifdef wxLongLong_t
+
+bool wxVariantDataULongLong::GetAsAny(wxAny* any) const
 {
-    return (!((*this) == value));
+    *any = m_value.GetValue();
+    return true;
 }
 
-void wxVariant::operator= (const wxStringList& value)
+wxVariantData* wxVariantDataULongLong::VariantDataFactory(const wxAny& any)
 {
-    if (GetType() == _T("stringlist"))
-    {
-        ((wxVariantDataStringList*)GetData())->SetValue(value);
-    }
-    else
-    {
-        if (m_data)
-            delete m_data;
-        m_data = new wxVariantDataStringList(value);
-    }
+    return new wxVariantDataULongLong(wxANY_AS(any, wxULongLong_t));
 }
 
-bool wxVariant::operator== (const wxList& value) const
+REGISTER_WXANY_CONVERSION(wxULongLong_t, wxVariantDataULongLong)
+
+#else // if !defined(wxLongLong_t)
+
+bool wxVariantDataULongLong::GetAsAny(wxAny* any) const
 {
-    wxASSERT_MSG( (GetType() == _T("list")), _T("Invalid type for == operator") );
+    *any = m_value;
+    return true;
+}
 
-    wxVariantDataList other(value);
-    return (m_data->Eq(other));
+wxVariantData* wxVariantDataULongLong::VariantDataFactory(const wxAny& any)
+{
+    return new wxVariantDataULongLong(wxANY_AS(any, wxULongLong));
 }
 
-bool wxVariant::operator!= (const wxList& value) const
+REGISTER_WXANY_CONVERSION(wxULongLong, wxVariantDataULongLong)
+
+#endif // defined(wxLongLong_t)/!defined(wxLongLong_t)
+#endif // wxUSE_ANY
+
+
+bool wxVariantDataULongLong::Eq(wxVariantData& data) const
 {
-    return (!((*this) == value));
+    wxASSERT_MSG( (data.GetType() == wxS("ulonglong")),
+                  "wxVariantDataULongLong::Eq: argument mismatch" );
+
+    wxVariantDataULongLong& otherData = (wxVariantDataULongLong&) data;
+
+    return (otherData.m_value == m_value);
 }
 
-void wxVariant::operator= (const wxList& value)
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataULongLong::Write(wxSTD ostream& str) const
 {
-    if (GetType() == _T("list"))
-    {
-        ((wxVariantDataList*)GetData())->SetValue(value);
-    }
-    else
-    {
-        if (m_data)
-            delete m_data;
-        m_data = new wxVariantDataList(value);
-    }
+    wxString s;
+    Write(s);
+    str << (const char*) s.mb_str();
+    return true;
 }
+#endif
 
-#if wxUSE_TIMEDATE
-bool wxVariant::operator== (const wxTime& value) const
+bool wxVariantDataULongLong::Write(wxString& str) const
 {
-    wxTime thisValue;
-    if (!Convert(&thisValue))
-        return FALSE;
-    else
-        return (value == thisValue);
+#ifdef wxLongLong_t
+    str.Printf(wxS("%llu"), m_value.GetValue());
+    return true;
+#else
+    return false;
+#endif
 }
 
-bool wxVariant::operator!= (const wxTime& value) const
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataULongLong::Read(wxSTD istream& WXUNUSED(str))
 {
-    return (!((*this) == value));
+    wxFAIL_MSG(wxS("Unimplemented"));
+    return false;
 }
+#endif
 
-void wxVariant::operator= (const wxTime& value)
+#if wxUSE_STREAMS
+bool wxVariantDataULongLong::Write(wxOutputStream& str) const
 {
-    if (GetType() == _T("time"))
-    {
-        ((wxVariantDataTime*)GetData())->SetValue(value);
-    }
-    else
-    {
-        if (m_data)
-            delete m_data;
-        m_data = new wxVariantDataTime(value);
-    }
+    wxTextOutputStream s(str);
+    s.Write32(m_value.GetLo());
+    s.Write32(m_value.GetHi());
+    return true;
 }
 
-bool wxVariant::operator== (const wxDate& value) const
+bool wxVariantDataULongLong::Read(wxInputStream& str)
 {
-    wxDate thisValue;
-    if (!Convert(&thisValue))
-        return FALSE;
-    else
-        return (value == thisValue);
+   wxTextInputStream s(str);
+   unsigned long lo = s.Read32();
+   long hi = s.Read32();
+   m_value = wxULongLong(hi, lo);
+   return true;
 }
+#endif // wxUSE_STREAMS
 
-bool wxVariant::operator!= (const wxDate& value) const
+bool wxVariantDataULongLong::Read(wxString& str)
 {
-    return (!((*this) == value));
+#ifdef wxLongLong_t
+    wxULongLong_t value_t;
+    if ( !str.ToULongLong(&value_t) )
+        return false;
+    m_value = value_t;
+    return true;
+#else
+    return false;
+#endif
 }
 
-void wxVariant::operator= (const wxDate& value)
+// wxVariant
+
+wxVariant::wxVariant(wxULongLong val, const wxString& name)
 {
-    if (GetType() == _T("date"))
-    {
-        ((wxVariantDataTime*)GetData())->SetValue(value);
-    }
-    else
-    {
-        if (m_data)
-            delete m_data;
-        m_data = new wxVariantDataDate(value);
-    }
+    m_refData = new wxVariantDataULongLong(val);
+    m_name = name;
 }
-#endif
 
-bool wxVariant::operator== (void* value) const
+bool wxVariant::operator==(wxULongLong value) const
 {
-    return (value == ((wxVariantDataVoidPtr*)GetData())->GetValue());
+    wxULongLong thisValue;
+    if ( !Convert(&thisValue) )
+        return false;
+    else
+        return (value == thisValue);
 }
 
-bool wxVariant::operator!= (void* value) const
+bool wxVariant::operator!=(wxULongLong value) const
 {
     return (!((*this) == value));
 }
 
-void wxVariant::operator= (void* value)
+void wxVariant::operator=(wxULongLong value)
 {
-    if (GetType() == _T("void*"))
+    if ( GetType() == wxS("ulonglong") &&
+         m_refData->GetRefCount() == 1 )
     {
-        ((wxVariantDataVoidPtr*)GetData())->SetValue(value);
+        ((wxVariantDataULongLong*)GetData())->SetValue(value);
     }
     else
     {
-        if (m_data)
-            delete m_data;
-        m_data = new wxVariantDataVoidPtr(value);
+        UnRef();
+        m_refData = new wxVariantDataULongLong(value);
     }
 }
 
-// Treat a list variant as an array
-wxVariant wxVariant::operator[] (size_t idx) const
+wxULongLong wxVariant::GetULongLong() const
 {
-    wxASSERT_MSG( (GetType() == _T("list") || GetType() == _T("stringlist")), _T("Invalid type for array operator") );
-
-    if (GetType() == _T("list"))
+    wxULongLong value;
+    if ( Convert(&value) )
     {
-        wxVariantDataList* data = (wxVariantDataList*) m_data;
-        wxASSERT_MSG( (idx < (size_t) data->GetValue().Number()), _T("Invalid index for array") );
-        return * (wxVariant*) (data->GetValue().Nth(idx)->Data());
+        return value;
     }
-    else if (GetType() == _T("stringlist"))
+    else
     {
-        wxVariantDataStringList* data = (wxVariantDataStringList*) m_data;
-        wxASSERT_MSG( (idx < (size_t) data->GetValue().Number()), _T("Invalid index for array") );
-
-        wxVariant variant( wxString( (wxChar*) (data->GetValue().Nth(idx)->Data()) ));
-        return variant;
+        wxFAIL_MSG(wxT("Could not convert to a long long"));
+        return 0;
     }
-    return wxNullVariant;
 }
 
-wxVariant& wxVariant::operator[] (size_t idx)
+#endif // wxUSE_LONGLONG
+
+// ----------------------------------------------------------------------------
+// wxVariantDataList
+// ----------------------------------------------------------------------------
+
+class WXDLLIMPEXP_BASE wxVariantDataList: public wxVariantData
 {
-    // We can't return a reference to a variant for a string list, since the string
-    // is actually stored as a char*, not a variant.
+public:
+    wxVariantDataList() {}
+    wxVariantDataList(const wxVariantList& list);
+    virtual ~wxVariantDataList();
 
-    wxASSERT_MSG( (GetType() == _T("list")), _T("Invalid type for array operator") );
+    wxVariantList& GetValue() { return m_value; }
+    void SetValue(const wxVariantList& value) ;
 
-    wxVariantDataList* data = (wxVariantDataList*) m_data;
-    wxASSERT_MSG( (idx < (size_t) data->GetValue().Number()), _T("Invalid index for array") );
+    virtual bool Eq(wxVariantData& data) const;
+#if wxUSE_STD_IOSTREAM
+    virtual bool Write(wxSTD ostream& str) const;
+#endif
+    virtual bool Write(wxString& str) const;
+#if wxUSE_STD_IOSTREAM
+    virtual bool Read(wxSTD istream& str);
+#endif
+    virtual bool Read(wxString& str);
+    virtual wxString GetType() const { return wxT("list"); }
 
-    return * (wxVariant*) (data->GetValue().Nth(idx)->Data());
-}
+    void Clear();
 
-// Return the number of elements in a list
-int wxVariant::GetCount() const
-{
-    wxASSERT_MSG( (GetType() == _T("list") || GetType() == _T("stringlist")), _T("Invalid type for GetCount()") );
+    wxVariantData* Clone() const { return new wxVariantDataList(m_value); }
 
-    if (GetType() == _T("list"))
-    {
-        wxVariantDataList* data = (wxVariantDataList*) m_data;
-        return data->GetValue().Number();
-    }
-    else if (GetType() == _T("stringlist"))
+    DECLARE_WXANY_CONVERSION()
+protected:
+    wxVariantList  m_value;
+};
+
+#if wxUSE_ANY
+
+//
+// Convert to/from list of wxAnys
+//
+
+bool wxVariantDataList::GetAsAny(wxAny* any) const
+{
+    wxAnyList dst;
+    wxVariantList::compatibility_iterator node = m_value.GetFirst();
+    while (node)
     {
-        wxVariantDataStringList* data = (wxVariantDataStringList*) m_data;
-        return data->GetValue().Number();
+        wxVariant* pVar = node->GetData();
+        dst.push_back(new wxAny(((const wxVariant&)*pVar)));
+        node = node->GetNext();
     }
-    return 0;
+
+    *any = dst;
+    return true;
 }
 
-wxString wxVariant::MakeString() const
+wxVariantData* wxVariantDataList::VariantDataFactory(const wxAny& any)
 {
-    if (!IsNull())
+    wxAnyList src = wxANY_AS(any, wxAnyList);
+    wxVariantList dst;
+    wxAnyList::compatibility_iterator node = src.GetFirst();
+    while (node)
     {
-        wxString str;
-        if (GetData()->Write(str))
-            return str;
+        wxAny* pAny = node->GetData();
+        dst.push_back(new wxVariant(*pAny));
+        node = node->GetNext();
     }
-    return wxString(_T(""));
-}
-
-// Accessors
 
-void wxVariant::SetData(wxVariantData* data)
-{
-    if (m_data) delete m_data;
-    m_data = data;
+    return new wxVariantDataList(dst);
 }
 
+REGISTER_WXANY_CONVERSION(wxAnyList, wxVariantDataList)
 
-// Returns a string representing the type of the variant,
-// e.g. "string", "bool", "stringlist", "list", "double", "long"
-wxString wxVariant::GetType() const
+#endif // wxUSE_ANY
+
+wxVariantDataList::wxVariantDataList(const wxVariantList& list)
 {
-    if (IsNull())
-        return wxString(_T("null"));
-    else
-        return m_data->GetType();
+    SetValue(list);
 }
 
-
-bool wxVariant::IsType(const wxString& type) const
+wxVariantDataList::~wxVariantDataList()
 {
-    return (GetType() == type);
+    Clear();
 }
 
-
-// Value accessors
-double wxVariant::GetReal() const
+void wxVariantDataList::SetValue(const wxVariantList& value)
 {
-    double value;
-    if (Convert(& value))
-        return value;
-    else
+    Clear();
+    wxVariantList::compatibility_iterator node = value.GetFirst();
+    while (node)
     {
-        wxFAIL_MSG(_T("Could not convert to a real number"));
-        return 0.0;
+        wxVariant* var = node->GetData();
+        m_value.Append(new wxVariant(*var));
+        node = node->GetNext();
     }
 }
 
-long wxVariant::GetInteger() const
+void wxVariantDataList::Clear()
 {
-    long value;
-    if (Convert(& value))
-        return value;
-    else
+    wxVariantList::compatibility_iterator node = m_value.GetFirst();
+    while (node)
     {
-        wxFAIL_MSG(_T("Could not convert to an integer"));
-        return 0;
+        wxVariant* var = node->GetData();
+        delete var;
+        node = node->GetNext();
     }
+    m_value.Clear();
 }
 
-char wxVariant::GetChar() const
+bool wxVariantDataList::Eq(wxVariantData& data) const
 {
-    char value;
-    if (Convert(& value))
-        return value;
-    else
+    wxASSERT_MSG( (data.GetType() == wxT("list")), wxT("wxVariantDataList::Eq: argument mismatch") );
+
+    wxVariantDataList& listData = (wxVariantDataList&) data;
+    wxVariantList::compatibility_iterator node1 = m_value.GetFirst();
+    wxVariantList::compatibility_iterator node2 = listData.GetValue().GetFirst();
+    while (node1 && node2)
     {
-        wxFAIL_MSG(_T("Could not convert to a char"));
-        return 0;
+        wxVariant* var1 = node1->GetData();
+        wxVariant* var2 = node2->GetData();
+        if ((*var1) != (*var2))
+            return false;
+        node1 = node1->GetNext();
+        node2 = node2->GetNext();
     }
+    if (node1 || node2) return false;
+    return true;
 }
 
-bool wxVariant::GetBool() const
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataList::Write(wxSTD ostream& str) const
 {
-    bool value;
-    if (Convert(& value))
-        return value;
-    else
-    {
-        wxFAIL_MSG(_T("Could not convert to a bool"));
-        return 0;
-    }
+    wxString s;
+    Write(s);
+    str << (const char*) s.mb_str();
+    return true;
 }
+#endif
 
-wxString wxVariant::GetString() const
+bool wxVariantDataList::Write(wxString& str) const
 {
-    wxString value;
-    if (Convert(& value))
-        return value;
-    else
+    str = wxEmptyString;
+    wxVariantList::compatibility_iterator node = m_value.GetFirst();
+    while (node)
     {
-        wxFAIL_MSG(_T("Could not convert to a string"));
-        return wxString("");
+        wxVariant* var = node->GetData();
+        if (node != m_value.GetFirst())
+          str += wxT(" ");
+        wxString str1;
+        str += var->MakeString();
+        node = node->GetNext();
     }
+
+    return true;
 }
 
-#if wxUSE_TIMEDATE
-wxTime wxVariant::GetTime() const
+#if wxUSE_STD_IOSTREAM
+bool wxVariantDataList::Read(wxSTD istream& WXUNUSED(str))
 {
-    wxTime value;
-    if (Convert(& value))
-        return value;
-    else
-    {
-        wxFAIL_MSG(_T("Could not convert to a time"));
-        return wxTime();
-    }
+    wxFAIL_MSG(wxT("Unimplemented"));
+    // TODO
+    return false;
 }
+#endif
 
-wxDate wxVariant::GetDate() const
+bool wxVariantDataList::Read(wxString& WXUNUSED(str))
 {
-    wxDate value;
-    if (Convert(& value))
-        return value;
-    else
-    {
-        wxFAIL_MSG(_T("Could not convert to a date"));
-        return wxDate();
-    }
+    wxFAIL_MSG(wxT("Unimplemented"));
+    // TODO
+    return false;
 }
-#endif
 
-void* wxVariant::GetVoidPtr() const
+// wxVariant
+
+wxVariant::wxVariant(const wxVariantList& val, const wxString& name) // List of variants
+{
+    m_refData = new wxVariantDataList(val);
+    m_name = name;
+}
+
+bool wxVariant::operator== (const wxVariantList& value) const
 {
-    wxASSERT( (GetType() == _T("void*")) );
+    wxASSERT_MSG( (GetType() == wxT("list")), wxT("Invalid type for == operator") );
 
-    return (void*) ((wxVariantDataVoidPtr*) m_data)->GetValue();
+    wxVariantDataList other(value);
+    return (GetData()->Eq(other));
 }
 
-wxList& wxVariant::GetList() const
+bool wxVariant::operator!= (const wxVariantList& value) const
 {
-    wxASSERT( (GetType() == _T("list")) );
+    return (!((*this) == value));
+}
 
-    return (wxList&) ((wxVariantDataList*) m_data)->GetValue();
+void wxVariant::operator= (const wxVariantList& value)
+{
+    if (GetType() == wxT("list") &&
+        m_refData->GetRefCount() == 1)
+    {
+        ((wxVariantDataList*)GetData())->SetValue(value);
+    }
+    else
+    {
+        UnRef();
+        m_refData = new wxVariantDataList(value);
+    }
 }
 
-wxStringList& wxVariant::GetStringList() const
+wxVariantList& wxVariant::GetList() const
 {
-    wxASSERT( (GetType() == _T("stringlist")) );
+    wxASSERT( (GetType() == wxT("list")) );
+
+    return (wxVariantList&) ((wxVariantDataList*) m_refData)->GetValue();
+}
 
-    return (wxStringList&) ((wxVariantDataStringList*) m_data)->GetValue();
+// Make empty list
+void wxVariant::NullList()
+{
+    SetData(new wxVariantDataList());
 }
 
 // Append to list
 void wxVariant::Append(const wxVariant& value)
 {
-    wxList& list = GetList();
+    wxVariantList& list = GetList();
 
     list.Append(new wxVariant(value));
 }
@@ -1625,171 +2167,350 @@ void wxVariant::Append(const wxVariant& value)
 // Insert at front of list
 void wxVariant::Insert(const wxVariant& value)
 {
-    wxList& list = GetList();
+    wxVariantList& list = GetList();
 
     list.Insert(new wxVariant(value));
 }
 
-// Returns TRUE if the variant is a member of the list
+// Returns true if the variant is a member of the list
 bool wxVariant::Member(const wxVariant& value) const
 {
-    wxList& list = GetList();
+    wxVariantList& list = GetList();
 
-    wxNode* node = list.First();
+    wxVariantList::compatibility_iterator node = list.GetFirst();
     while (node)
     {
-        wxVariant* other = (wxVariant*) node->Data();
+        wxVariant* other = node->GetData();
         if (value == *other)
-            return TRUE;
-        node = node->Next();
+            return true;
+        node = node->GetNext();
     }
-    return FALSE;
+    return false;
 }
 
 // Deletes the nth element of the list
-bool wxVariant::Delete(int item)
+bool wxVariant::Delete(size_t item)
 {
-    wxList& list = GetList();
+    wxVariantList& list = GetList();
 
-    wxASSERT_MSG( (item < list.Number()), _T("Invalid index to Delete") );
-    wxNode* node = list.Nth(item);
-    wxVariant* variant = (wxVariant*) node->Data();
+    wxASSERT_MSG( (item < list.GetCount()), wxT("Invalid index to Delete") );
+    wxVariantList::compatibility_iterator node = list.Item(item);
+    wxVariant* variant = node->GetData();
     delete variant;
-    delete node;
-    return TRUE;
+    list.Erase(node);
+    return true;
 }
 
 // Clear list
 void wxVariant::ClearList()
 {
-    if (!IsNull() && (GetType() == _T("list")))
+    if (!IsNull() && (GetType() == wxT("list")))
     {
-        ((wxVariantDataList*) m_data)->Clear();
+        ((wxVariantDataList*) m_refData)->Clear();
     }
     else
     {
-        if (GetType() != _T("list"))
-        {
-            delete m_data;
-            m_data = NULL;
-        }
-        m_data = new wxVariantDataList;
+        if (!GetType().IsSameAs(wxT("list")))
+            UnRef();
+
+        m_refData = new wxVariantDataList;
+    }
+}
+
+// Treat a list variant as an array
+wxVariant wxVariant::operator[] (size_t idx) const
+{
+    wxASSERT_MSG( GetType() == wxT("list"), wxT("Invalid type for array operator") );
+
+    if (GetType() == wxT("list"))
+    {
+        wxVariantDataList* data = (wxVariantDataList*) m_refData;
+        wxASSERT_MSG( (idx < data->GetValue().GetCount()), wxT("Invalid index for array") );
+        return *(data->GetValue().Item(idx)->GetData());
+    }
+    return wxNullVariant;
+}
+
+wxVariant& wxVariant::operator[] (size_t idx)
+{
+    // We can't return a reference to a variant for a string list, since the string
+    // is actually stored as a char*, not a variant.
+
+    wxASSERT_MSG( (GetType() == wxT("list")), wxT("Invalid type for array operator") );
+
+    wxVariantDataList* data = (wxVariantDataList*) m_refData;
+    wxASSERT_MSG( (idx < data->GetValue().GetCount()), wxT("Invalid index for array") );
+
+    return * (data->GetValue().Item(idx)->GetData());
+}
+
+// Return the number of elements in a list
+size_t wxVariant::GetCount() const
+{
+    wxASSERT_MSG( GetType() == wxT("list"), wxT("Invalid type for GetCount()") );
+
+    if (GetType() == wxT("list"))
+    {
+        wxVariantDataList* data = (wxVariantDataList*) m_refData;
+        return data->GetValue().GetCount();
     }
+    return 0;
 }
 
+// ----------------------------------------------------------------------------
 // Type conversion
+// ----------------------------------------------------------------------------
+
 bool wxVariant::Convert(long* value) const
 {
     wxString type(GetType());
-    if (type == _T("double"))
-        *value = (long) (((wxVariantDataReal*)GetData())->GetValue());
-    else if (type == _T("long"))
+    if (type == wxS("double"))
+        *value = (long) (((wxVariantDoubleData*)GetData())->GetValue());
+    else if (type == wxS("long"))
         *value = ((wxVariantDataLong*)GetData())->GetValue();
-#ifdef HAVE_BOOL
-    else if (type == _T("bool"))
+    else if (type == wxS("bool"))
         *value = (long) (((wxVariantDataBool*)GetData())->GetValue());
+    else if (type == wxS("string"))
+        *value = wxAtol(((wxVariantDataString*)GetData())->GetValue());
+#if wxUSE_LONGLONG
+    else if (type == wxS("longlong"))
+    {
+        wxLongLong v = ((wxVariantDataLongLong*)GetData())->GetValue();
+        // Don't convert if return value would be vague
+        if ( v < LONG_MIN || v > LONG_MAX )
+            return false;
+        *value = v.ToLong();
+    }
+    else if (type == wxS("ulonglong"))
+    {
+        wxULongLong v = ((wxVariantDataULongLong*)GetData())->GetValue();
+        // Don't convert if return value would be vague
+        if ( v.GetHi() )
+            return false;
+        *value = (long) v.ToULong();
+    }
 #endif
-    else if (type == _T("string"))
-        *value = wxAtol((const wxChar*) ((wxVariantDataString*)GetData())->GetValue());
     else
-        return FALSE;
+        return false;
 
-    return TRUE;
+    return true;
 }
 
 bool wxVariant::Convert(bool* value) const
 {
     wxString type(GetType());
-    if (type == _T("double"))
-        *value = ((int) (((wxVariantDataReal*)GetData())->GetValue()) != 0);
-    else if (type == _T("long"))
+    if (type == wxT("double"))
+        *value = ((int) (((wxVariantDoubleData*)GetData())->GetValue()) != 0);
+    else if (type == wxT("long"))
         *value = (((wxVariantDataLong*)GetData())->GetValue() != 0);
-#ifdef HAVE_BOOL
-    else if (type == _T("bool"))
+    else if (type == wxT("bool"))
         *value = ((wxVariantDataBool*)GetData())->GetValue();
-#endif
-    else if (type == _T("string"))
+    else if (type == wxT("string"))
     {
         wxString val(((wxVariantDataString*)GetData())->GetValue());
         val.MakeLower();
-        if (val == _T("true") || val == _T("yes"))
-            *value = TRUE;
-        else if (val == _T("false") || val == _T("no"))
-            *value = FALSE;
+        if (val == wxT("true") || val == wxT("yes") || val == wxT('1') )
+            *value = true;
+        else if (val == wxT("false") || val == wxT("no") || val == wxT('0') )
+            *value = false;
         else
-            return FALSE;
+            return false;
     }
     else
-        return FALSE;
+        return false;
 
-    return TRUE;
+    return true;
 }
 
 bool wxVariant::Convert(double* value) const
 {
     wxString type(GetType());
-    if (type == _T("double"))
-        *value = ((wxVariantDataReal*)GetData())->GetValue();
-    else if (type == _T("long"))
+    if (type == wxT("double"))
+        *value = ((wxVariantDoubleData*)GetData())->GetValue();
+    else if (type == wxT("long"))
         *value = (double) (((wxVariantDataLong*)GetData())->GetValue());
-#ifdef HAVE_BOOL
-    else if (type == _T("bool"))
+    else if (type == wxT("bool"))
         *value = (double) (((wxVariantDataBool*)GetData())->GetValue());
+    else if (type == wxT("string"))
+        *value = (double) wxAtof(((wxVariantDataString*)GetData())->GetValue());
+#if wxUSE_LONGLONG
+    else if (type == wxS("longlong"))
+    {
+        *value = ((wxVariantDataLongLong*)GetData())->GetValue().ToDouble();
+    }
+    else if (type == wxS("ulonglong"))
+    {
+        *value = ((wxVariantDataULongLong*)GetData())->GetValue().ToDouble();
+    }
 #endif
-    else if (type == _T("string"))
-        *value = (double) wxAtof((const wxChar*) ((wxVariantDataString*)GetData())->GetValue());
     else
-        return FALSE;
+        return false;
 
-    return TRUE;
+    return true;
 }
 
-bool wxVariant::Convert(char* value) const
+bool wxVariant::Convert(wxUniChar* value) const
 {
     wxString type(GetType());
-    if (type == _T("char"))
+    if (type == wxT("char"))
         *value = ((wxVariantDataChar*)GetData())->GetValue();
-    else if (type == _T("long"))
+    else if (type == wxT("long"))
         *value = (char) (((wxVariantDataLong*)GetData())->GetValue());
-#ifdef HAVE_BOOL
-    else if (type == _T("bool"))
+    else if (type == wxT("bool"))
         *value = (char) (((wxVariantDataBool*)GetData())->GetValue());
-#endif
+    else if (type == wxS("string"))
+    {
+        // Also accept strings of length 1
+        const wxString& str = (((wxVariantDataString*)GetData())->GetValue());
+        if ( str.length() == 1 )
+            *value = str[0];
+        else
+            return false;
+    }
     else
-        return FALSE;
+        return false;
 
-    return TRUE;
+    return true;
+}
+
+bool wxVariant::Convert(char* value) const
+{
+    wxUniChar ch;
+    if ( !Convert(&ch) )
+        return false;
+    *value = ch;
+    return true;
+}
+
+bool wxVariant::Convert(wchar_t* value) const
+{
+    wxUniChar ch;
+    if ( !Convert(&ch) )
+        return false;
+    *value = ch;
+    return true;
 }
 
 bool wxVariant::Convert(wxString* value) const
 {
     *value = MakeString();
-    return TRUE;
+    return true;
 }
 
-#if wxUSE_TIMEDATE
-bool wxVariant::Convert(wxTime* value) const
+#if wxUSE_LONGLONG
+bool wxVariant::Convert(wxLongLong* value) const
 {
     wxString type(GetType());
-    if (type == _T("time"))
-        *value = ((wxVariantDataTime*)GetData())->GetValue();
-    else if (type == _T("date"))
-        *value = wxTime(((wxVariantDataDate*)GetData())->GetValue());
+    if (type == wxS("longlong"))
+        *value = ((wxVariantDataLongLong*)GetData())->GetValue();
+    else if (type == wxS("long"))
+        *value = ((wxVariantDataLong*)GetData())->GetValue();
+    else if (type == wxS("string"))
+    {
+        wxString s = ((wxVariantDataString*)GetData())->GetValue();
+#ifdef wxLongLong_t
+        wxLongLong_t value_t;
+        if ( !s.ToLongLong(&value_t) )
+            return false;
+        *value = value_t;
+#else
+        long l_value;
+        if ( !s.ToLong(&l_value) )
+            return false;
+        *value = l_value;
+#endif
+    }
+    else if (type == wxS("bool"))
+        *value = (long) (((wxVariantDataBool*)GetData())->GetValue());
+    else if (type == wxS("double"))
+    {
+        value->Assign(((wxVariantDoubleData*)GetData())->GetValue());
+    }
+    else if (type == wxS("ulonglong"))
+        *value = ((wxVariantDataULongLong*)GetData())->GetValue();
     else
-        return FALSE;
+        return false;
 
-    return TRUE;
+    return true;
 }
 
-bool wxVariant::Convert(wxDate* value) const
+bool wxVariant::Convert(wxULongLong* value) const
 {
     wxString type(GetType());
-    if (type == _T("date"))
-        *value = ((wxVariantDataDate*)GetData())->GetValue();
+    if (type == wxS("ulonglong"))
+        *value = ((wxVariantDataULongLong*)GetData())->GetValue();
+    else if (type == wxS("long"))
+        *value = ((wxVariantDataLong*)GetData())->GetValue();
+    else if (type == wxS("string"))
+    {
+        wxString s = ((wxVariantDataString*)GetData())->GetValue();
+#ifdef wxLongLong_t
+        wxULongLong_t value_t;
+        if ( !s.ToULongLong(&value_t) )
+            return false;
+        *value = value_t;
+#else
+        unsigned long l_value;
+        if ( !s.ToULong(&l_value) )
+            return false;
+        *value = l_value;
+#endif
+    }
+    else if (type == wxS("bool"))
+        *value = (long) (((wxVariantDataBool*)GetData())->GetValue());
+    else if (type == wxS("double"))
+    {
+        double value_d = ((wxVariantDoubleData*)GetData())->GetValue();
+
+        if ( value_d < 0.0 )
+            return false;
+
+#ifdef wxLongLong_t
+        *value = (wxULongLong_t) value_d;
+#else
+        wxLongLong temp;
+        temp.Assign(value_d);
+        *value = temp;
+#endif
+    }
+    else if (type == wxS("longlong"))
+        *value = ((wxVariantDataLongLong*)GetData())->GetValue();
     else
-        return FALSE;
+        return false;
 
-    return TRUE;
+    return true;
 }
-#endif
- // wxUSE_TIMEDATE
+#endif // wxUSE_LONGLONG
+
+#if wxUSE_DATETIME
+bool wxVariant::Convert(wxDateTime* value) const
+{
+    wxString type(GetType());
+    if (type == wxT("datetime"))
+    {
+        *value = ((wxVariantDataDateTime*)GetData())->GetValue();
+        return true;
+    }
+
+    // Fallback to string conversion
+    wxString val;
+    if ( !Convert(&val) )
+        return false;
+
+    // Try to parse this as either date and time, only date or only time
+    // checking that the entire string was parsed
+    wxString::const_iterator end;
+    if ( value->ParseDateTime(val, &end) && end == val.end() )
+        return true;
+
+    if ( value->ParseDate(val, &end) && end == val.end() )
+        return true;
+
+    if ( value->ParseTime(val, &end) && end == val.end() )
+        return true;
+
+    return false;
+}
+#endif // wxUSE_DATETIME
+
+#endif // wxUSE_VARIANT