1 files changed, 101 insertions, 0 deletions
diff --git a/sfx2/source/bastyp/frmhtml.cxx b/sfx2/source/bastyp/frmhtml.cxx
new file mode 100644
index 000000000..a86a88c70
--- /dev/null
+++ b/sfx2/source/bastyp/frmhtml.cxx
@@ -0,0 +1,101 @@
+/* -*- 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 <svtools/htmltokn.h>
+
+#include <sfx2/frmdescr.hxx>
+#include <sfx2/frmhtml.hxx>
+
+static char const sHTML_SC_yes[] =  "YES";
+static char const sHTML_SC_no[] =       "NO";
+static char const sHTML_SC_auto[] = "AUTO";
+
+static HTMLOptionEnum<ScrollingMode> const aScrollingTable[] =
+{
+    { sHTML_SC_yes,     ScrollingMode::Yes    },
+    { sHTML_SC_no,      ScrollingMode::No     },
+    { sHTML_SC_auto,    ScrollingMode::Auto   },
+    { nullptr,          ScrollingMode(0) }
+};
+
+namespace SfxFrameHTMLParser
+{
+void ParseFrameOptions(
+    SfxFrameDescriptor *pFrame, const HTMLOptions& rOptions, const OUString& rBaseURL )
+{
+    // Get and set the options
+    Size aMargin( pFrame->GetMargin() );
+
+    // Netscape seems to set marginwidth to 0 as soon as
+    // marginheight is set, and vice versa.
+    // Netscape does however not allow for a direct
+    // setting to 0, while IE4.0 does
+    // We will not mimic that bug !
+    bool bMarginWidth = false, bMarginHeight = false;
+
+    for (const auto & rOption : rOptions)
+    {
+        switch( rOption.GetToken() )
+        {
+        case HtmlOptionId::SRC:
+            pFrame->SetURL(
+                    INetURLObject::GetAbsURL(
+                        rBaseURL, rOption.GetString()) );
+            break;
+        case HtmlOptionId::NAME:
+            pFrame->SetName( rOption.GetString() );
+            break;
+        case HtmlOptionId::MARGINWIDTH:
+            aMargin.setWidth( rOption.GetNumber() );
+
+            if( !bMarginHeight )
+                aMargin.setHeight( 0 );
+            bMarginWidth = true;
+            break;
+        case HtmlOptionId::MARGINHEIGHT:
+            aMargin.setHeight( rOption.GetNumber() );
+
+            if( !bMarginWidth )
+                aMargin.setWidth( 0 );
+            bMarginHeight = true;
+            break;
+        case HtmlOptionId::SCROLLING:
+            pFrame->SetScrollingMode( rOption.GetEnum( aScrollingTable, ScrollingMode::Auto ) );
+            break;
+        case HtmlOptionId::FRAMEBORDER:
+        {
+            const OUString& aStr = rOption.GetString();
+            bool bBorder = true;
+            if ( aStr.equalsIgnoreAsciiCase("NO") ||
+                 aStr.equalsIgnoreAsciiCase("0") )
+                bBorder = false;
+            pFrame->SetFrameBorder( bBorder );
+            break;
+        }
+        default:
+            break;
+        }
+    }
+
+    pFrame->SetMargin( aMargin );
+}
+}
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */