initial import

1 files changed, 510 insertions, 0 deletions

diff --git a/forms/source/component/RadioButton.cxx b/forms/source/component/RadioButton.cxx
new file mode 100644
index 000000000..55e82866f
--- /dev/null
+++ b/forms/source/component/RadioButton.cxx
@@ -0,0 +1,510 @@
+/*************************************************************************
+ *
+ *  $RCSfile: RadioButton.cxx,v $
+ *
+ *  $Revision: 1.1.1.1 $
+ *
+ *  last change: $Author: hr $ $Date: 2000-09-18 16:29:06 $
+ *
+ *  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_RADIOBUTTON_HXX_
+#include "RadioButton.hxx"
+#endif
+#ifndef _FRM_PROPERTY_HXX_
+#include "property.hxx"
+#endif
+#ifndef _FRM_PROPERTY_HRC_
+#include "property.hrc"
+#endif
+#ifndef _FRM_SERVICES_HXX_
+#include "services.hxx"
+#endif
+#ifndef _TOOLS_DEBUG_HXX
+#include <tools/debug.hxx>
+#endif
+
+#ifndef _COM_SUN_STAR_CONTAINER_XINDEXACCESS_HPP_
+#include <com/sun/star/container/XIndexAccess.hpp>
+#endif
+
+//.........................................................................
+namespace frm
+{
+
+//==================================================================
+//------------------------------------------------------------------------------
+InterfaceRef SAL_CALL ORadioButtonControl_CreateInstance(const staruno::Reference<starlang::XMultiServiceFactory>& _rxFactory) throw (staruno::RuntimeException)
+{
+    return *(new ORadioButtonControl(_rxFactory));
+}
+
+//------------------------------------------------------------------------------
+StringSequence SAL_CALL	ORadioButtonControl::getSupportedServiceNames() throw(::com::sun::star::uno::RuntimeException)
+{
+    StringSequence aSupported = OBoundControl::getSupportedServiceNames();
+    aSupported.realloc(aSupported.getLength() + 1);
+
+    ::rtl::OUString* pArray = aSupported.getArray();
+    pArray[aSupported.getLength()-1] = FRM_SUN_CONTROL_RADIOBUTTON;
+    return aSupported;
+}
+
+
+//------------------------------------------------------------------
+ORadioButtonControl::ORadioButtonControl(const staruno::Reference<starlang::XMultiServiceFactory>& _rxFactory)
+                      :OBoundControl(_rxFactory, VCL_CONTROL_RADIOBUTTON)
+{
+}
+
+//==================================================================
+InterfaceRef SAL_CALL ORadioButtonModel_CreateInstance(const staruno::Reference<starlang::XMultiServiceFactory>& _rxFactory) throw (staruno::RuntimeException)
+{
+    return *(new ORadioButtonModel(_rxFactory));
+}
+
+//------------------------------------------------------------------
+ORadioButtonModel::ORadioButtonModel(const staruno::Reference<starlang::XMultiServiceFactory>& _rxFactory)
+                    :OBoundControlModel(_rxFactory, VCL_CONTROLMODEL_RADIOBUTTON, FRM_CONTROL_RADIOBUTTON, sal_False)
+                                    // use the old control name for compytibility reasons
+                    ,OPropertyChangeListener(m_aMutex)
+                    ,m_bInReset(sal_False)
+{
+    m_nClassId = starform::FormComponentType::RADIOBUTTON;
+    m_nDefaultChecked = RB_NOCHECK;
+    m_aLabelServiceName = FRM_SUN_COMPONENT_GROUPBOX;
+    m_sDataFieldConnectivityProperty = PROPERTY_STATE;
+
+    
+    increment(m_refCount);
+    if (m_xAggregateSet.is())
+    {
+        OPropertyChangeMultiplexer* pMultiplexer = new OPropertyChangeMultiplexer(this, m_xAggregateSet);
+        pMultiplexer->addProperty(PROPERTY_STATE);
+    }
+    decrement(m_refCount);
+}
+
+// XServiceInfo
+//------------------------------------------------------------------------------
+StringSequence SAL_CALL	ORadioButtonModel::getSupportedServiceNames() throw(::com::sun::star::uno::RuntimeException)
+{
+    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.DatabaseRadioButton");
+    pArray[aSupported.getLength()-1] = FRM_SUN_COMPONENT_RADIOBUTTON;
+    return aSupported;
+}
+
+//------------------------------------------------------------------------------
+void ORadioButtonModel::getFastPropertyValue(staruno::Any& rValue, sal_Int32 nHandle) const
+{
+    switch (nHandle)
+    {
+        case PROPERTY_ID_REFVALUE : rValue <<= m_sReferenceValue; break;
+        case PROPERTY_ID_DEFAULTCHECKED : rValue <<= m_nDefaultChecked; break;
+        default:
+            OBoundControlModel::getFastPropertyValue(rValue, nHandle);
+    }
+}
+
+//------------------------------------------------------------------------------
+void ORadioButtonModel::SetSiblingPropsTo(const ::rtl::OUString& rPropName, const staruno::Any& rValue)
+{
+    // mein Name
+    ::rtl::OUString sMyName(m_aName);
+
+    // meine Siblings durchiterieren
+    staruno::Reference<starcontainer::XIndexAccess> xIndexAccess(getParent(), staruno::UNO_QUERY);
+    if (xIndexAccess.is())
+    {
+        staruno::Reference<starbeans::XPropertySet> xMyProps;
+        query_interface(static_cast<staruno::XWeak*>(this), xMyProps);
+        ::rtl::OUString	sCurrentName;
+        for (sal_Int32 i=0; i<xIndexAccess->getCount(); ++i)
+        {
+            staruno::Reference<starbeans::XPropertySet>	xSiblingProperties(*(InterfaceRef*)xIndexAccess->getByIndex(i).getValue(), staruno::UNO_QUERY);
+            if (!xSiblingProperties.is())
+                continue;
+            if (xMyProps == xSiblingProperties)
+                continue;	// mich selber nicht umsetzen
+
+            // nur wenn es ein Radio-Button ist
+            if (!hasProperty(PROPERTY_CLASSID, xSiblingProperties))
+                continue;
+            sal_Int16 nType;
+            xSiblingProperties->getPropertyValue(PROPERTY_CLASSID) >>= nType;
+            if (nType != starform::FormComponentType::RADIOBUTTON)
+                continue;
+
+            // das 'zur selben Gruppe gehoeren' wird am Namen festgemacht
+            xSiblingProperties->getPropertyValue(PROPERTY_NAME) >>= sCurrentName;
+            if (sCurrentName == sMyName)
+                xSiblingProperties->setPropertyValue(rPropName, rValue);
+        }
+    }
+}
+
+//------------------------------------------------------------------------------
+void ORadioButtonModel::setFastPropertyValue_NoBroadcast(sal_Int32 nHandle, const staruno::Any& rValue) throw (::com::sun::star::uno::Exception)
+{
+    switch (nHandle)
+    {
+        case PROPERTY_ID_REFVALUE :
+            DBG_ASSERT(rValue.getValueType().getTypeClass() == staruno::TypeClass_STRING, "ORadioButtonModel::setFastPropertyValue_NoBroadcast : invalid type !" );
+            rValue >>= m_sReferenceValue;
+            break;
+
+        case PROPERTY_ID_DEFAULTCHECKED :
+            DBG_ASSERT(rValue.getValueType().getTypeClass() == staruno::TypeClass_SHORT, "ORadioButtonModel::setFastPropertyValue_NoBroadcast : invalid type !" );
+            rValue >>= (sal_Int16)m_nDefaultChecked;
+            _reset();
+            break;
+
+        default:
+            OBoundControlModel::setFastPropertyValue_NoBroadcast(nHandle, rValue);
+    }
+
+    // if the label control changed ...
+    if (nHandle == PROPERTY_ID_CONTROLLABEL)
+    {	// ... forward this to our siblings
+        SetSiblingPropsTo(PROPERTY_CONTROLLABEL, rValue);
+    }
+
+    // wenn sich die ControlSource-Eigenschaft geaendert hat ...
+    if (nHandle == PROPERTY_ID_CONTROLSOURCE)
+    {	// ... muss ich allen meinen Siblings, die in der selben RadioButton-Gruppe sind wie ich, auch die
+        // neue ControlSource mitgeben
+        SetSiblingPropsTo(PROPERTY_CONTROLSOURCE, rValue);
+    }
+
+    // die andere Richtung : wenn sich mein Name aendert ...
+    if (nHandle == PROPERTY_ID_NAME)
+    {
+        // ... muss ich testen, ob ich Siblings mit dem selben Namen habe, damit ich deren ControlSource uebernehmen kann
+        staruno::Reference<starcontainer::XIndexAccess> xIndexAccess(getParent(), staruno::UNO_QUERY);
+        if (xIndexAccess.is())
+        {
+            ::rtl::OUString			sName;
+            ::rtl::OUString			sControlSource;
+
+            staruno::Reference<starbeans::XPropertySet> xMyProps;
+            query_interface(static_cast<staruno::XWeak*>(this), xMyProps);
+            for (sal_Int32 i=0; i<xIndexAccess->getCount(); ++i)
+            {
+                staruno::Reference<starbeans::XPropertySet>	xSiblingProperties(*(InterfaceRef*)xIndexAccess->getByIndex(i).getValue(), staruno::UNO_QUERY);
+                if (!xSiblingProperties.is())
+                    continue;
+
+                if (xMyProps == xSiblingProperties)
+                    // nur wenn ich nicht mich selber gefunden habe
+                    continue;
+
+                sal_Int16 nType;
+                xSiblingProperties->getPropertyValue(PROPERTY_CLASSID) >>= nType;
+                if (nType != starform::FormComponentType::RADIOBUTTON)
+                    // nur Radio-Buttons
+                    continue;
+
+                xSiblingProperties->getPropertyValue(PROPERTY_NAME) >>= sName;
+                // Control, das zur gleichen Gruppe gehoert ?
+                if (rValue == sName)
+                {
+                    setPropertyValue(PROPERTY_CONTROLSOURCE, xSiblingProperties->getPropertyValue(PROPERTY_CONTROLSOURCE));
+                    break;
+                }
+            }
+        }
+    }
+
+    if (nHandle == PROPERTY_ID_DEFAULTCHECKED)
+    {
+        sal_Int16 nValue;
+        rValue >>= nValue;
+        if (1 == nValue)
+        {	// bei allen Radios der selben Gruppe das 'default checked' ruecksetzen, denn wie schon der highlander wusste :
+            // es kann nur einen geben.
+            staruno::Any aZero;
+            nValue = 0;
+            aZero <<= nValue;
+            SetSiblingPropsTo(PROPERTY_DEFAULTCHECKED, aZero);
+        }
+    }
+}
+
+//------------------------------------------------------------------------------
+sal_Bool ORadioButtonModel::convertFastPropertyValue(
+            staruno::Any& _rConvertedValue, staruno::Any& _rOldValue, sal_Int32 _nHandle, const staruno::Any& _rValue)
+            throw (starlang::IllegalArgumentException)
+{
+    sal_Bool bModified(sal_False);
+    switch (_nHandle)
+    {
+        case PROPERTY_ID_REFVALUE :
+            bModified = tryPropertyValue(_rConvertedValue, _rOldValue, _rValue, m_sReferenceValue);
+            break;
+        case PROPERTY_ID_DEFAULTCHECKED :
+            bModified = tryPropertyValue(_rConvertedValue, _rOldValue, _rValue, m_nDefaultChecked);
+            break;
+        default:
+            bModified = OBoundControlModel::convertFastPropertyValue(_rConvertedValue, _rOldValue, _nHandle, _rValue);
+            break;
+    }
+    return bModified;
+}
+
+//------------------------------------------------------------------------------
+staruno::Reference<starbeans::XPropertySetInfo> SAL_CALL ORadioButtonModel::getPropertySetInfo() throw(staruno::RuntimeException)
+{
+    staruno::Reference<starbeans::XPropertySetInfo> xInfo( createPropertySetInfo( getInfoHelper() ) );
+    return xInfo;
+}
+
+//------------------------------------------------------------------------------
+cppu::IPropertyArrayHelper& ORadioButtonModel::getInfoHelper()
+{
+    return *const_cast<ORadioButtonModel*>(this)->getArrayHelper();
+}
+
+//------------------------------------------------------------------------------
+void ORadioButtonModel::fillProperties(
+        staruno::Sequence< starbeans::Property >& _rProps,
+        staruno::Sequence< starbeans::Property >& _rAggregateProps ) const
+{
+    FRM_BEGIN_PROP_HELPER(11)
+        // the "State" property is transient, so change this
+        //	ModifyPropertyAttributes(_rAggregateProps, PROPERTY_STATE, starbeans::PropertyAttribute::TRANSIENT, 0);
+
+        DECL_PROP2(CLASSID,				sal_Int16,					READONLY, TRANSIENT);
+        DECL_PROP1(REFVALUE,			::rtl::OUString,			BOUND);
+        DECL_PROP1(DEFAULTCHECKED,		sal_Int16,					BOUND);
+        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();
+}
+
+//------------------------------------------------------------------------------
+::rtl::OUString SAL_CALL ORadioButtonModel::getServiceName() throw(staruno::RuntimeException)
+{
+    return FRM_COMPONENT_RADIOBUTTON;	// old (non-sun) name for compatibility !
+}
+
+//------------------------------------------------------------------------------
+void SAL_CALL ORadioButtonModel::write(const staruno::Reference<stario::XObjectOutputStream>& _rxOutStream)
+    throw(stario::IOException, staruno::RuntimeException)
+{
+    OBoundControlModel::write(_rxOutStream);
+
+    // Version
+    _rxOutStream->writeShort(0x0003);
+
+    // Properties
+    _rxOutStream << m_sReferenceValue;
+    _rxOutStream << (sal_Int16)m_nDefaultChecked;
+    _rxOutStream << m_aHelpText;
+
+    // from version 0x0003 : common properties
+    writeCommonProperties(_rxOutStream);
+}
+
+//------------------------------------------------------------------------------
+void SAL_CALL ORadioButtonModel::read(const staruno::Reference<stario::XObjectInputStream>& _rxInStream) throw(stario::IOException, staruno::RuntimeException)
+{
+    OBoundControlModel::read(_rxInStream);
+    ::osl::MutexGuard aGuard(m_aMutex);
+
+    // Version
+    UINT16 nVersion = _rxInStream->readShort();
+
+    switch (nVersion)
+    {
+        case 0x0001 : _rxInStream >> m_sReferenceValue; _rxInStream >> (sal_Int16)m_nDefaultChecked; break;
+        case 0x0002 :
+            _rxInStream >> m_sReferenceValue;
+            _rxInStream >> (sal_Int16)m_nDefaultChecked;
+            _rxInStream >> m_aHelpText;
+            break;
+        case 0x0003 :
+            _rxInStream >> m_sReferenceValue;
+            _rxInStream >> (sal_Int16)m_nDefaultChecked;
+            _rxInStream >> m_aHelpText;
+            readCommonProperties(_rxInStream);
+            break;
+        default :
+            DBG_ERROR("ORadioButtonModel::read : unknown version !");
+            m_sReferenceValue = ::rtl::OUString();
+            m_nDefaultChecked = 0;
+            defaultCommonProperties();
+            break;
+    }
+    // Nach dem Lesen die Defaultwerte anzeigen
+    if (m_aControlSource.getLength())
+        // (not if we don't have a control source - the "State" property acts like it is persistent, then
+        _reset();
+}
+
+//------------------------------------------------------------------------------
+void ORadioButtonModel::_propertyChanged(const starbeans::PropertyChangeEvent& _rEvent) throw(staruno::RuntimeException)
+{
+    if (_rEvent.PropertyName.equals(PROPERTY_STATE))
+    {
+        if (_rEvent.NewValue == (sal_Int16)1)
+        {
+            // wenn sich mein Status auf 'checked' geaendert hat, muss ich alle meine Siblings, die in der selben Gruppe
+            // sind wie ich, entsprechend zuruecksetzen
+            staruno::Any aZero;
+            aZero <<= (sal_Int16)0;
+
+            SetSiblingPropsTo(PROPERTY_STATE, aZero);
+            ::osl::MutexGuard aGuard(m_aMutex);
+
+            // as we aren't commitable we have to take care of the field we are bound to ourself
+            if (m_xField.is() && !m_bInReset)
+            {
+                m_xField->setPropertyValue(PROPERTY_VALUE, staruno::makeAny(m_sReferenceValue));
+            }
+        }
+    }
+}
+
+//------------------------------------------------------------------------------
+void ORadioButtonModel::_onValueChanged()
+{
+    staruno::Any aValue;
+    aValue <<= (sal_Int16)((m_xColumn->getString() == m_sReferenceValue) ? RB_CHECK : RB_NOCHECK);
+    m_bInReset = sal_True;
+    {	// 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_xAggregateSet->setPropertyValue(PROPERTY_STATE, aValue);
+    }
+    m_bInReset = sal_False;
+}
+
+//------------------------------------------------------------------------------
+staruno::Any ORadioButtonModel::_getControlValue() const
+{
+    return m_xAggregateSet->getPropertyValue(PROPERTY_STATE);
+}
+
+//------------------------------------------------------------------------------
+sal_Int16 ORadioButtonModel::getState( const staruno::Any& rValue )
+{
+    //::rtl::OUString aStrValue = DBTypeConversion::toString( rValue );
+    return RB_NOCHECK;
+}
+
+//------------------------------------------------------------------------------
+void ORadioButtonModel::_reset( void )
+{
+    staruno::Any aValue;
+    aValue <<= (sal_Int16)m_nDefaultChecked;
+    {	// 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_xAggregateSet->setPropertyValue(PROPERTY_STATE, aValue);
+    }
+}
+
+//-----------------------------------------------------------------------------
+sal_Bool ORadioButtonModel::_commit()
+{
+    if (!m_bInReset)
+        // normally we don't have a commit as we forward all state changes immediately to our field we're bound to
+        return sal_True;
+
+    // we're in reset, so this commit means "put the value into the field you're bound to"
+    // 72769 - 08.02.00 - FS
+    DBG_ASSERT(m_xField.is(), "ORadioButtonModel::_commit : committing while resetting, but not bound ?");
+    if (m_xField.is())
+    {
+        try
+        {
+            sal_Int16 nValue;
+            m_xAggregateSet->getPropertyValue(PROPERTY_STATE) >>= nValue;
+            if (nValue == 1)
+                m_xField->setPropertyValue(PROPERTY_VALUE, staruno::makeAny(m_sReferenceValue));
+        }
+        catch(...)
+        {
+            DBG_ERROR("ORadioButtonModel::_commit : could not commit !");
+        }
+    }
+    return sal_True;
+}
+
+//-----------------------------------------------------------------------------
+void ORadioButtonModel::reset(void) throw (::com::sun::star::uno::RuntimeException)
+{
+    m_bInReset = sal_True;
+    OBoundControlModel::reset();
+    m_bInReset = sal_False;
+}
+
+//.........................................................................
+}
+//.........................................................................
+