sw/source/core/fields/scrptfld.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: scrptfld.cxx,v $
  10  * $Revision: 1.12 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_sw.hxx"
  33
  34
  35 #include <docufld.hxx>
  36 #ifndef _UNOFLDMID_H
  37 #include <unofldmid.h>
  38 #endif
  39 #ifndef _COMCORE_HRC
  40 #include <comcore.hrc>
  41 #endif
  42 #include <tools/resid.hxx>
  43
  44 using namespace ::com::sun::star;
  45 using ::rtl::OUString;
  46 /*--------------------------------------------------------------------
  47     Beschreibung: ScriptField
  48  --------------------------------------------------------------------*/
  49
  50 SwScriptFieldType::SwScriptFieldType( SwDoc* pD )
  51     : SwFieldType( RES_SCRIPTFLD ), pDoc( pD )
  52 {}
  53
  54 SwFieldType* SwScriptFieldType::Copy() const
  55 {
  56     return new SwScriptFieldType( pDoc );
  57 }
  58
  59
  60 /*--------------------------------------------------------------------
  61     Beschreibung: SwScriptField
  62  --------------------------------------------------------------------*/
  63
  64 SwScriptField::SwScriptField( SwScriptFieldType* pInitType,
  65                                 const String& rType, const String& rCode,
  66                                 BOOL bURL )
  67     : SwField( pInitType ), sType( rType ), sCode( rCode ), bCodeURL( bURL )
  68 {
  69 }
  70
  71 String SwScriptField::GetDescription() const
  72 {
  73     return SW_RES(STR_SCRIPT);
  74 }
  75
  76 String SwScriptField::Expand() const
  77 {
  78     return aEmptyStr;
  79 }
  80
  81 SwField* SwScriptField::Copy() const
  82 {
  83     return new SwScriptField( (SwScriptFieldType*)GetTyp(), sType, sCode, bCodeURL );
  84 }
  85
  86 /*--------------------------------------------------------------------
  87     Beschreibung: Type setzen
  88  --------------------------------------------------------------------*/
  89
  90 void SwScriptField::SetPar1( const String& rStr )
  91 {
  92     sType = rStr;
  93 }
  94
  95 const String& SwScriptField::GetPar1() const
  96 {
  97     return sType;
  98 }
  99
 100 /*--------------------------------------------------------------------
 101     Beschreibung: Code setzen
 102  --------------------------------------------------------------------*/
 103
 104 void SwScriptField::SetPar2( const String& rStr )
 105 {
 106     sCode = rStr;
 107 }
 108
 109
 110 String SwScriptField::GetPar2() const
 111 {
 112     return sCode;
 113 }
 114 /*-----------------05.03.98 15:00-------------------
 115
 116 --------------------------------------------------*/
 117 BOOL SwScriptField::QueryValue( uno::Any& rAny, USHORT nWhichId ) const
 118 {
 119     switch( nWhichId )
 120     {
 121     case FIELD_PROP_PAR1:
 122         rAny <<= OUString( sType );
 123         break;
 124     case FIELD_PROP_PAR2:
 125         rAny <<= OUString( sCode );
 126         break;
 127     case FIELD_PROP_BOOL1:
 128         rAny.setValue(&bCodeURL, ::getBooleanCppuType());
 129         break;
 130     default:
 131         DBG_ERROR("illegal property");
 132     }
 133     return TRUE;
 134 }
 135 /*-----------------05.03.98 15:00-------------------
 136
 137 --------------------------------------------------*/
 138 BOOL SwScriptField::PutValue( const uno::Any& rAny, USHORT nWhichId )
 139 {
 140     switch( nWhichId )
 141     {
 142     case FIELD_PROP_PAR1:
 143         ::GetString( rAny, sType );
 144         break;
 145     case FIELD_PROP_PAR2:
 146         ::GetString( rAny, sCode );
 147         break;
 148     case FIELD_PROP_BOOL1:
 149         bCodeURL = *(sal_Bool*)rAny.getValue();
 150         break;
 151     default:
 152         DBG_ERROR("illegal property");
 153     }
 154     return TRUE;
 155 }
 156