Add XRC handler for wxSimplebook.

Similar to wxNotebook but even simpler as wxSimplebook doesn't use images.

Also add wxSimplebook::Create() as the version inherited from wxBookCtrlBase
didn't _quite_ work: we need to add wxBK_TOP style to prevent asserts due to
unknown alignment in the base class when creating wxSimplebook.

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@77010 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775

src/xrc/xh_simplebook.cpp

@@ -0,0 +1,101 @@
+/////////////////////////////////////////////////////////////////////////////
+// Name:        src/xrc/xh_simplebook.cpp
+// Purpose:     XRC resource handler for wxSimplebook
+// Author:      Vaclav Slavik
+// Created:     2014-08-05
+// Copyright:   (c) 2014 Vadim Zeitlin
+// Licence:     wxWindows licence
+/////////////////////////////////////////////////////////////////////////////
+
+// For compilers that support precompilation, includes "wx.h".
+#include "wx/wxprec.h"
+
+#ifdef __BORLANDC__
+    #pragma hdrstop
+#endif
+
+#if wxUSE_XRC && wxUSE_BOOKCTRL
+
+#include "wx/xrc/xh_simplebook.h"
+
+#ifndef WX_PRECOMP
+#endif
+
+#include "wx/simplebook.h"
+
+wxIMPLEMENT_DYNAMIC_CLASS(wxSimplebookXmlHandler, wxXmlResourceHandler);
+
+wxSimplebookXmlHandler::wxSimplebookXmlHandler()
+                      : wxXmlResourceHandler(),
+                        m_isInside(false),
+                        m_simplebook(NULL)
+{
+    AddWindowStyles();
+}
+
+wxObject *wxSimplebookXmlHandler::DoCreateResource()
+{
+    if (m_class == wxS("simplebookpage"))
+    {
+        wxXmlNode *n = GetParamNode(wxS("object"));
+
+        if ( !n )
+            n = GetParamNode(wxS("object_ref"));
+
+        if (n)
+        {
+            bool old_ins = m_isInside;
+            m_isInside = false;
+            wxObject *item = CreateResFromNode(n, m_simplebook, NULL);
+            m_isInside = old_ins;
+            wxWindow *wnd = wxDynamicCast(item, wxWindow);
+
+            if (wnd)
+            {
+                m_simplebook->AddPage(wnd, GetText(wxS("label")),
+                                      GetBool(wxS("selected")));
+            }
+            else
+            {
+                ReportError(n, "simplebookpage child must be a window");
+            }
+            return wnd;
+        }
+        else
+        {
+            ReportError("simplebookpage must have a window child");
+            return NULL;
+        }
+    }
+
+    else
+    {
+        XRC_MAKE_INSTANCE(sb, wxSimplebook)
+
+        sb->Create(m_parentAsWindow,
+                   GetID(),
+                   GetPosition(), GetSize(),
+                   GetStyle(wxS("style")),
+                   GetName());
+
+        SetupWindow(sb);
+
+        wxSimplebook *old_par = m_simplebook;
+        m_simplebook = sb;
+        bool old_ins = m_isInside;
+        m_isInside = true;
+        CreateChildren(m_simplebook, true/*only this handler*/);
+        m_isInside = old_ins;
+        m_simplebook = old_par;
+
+        return sb;
+    }
+}
+
+bool wxSimplebookXmlHandler::CanHandle(wxXmlNode *node)
+{
+    return ((!m_isInside && IsOfClass(node, wxS("wxSimplebook"))) ||
+            (m_isInside && IsOfClass(node, wxS("simplebookpage"))));
+}
+
+#endif // wxUSE_XRC && wxUSE_BOOKCTRL