1 files changed, 153 insertions, 0 deletions
diff --git a/sw/source/core/fields/scrptfld.cxx b/sw/source/core/fields/scrptfld.cxx
new file mode 100644
index 000000000000..f9d8258edcec
--- /dev/null
+++ b/sw/source/core/fields/scrptfld.cxx
@@ -0,0 +1,153 @@
+/*************************************************************************
+ *
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+ *
+ * Copyright 2000, 2010 Oracle and/or its affiliates.
+ *
+ * OpenOffice.org - a multi-platform office productivity suite
+ *
+ * This file is part of OpenOffice.org.
+ *
+ * OpenOffice.org is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Lesser General Public License version 3
+ * only, as published by the Free Software Foundation.
+ *
+ * OpenOffice.org is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU Lesser General Public License version 3 for more details
+ * (a copy is included in the LICENSE file that accompanied this code).
+ *
+ * You should have received a copy of the GNU Lesser General Public License
+ * version 3 along with OpenOffice.org.  If not, see
+ * <http://www.openoffice.org/license.html>
+ * for a copy of the LGPLv3 License.
+ *
+ ************************************************************************/
+
+// MARKER(update_precomp.py): autogen include statement, do not remove
+#include "precompiled_sw.hxx"
+
+
+#include <docufld.hxx>
+#ifndef _UNOFLDMID_H
+#include <unofldmid.h>
+#endif
+#ifndef _COMCORE_HRC
+#include <comcore.hrc>
+#endif
+#include <tools/resid.hxx>
+
+using namespace ::com::sun::star;
+using ::rtl::OUString;
+/*--------------------------------------------------------------------
+    Beschreibung: ScriptField
+ --------------------------------------------------------------------*/
+
+SwScriptFieldType::SwScriptFieldType( SwDoc* pD )
+    : SwFieldType( RES_SCRIPTFLD ), pDoc( pD )
+{}
+
+SwFieldType* SwScriptFieldType::Copy() const
+{
+    return new SwScriptFieldType( pDoc );
+}
+
+
+/*--------------------------------------------------------------------
+    Beschreibung: SwScriptField
+ --------------------------------------------------------------------*/
+
+SwScriptField::SwScriptField( SwScriptFieldType* pInitType,
+                                const String& rType, const String& rCode,
+                                BOOL bURL )
+    : SwField( pInitType ), sType( rType ), sCode( rCode ), bCodeURL( bURL )
+{
+}
+
+String SwScriptField::GetDescription() const
+{
+    return SW_RES(STR_SCRIPT);
+}
+
+String SwScriptField::Expand() const
+{
+    return aEmptyStr;
+}
+
+SwField* SwScriptField::Copy() const
+{
+    return new SwScriptField( (SwScriptFieldType*)GetTyp(), sType, sCode, bCodeURL );
+}
+
+/*--------------------------------------------------------------------
+    Beschreibung: Type setzen
+ --------------------------------------------------------------------*/
+
+void SwScriptField::SetPar1( const String& rStr )
+{
+    sType = rStr;
+}
+
+const String& SwScriptField::GetPar1() const
+{
+    return sType;
+}
+
+/*--------------------------------------------------------------------
+    Beschreibung: Code setzen
+ --------------------------------------------------------------------*/
+
+void SwScriptField::SetPar2( const String& rStr )
+{
+    sCode = rStr;
+}
+
+
+String SwScriptField::GetPar2() const
+{
+    return sCode;
+}
+/*-----------------05.03.98 15:00-------------------
+
+--------------------------------------------------*/
+BOOL SwScriptField::QueryValue( uno::Any& rAny, USHORT nWhichId ) const
+{
+    switch( nWhichId )
+    {
+    case FIELD_PROP_PAR1:
+        rAny <<= OUString( sType );
+        break;
+    case FIELD_PROP_PAR2:
+        rAny <<= OUString( sCode );
+        break;
+    case FIELD_PROP_BOOL1:
+        rAny.setValue(&bCodeURL, ::getBooleanCppuType());
+        break;
+    default:
+        DBG_ERROR("illegal property");
+    }
+    return TRUE;
+}
+/*-----------------05.03.98 15:00-------------------
+
+--------------------------------------------------*/
+BOOL SwScriptField::PutValue( const uno::Any& rAny, USHORT nWhichId )
+{
+    switch( nWhichId )
+    {
+    case FIELD_PROP_PAR1:
+        ::GetString( rAny, sType );
+        break;
+    case FIELD_PROP_PAR2:
+        ::GetString( rAny, sCode );
+        break;
+    case FIELD_PROP_BOOL1:
+        bCodeURL = *(sal_Bool*)rAny.getValue();
+        break;
+    default:
+        DBG_ERROR("illegal property");
+    }
+    return TRUE;
+}
+