initial import

1 files changed, 295 insertions, 0 deletions

diff --git a/forms/source/component/Currency.cxx b/forms/source/component/Currency.cxx
new file mode 100644
index 000000000000..f06d300a92fc
--- /dev/null
+++ b/forms/source/component/Currency.cxx
@@ -0,0 +1,295 @@
+/*************************************************************************
+ *
+ *  $RCSfile: Currency.cxx,v $
+ *
+ *  $Revision: 1.1.1.1 $
+ *
+ *  last change: $Author: hr $ $Date: 2000-09-18 16:29:04 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library 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 for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (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.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+#ifndef _FORMS_CURRENCY_HXX_
+#include "Currency.hxx"
+#endif
+
+#ifndef _TOOLS_DEBUG_HXX
+#include <tools/debug.hxx>
+#endif
+#ifndef _TOOLS_INTN_HXX
+#include <tools/intn.hxx>
+#endif
+
+//.........................................................................
+namespace frm
+{
+//.........................................................................
+
+//==================================================================
+// OCurrencyControl
+//==================================================================
+//------------------------------------------------------------------
+OCurrencyControl::OCurrencyControl(const staruno::Reference<starlang::XMultiServiceFactory>& _rxFactory)
+    :OBoundControl(_rxFactory, VCL_CONTROL_CURRENCYFIELD)
+{
+}
+
+//------------------------------------------------------------------
+InterfaceRef SAL_CALL OCurrencyControl_CreateInstance(const staruno::Reference<starlang::XMultiServiceFactory>& _rxFactory)
+{
+    return *(new OCurrencyControl(_rxFactory));
+}
+
+//------------------------------------------------------------------------------
+staruno::Sequence<staruno::Type> OCurrencyControl::_getTypes()
+{
+    return OBoundControl::_getTypes();
+}
+
+//------------------------------------------------------------------------------
+StringSequence SAL_CALL OCurrencyControl::getSupportedServiceNames() throw()
+{
+    StringSequence aSupported = OBoundControl::getSupportedServiceNames();
+    aSupported.realloc(aSupported.getLength() + 1);
+
+    ::rtl::OUString*pArray = aSupported.getArray();
+    pArray[aSupported.getLength()-1] = FRM_SUN_CONTROL_CURRENCYFIELD;
+    return aSupported;
+}
+
+//==================================================================
+// OCurrencyModel
+//==================================================================
+sal_Int32   OCurrencyModel::nValueHandle = -1;
+
+//------------------------------------------------------------------
+InterfaceRef SAL_CALL OCurrencyModel_CreateInstance(const staruno::Reference<starlang::XMultiServiceFactory>& _rxFactory)
+{
+    return *(new OCurrencyModel(_rxFactory));
+}
+
+//------------------------------------------------------------------------------
+staruno::Sequence<staruno::Type> OCurrencyModel::_getTypes()
+{
+    return OEditBaseModel::_getTypes();
+}
+
+//------------------------------------------------------------------
+OCurrencyModel::OCurrencyModel(const staruno::Reference<starlang::XMultiServiceFactory>& _rxFactory)
+    :OEditBaseModel(_rxFactory, VCL_CONTROLMODEL_CURRENCYFIELD, FRM_CONTROL_CURRENCYFIELD)
+                                    // use the old control name for compytibility reasons
+{
+    m_nClassId = starform::FormComponentType::CURRENCYFIELD;
+    m_sDataFieldConnectivityProperty = PROPERTY_VALUE;
+    if (OCurrencyModel::nValueHandle == -1)
+        OCurrencyModel::nValueHandle = getOriginalHandle(PROPERTY_ID_VALUE);
+
+    if (m_xAggregateSet.is())
+    {
+        try
+        {
+            // get the system international informations
+            International aSystemIntl(LANGUAGE_SYSTEM);
+            ::rtl::OUString sCurrencySymbol;
+            sal_Bool bPrependCurrencySymbol;
+            switch (aSystemIntl.GetCurrPositiveFormat())
+            {
+                case 0: // $1
+                    sCurrencySymbol = UniString(aSystemIntl.GetCurrSymbol());
+                    bPrependCurrencySymbol = sal_True;
+                    break;
+                case 1: // 1$
+                    sCurrencySymbol = UniString(aSystemIntl.GetCurrSymbol());
+                    bPrependCurrencySymbol = sal_False;
+                    break;
+                case 2: // $ 1
+                    sCurrencySymbol = ::rtl::OUString(UniString(aSystemIntl.GetCurrSymbol())) + ::rtl::OUString::createFromAscii(" ");
+                    bPrependCurrencySymbol = sal_True;
+                    break;
+                case 3: // 1 $
+                    sCurrencySymbol = ::rtl::OUString::createFromAscii(" ") + ::rtl::OUString(UniString(aSystemIntl.GetCurrSymbol()));
+                    bPrependCurrencySymbol = sal_False;
+                    break;
+            }
+            if (sCurrencySymbol.getLength())
+            {
+                m_xAggregateSet->setPropertyValue(PROPERTY_CURRENCYSYMBOL, staruno::makeAny(sCurrencySymbol));
+                m_xAggregateSet->setPropertyValue(PROPERTY_CURRSYM_POSITION, staruno::makeAny(bPrependCurrencySymbol));
+            }
+        }
+        catch(...)
+        {
+        }
+    }
+}
+
+//------------------------------------------------------------------
+OCurrencyModel::~OCurrencyModel()
+{
+}
+
+// starlang::XServiceInfo
+//------------------------------------------------------------------------------
+StringSequence SAL_CALL OCurrencyModel::getSupportedServiceNames() throw()
+{
+    StringSequence aSupported = OBoundControlModel::getSupportedServiceNames();
+    aSupported.realloc(aSupported.getLength() + 2);
+
+    ::rtl::OUString*pArray = aSupported.getArray();
+    pArray[aSupported.getLength()-2] = ::rtl::OUString::createFromAscii("com.sun.star.form.component.DatabaseCurrencyField");
+    pArray[aSupported.getLength()-1] = FRM_SUN_COMPONENT_CURRENCYFIELD;
+    return aSupported;
+}
+
+//------------------------------------------------------------------------------
+staruno::Reference<starbeans::XPropertySetInfo> SAL_CALL OCurrencyModel::getPropertySetInfo() throw( staruno::RuntimeException )
+{
+    staruno::Reference<starbeans::XPropertySetInfo>  xInfo( createPropertySetInfo( getInfoHelper() ) );
+    return xInfo;
+}
+
+//------------------------------------------------------------------------------
+void OCurrencyModel::fillProperties(
+        staruno::Sequence< starbeans::Property >& _rProps,
+        staruno::Sequence< starbeans::Property >& _rAggregateProps ) const
+{
+    FRM_BEGIN_PROP_HELPER(10)
+        // Value auf transient setzen
+//      ModifyPropertyAttributes(_rAggregateProps, PROPERTY_VALUE, starbeans::PropertyAttribute::TRANSIENT, 0);
+
+        DECL_PROP2(CLASSID,     sal_Int16,          READONLY, TRANSIENT);
+        DECL_PROP3(DEFAULT_VALUE,       double,         BOUND, MAYBEDEFAULT, MAYBEVOID);
+        DECL_PROP1(NAME,        ::rtl::OUString,            BOUND);
+        DECL_PROP1(TAG,     ::rtl::OUString,            BOUND);
+        DECL_PROP1(TABINDEX,        sal_Int16,          BOUND);
+        DECL_PROP1(CONTROLSOURCE,       ::rtl::OUString,            BOUND);
+        DECL_PROP1(HELPTEXT,        ::rtl::OUString,            BOUND);
+        DECL_IFACE_PROP2(BOUNDFIELD,        starbeans::XPropertySet,    READONLY, TRANSIENT);
+        DECL_IFACE_PROP2(CONTROLLABEL,      starbeans::XPropertySet,    BOUND, MAYBEVOID);
+        DECL_PROP2(CONTROLSOURCEPROPERTY,   rtl::OUString,  READONLY, TRANSIENT);
+    FRM_END_PROP_HELPER();
+}
+
+//------------------------------------------------------------------------------
+::cppu::IPropertyArrayHelper& OCurrencyModel::getInfoHelper()
+{
+    return *const_cast<OCurrencyModel*>(this)->getArrayHelper();
+}
+
+//------------------------------------------------------------------------------
+::rtl::OUString SAL_CALL OCurrencyModel::getServiceName()
+{
+    return FRM_COMPONENT_CURRENCYFIELD; // old (non-sun) name for compatibility !
+}
+
+// starform::XBoundComponent
+//------------------------------------------------------------------------------
+sal_Bool OCurrencyModel::_commit()
+{
+    staruno::Any aNewValue = m_xAggregateFastSet->getFastPropertyValue( OCurrencyModel::nValueHandle );
+    if (!compare(aNewValue, m_aSaveValue))
+    {
+        if (aNewValue.getValueType().getTypeClass() == staruno::TypeClass_VOID)
+            m_xColumnUpdate->updateNull();
+        else
+        {
+            try
+            {
+                m_xColumnUpdate->updateDouble(getDouble(aNewValue));
+            }
+            catch(...)
+            {
+                return sal_False;
+            }
+        }
+        m_aSaveValue = aNewValue;
+    }
+    return sal_True;
+}
+
+//------------------------------------------------------------------------------
+void OCurrencyModel::_onValueChanged()
+{
+    m_aSaveValue <<= m_xColumn->getDouble();
+    if (m_xColumn->wasNull())
+        m_aSaveValue.clear();
+    {   // release our mutex once (it's acquired in the calling method !), as setting aggregate properties
+        // may cause any uno controls belonging to us to lock the solar mutex, which is potentially dangerous with
+        // our own mutex locked
+        // FS - 72451 - 31.01.00
+        MutexRelease aRelease(m_aMutex);
+        m_xAggregateFastSet->setFastPropertyValue(OCurrencyModel::nValueHandle, m_aSaveValue);
+    }
+}
+
+// starform::XReset
+//------------------------------------------------------------------------------
+void OCurrencyModel::_reset( void )
+{
+    staruno::Any aValue;
+    if (m_aDefault.getValueType().getTypeClass() == staruno::TypeClass_DOUBLE)
+        aValue = m_aDefault;
+
+    {   // release our mutex once (it's acquired in the calling method !), as setting aggregate properties
+        // may cause any uno controls belonging to us to lock the solar mutex, which is potentially dangerous with
+        // our own mutex locked
+        // FS - 72451 - 31.01.00
+        MutexRelease aRelease(m_aMutex);
+        m_xAggregateFastSet->setFastPropertyValue(OCurrencyModel::nValueHandle, aValue);
+    }
+}
+
+//.........................................................................
+}   // namespace frm
+//.........................................................................
+