Adding upstream version 1:7.0.4.upstream/1%7.0.4upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 250 insertions, 0 deletions

diff --git a/sw/source/uibase/shells/drformsh.cxx b/sw/source/uibase/shells/drformsh.cxx
new file mode 100644
index 000000000..2e2f5fd52
--- /dev/null
+++ b/sw/source/uibase/shells/drformsh.cxx
@@ -0,0 +1,250 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
+/*
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+ */
+
+#include <svx/hlnkitem.hxx>
+#include <svx/svdview.hxx>
+#include <svl/whiter.hxx>
+#include <sfx2/request.hxx>
+#include <sfx2/objface.hxx>
+#include <sfx2/viewfrm.hxx>
+#include <sfx2/dispatch.hxx>
+#include <vcl/EnumContext.hxx>
+#include <svx/svdouno.hxx>
+#include <com/sun/star/form/FormButtonType.hpp>
+#include <com/sun/star/beans/XPropertySet.hpp>
+#include <com/sun/star/beans/XPropertySetInfo.hpp>
+#include <sfx2/htmlmode.hxx>
+#include <tools/urlobj.hxx>
+
+#include <viewopt.hxx>
+#include <wrtsh.hxx>
+#include <cmdid.h>
+#include <drwbassh.hxx>
+#include <drformsh.hxx>
+#include <svl/urihelper.hxx>
+#include <view.hxx>
+#include <sfx2/docfile.hxx>
+#include <docsh.hxx>
+
+#define ShellClass_SwDrawFormShell
+#include <sfx2/msg.hxx>
+#include <swslots.hxx>
+
+using namespace ::com::sun::star;
+
+SFX_IMPL_INTERFACE(SwDrawFormShell, SwDrawBaseShell)
+
+void SwDrawFormShell::InitInterface_Impl()
+{
+    GetStaticInterface()->RegisterPopupMenu("form");
+
+    GetStaticInterface()->RegisterObjectBar(SFX_OBJECTBAR_OBJECT, SfxVisibilityFlags::Invisible, ToolbarId::Text_Toolbox_Sw);
+}
+
+
+void SwDrawFormShell::Execute(SfxRequest const &rReq)
+{
+    SwWrtShell &rSh = GetShell();
+    const SfxPoolItem* pItem = nullptr;
+    const SfxItemSet *pArgs = rReq.GetArgs();
+
+    switch ( rReq.GetSlot() )
+    {
+        case SID_HYPERLINK_SETLINK:
+        {
+        if(pArgs)
+            pArgs->GetItemState(SID_HYPERLINK_SETLINK, false, &pItem);
+        if(pItem)
+        {
+            SdrView *pSdrView = rSh.GetDrawView();
+            const SvxHyperlinkItem& rHLinkItem = *static_cast<const SvxHyperlinkItem *>(pItem);
+            bool bConvertToText = rHLinkItem.GetInsertMode() == HLINK_DEFAULT ||
+                            rHLinkItem.GetInsertMode() == HLINK_FIELD;
+            const SdrMarkList& rMarkList = pSdrView->GetMarkedObjectList();
+            if (rMarkList.GetMark(0))
+            {
+                SdrUnoObj* pUnoCtrl = dynamic_cast<SdrUnoObj*>( rMarkList.GetMark(0)->GetMarkedSdrObj() );
+                if (pUnoCtrl && SdrInventor::FmForm == pUnoCtrl->GetObjInventor())
+                {
+                    if(bConvertToText)
+                    {
+                        //remove object -> results in destruction of this!
+                        SwView& rTempView = GetView();
+                        rTempView.GetViewFrame()->GetDispatcher()->Execute(SID_DELETE, SfxCallMode::SYNCHRON );
+                        rTempView.StopShellTimer();
+                        //issue a new command to insert the link
+                        rTempView.GetViewFrame()->GetDispatcher()->ExecuteList(
+                                SID_HYPERLINK_SETLINK, SfxCallMode::ASYNCHRON,
+                                { &rHLinkItem });
+                    }
+                    else
+                    {
+                        const uno::Reference< awt::XControlModel >&  xControlModel = pUnoCtrl->GetUnoControlModel();
+
+                        OSL_ENSURE( xControlModel.is(), "UNO-Control without Model" );
+                        if( !xControlModel.is() )
+                            return;
+
+                        uno::Reference< beans::XPropertySet >  xPropSet(xControlModel, uno::UNO_QUERY);
+
+                        // Can we set a URL to the object?
+                        OUString sTargetURL( "TargetURL" );
+                        uno::Reference< beans::XPropertySetInfo >  xPropInfoSet = xPropSet->getPropertySetInfo();
+                        if( xPropInfoSet->hasPropertyByName( sTargetURL ))
+                        {
+                            beans::Property aProp = xPropInfoSet->getPropertyByName( sTargetURL );
+                            if( !aProp.Name.isEmpty() )
+                            {
+                                uno::Any aTmp;
+                                // Yes!
+                                OUString sLabel("Label");
+                                if( xPropInfoSet->hasPropertyByName(sLabel) )
+                                {
+                                    aTmp <<= rHLinkItem.GetName();
+                                    xPropSet->setPropertyValue(sLabel, aTmp );
+                                }
+
+                                SfxMedium* pMedium = GetView().GetDocShell()->GetMedium();
+                                INetURLObject aAbs;
+                                if( pMedium )
+                                    aAbs = pMedium->GetURLObject();
+                                aTmp <<= URIHelper::SmartRel2Abs(aAbs, rHLinkItem.GetURL());
+                                xPropSet->setPropertyValue( sTargetURL, aTmp );
+
+                                if( !rHLinkItem.GetTargetFrame().isEmpty() )
+                                {
+                                    aTmp <<= rHLinkItem.GetTargetFrame();
+                                    xPropSet->setPropertyValue( "TargetFrame", aTmp );
+                                }
+
+                                aTmp <<= form::FormButtonType_URL;
+                                xPropSet->setPropertyValue( "ButtonType", aTmp );
+                            }
+                        }
+                    }
+                }
+            }
+        }
+        }
+        break;
+
+        default:
+            OSL_ENSURE(false, "wrong dispatcher");
+            return;
+    }
+}
+
+void SwDrawFormShell::GetState(SfxItemSet& rSet)
+{
+    SwWrtShell &rSh = GetShell();
+    SfxWhichIter aIter( rSet );
+    sal_uInt16 nWhich = aIter.FirstWhich();
+
+    while( nWhich )
+    {
+        switch( nWhich )
+        {
+            case SID_HYPERLINK_GETLINK:
+            {
+                SdrView* pSdrView = rSh.GetDrawViewWithValidMarkList();
+                const SdrMarkList& rMarkList = pSdrView->GetMarkedObjectList();
+                SvxHyperlinkItem aHLinkItem;
+                if (rMarkList.GetMark(0))
+                {
+                    SdrUnoObj* pUnoCtrl = dynamic_cast<SdrUnoObj*>( rMarkList.GetMark(0)->GetMarkedSdrObj() );
+                    if (pUnoCtrl && SdrInventor::FmForm == pUnoCtrl->GetObjInventor())
+                    {
+                        const uno::Reference< awt::XControlModel >&  xControlModel = pUnoCtrl->GetUnoControlModel();
+
+                        OSL_ENSURE( xControlModel.is(), "UNO-Control without Model" );
+                        if( !xControlModel.is() )
+                            return;
+
+                        uno::Reference< beans::XPropertySet >  xPropSet(xControlModel, uno::UNO_QUERY);
+
+                        uno::Any aTmp;
+                        uno::Reference< beans::XPropertySetInfo >  xInfo = xPropSet->getPropertySetInfo();
+                        if(xInfo->hasPropertyByName( "ButtonType" ))
+                        {
+                            form::FormButtonType eButtonType = form::FormButtonType_URL;
+                            aTmp = xPropSet->getPropertyValue( "ButtonType" );
+                            if( aTmp >>= eButtonType )
+                            {
+                                // Label
+                                if(xInfo->hasPropertyByName( "Label" ))
+                                {
+                                    aTmp = xPropSet->getPropertyValue( "Label" );
+                                    OUString sTmp;
+                                    if( (aTmp >>= sTmp) && !sTmp.isEmpty())
+                                    {
+                                        aHLinkItem.SetName(sTmp);
+                                    }
+                                }
+
+                                // URL
+                                if(xInfo->hasPropertyByName( "TargetURL" ))
+                                {
+                                    aTmp = xPropSet->getPropertyValue( "TargetURL" );
+                                    OUString sTmp;
+                                    if( (aTmp >>= sTmp) && !sTmp.isEmpty())
+                                    {
+                                        aHLinkItem.SetURL(sTmp);
+                                    }
+                                }
+
+                                // Target
+                                if(xInfo->hasPropertyByName( "TargetFrame" ))
+                                {
+                                    aTmp = xPropSet->getPropertyValue( "TargetFrame" );
+                                    OUString sTmp;
+                                    if( (aTmp >>= sTmp) && !sTmp.isEmpty())
+                                    {
+                                        aHLinkItem.SetTargetFrame(sTmp);
+                                    }
+                                }
+                                aHLinkItem.SetInsertMode(HLINK_BUTTON);
+                            }
+                        }
+                    }
+                }
+                sal_uInt16 nHtmlMode = ::GetHtmlMode(GetView().GetDocShell());
+                aHLinkItem.SetInsertMode(static_cast<SvxLinkInsertMode>(aHLinkItem.GetInsertMode() |
+                    ((nHtmlMode & HTMLMODE_ON) != 0 ? HLINK_HTMLMODE : 0)));
+
+                rSet.Put(aHLinkItem);
+            }
+            break;
+        }
+        nWhich = aIter.NextWhich();
+    }
+}
+
+SwDrawFormShell::SwDrawFormShell(SwView &_rView) :
+    SwDrawBaseShell(_rView)
+{
+    GetShell().NoEdit();
+    SetName("DrawForm");
+    SfxShell::SetContextName(vcl::EnumContext::GetContextName(vcl::EnumContext::Context::Form));
+}
+
+SwDrawFormShell::~SwDrawFormShell()
+{
+}
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */