summaryrefslogtreecommitdiff
path: root/binfilter/bf_forms/source/component/forms_RadioButton.cxx
diff options
context:
space:
mode:
Diffstat (limited to 'binfilter/bf_forms/source/component/forms_RadioButton.cxx')
-rw-r--r--binfilter/bf_forms/source/component/forms_RadioButton.cxx535
1 files changed, 535 insertions, 0 deletions
diff --git a/binfilter/bf_forms/source/component/forms_RadioButton.cxx b/binfilter/bf_forms/source/component/forms_RadioButton.cxx
new file mode 100644
index 000000000000..2e705fdfa998
--- /dev/null
+++ b/binfilter/bf_forms/source/component/forms_RadioButton.cxx
@@ -0,0 +1,535 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
+/*************************************************************************
+ *
+ * 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.
+ *
+ ************************************************************************/
+
+#include <comphelper/proparrhlp.hxx>
+
+#include "RadioButton.hxx"
+#include "property.hrc"
+#include "services.hxx"
+
+#include <com/sun/star/container/XIndexAccess.hpp>
+
+#include <com/sun/star/beans/PropertyAttribute.hpp>
+
+#include <com/sun/star/form/FormComponentType.hpp>
+
+#include <comphelper/property.hxx>
+
+namespace binfilter {
+
+//.........................................................................
+namespace frm
+{
+using namespace ::com::sun::star::uno;
+using namespace ::com::sun::star::sdb;
+using namespace ::com::sun::star::sdbc;
+//using namespace ::com::sun::star::sdbcx;
+using namespace ::com::sun::star::beans;
+using namespace ::com::sun::star::container;
+using namespace ::com::sun::star::form;
+using namespace ::com::sun::star::awt;
+using namespace ::com::sun::star::io;
+using namespace ::com::sun::star::lang;
+using namespace ::com::sun::star::util;
+
+//==================================================================
+//------------------------------------------------------------------------------
+InterfaceRef SAL_CALL ORadioButtonControl_CreateInstance(const Reference<XMultiServiceFactory>& _rxFactory) throw (RuntimeException)
+{
+ return *(new ORadioButtonControl(_rxFactory));
+}
+
+//------------------------------------------------------------------------------
+StringSequence SAL_CALL ORadioButtonControl::getSupportedServiceNames() throw(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 Reference<XMultiServiceFactory>& _rxFactory)
+ :OBoundControl(_rxFactory, VCL_CONTROL_RADIOBUTTON)
+{
+}
+
+//------------------------------------------------------------------
+void SAL_CALL ORadioButtonControl::createPeer(const Reference<starawt::XToolkit>& _rxToolkit, const Reference<starawt::XWindowPeer>& _rxParent) throw (RuntimeException)
+{
+ OBoundControl::createPeer(_rxToolkit, _rxParent);
+
+ // switch off the auto-toggle, we do this ourself ....
+ // (formerly this switch-off was done in the toolkit - but the correct place is here ...)
+// Reference< XVclWindowPeer > xVclWindowPeer( getPeer(), UNO_QUERY );
+// if (xVclWindowPeer.is())
+// xVclWindowPeer->setProperty(::rtl::OUString::createFromAscii("AutoToggle"), ::cppu::bool2any(sal_False));
+ // new order: do _not_ switch off the auto toggle because:
+ // * today, it is not necessary anymore to handle the toggling ourself (everything works fine without it)
+ // * without auto toggle, the AccessibleEvents as fired by the radio buttons are
+ // a. newly checked button: "unchecked"->"checked"
+ // b. previously checked button: "checked"->"unchecked"
+ // This is deadly for AT-tools, which then get the "unchecked" event _immediately_ after the "checked" event,
+ // and only read the latter. This makes radio buttons pretty unusable in form documents.
+ // So we switched AutoToggle _on_, again, because then VCL can handle the notifications, and will send
+ // them in the proper order.
+}
+
+//==================================================================
+InterfaceRef SAL_CALL ORadioButtonModel_CreateInstance(const Reference<XMultiServiceFactory>& _rxFactory) throw (RuntimeException)
+{
+ return *(new ORadioButtonModel(_rxFactory));
+}
+
+//------------------------------------------------------------------
+DBG_NAME( ORadioButtonModel )
+//------------------------------------------------------------------
+ORadioButtonModel::ORadioButtonModel(const Reference<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)
+{
+ DBG_CTOR( ORadioButtonModel, NULL );
+
+ m_nClassId = FormComponentType::RADIOBUTTON;
+ m_nDefaultChecked = RB_NOCHECK;
+ m_aLabelServiceName = FRM_SUN_COMPONENT_GROUPBOX;
+ m_sDataFieldConnectivityProperty = PROPERTY_STATE;
+
+ implConstruct();
+}
+
+//------------------------------------------------------------------
+ORadioButtonModel::ORadioButtonModel( const ORadioButtonModel* _pOriginal, const Reference<XMultiServiceFactory>& _rxFactory )
+ :OBoundControlModel( _pOriginal, _rxFactory, sal_False)
+ ,OPropertyChangeListener( m_aMutex )
+ ,m_bInReset( sal_False )
+{
+ DBG_CTOR( ORadioButtonModel, NULL );
+
+ m_nDefaultChecked = _pOriginal->m_nDefaultChecked;
+ m_sReferenceValue = _pOriginal->m_sReferenceValue;
+
+ implConstruct();
+}
+
+//------------------------------------------------------------------------------
+ORadioButtonModel::~ORadioButtonModel()
+{
+ DBG_DTOR( ORadioButtonModel, NULL );
+}
+
+//------------------------------------------------------------------------------
+void ORadioButtonModel::implConstruct()
+{
+ increment(m_refCount);
+ if (m_xAggregateSet.is())
+ {
+ OPropertyChangeMultiplexer* pMultiplexer = new OPropertyChangeMultiplexer(this, m_xAggregateSet);
+ pMultiplexer->addProperty(PROPERTY_STATE);
+ }
+ decrement(m_refCount);
+}
+
+// XCloneable
+//------------------------------------------------------------------------------
+IMPLEMENT_DEFAULT_CLONING( ORadioButtonModel )
+
+// XServiceInfo
+//------------------------------------------------------------------------------
+StringSequence SAL_CALL ORadioButtonModel::getSupportedServiceNames() throw(RuntimeException)
+{
+ StringSequence aSupported = OBoundControlModel::getSupportedServiceNames();
+ aSupported.realloc(aSupported.getLength() + 2);
+
+ ::rtl::OUString* pArray = aSupported.getArray();
+ pArray[aSupported.getLength()-2] = FRM_SUN_COMPONENT_DATABASE_RADIOBUTTON;
+ pArray[aSupported.getLength()-1] = FRM_SUN_COMPONENT_RADIOBUTTON;
+ return aSupported;
+}
+
+//------------------------------------------------------------------------------
+void ORadioButtonModel::getFastPropertyValue(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 Any& rValue)
+{
+ // mein Name
+ ::rtl::OUString sMyName(m_aName);
+
+ // meine Siblings durchiterieren
+ Reference<XIndexAccess> xIndexAccess(getParent(), UNO_QUERY);
+ if (xIndexAccess.is())
+ {
+ Reference<XPropertySet> xMyProps;
+ query_interface(static_cast<XWeak*>(this), xMyProps);
+ ::rtl::OUString sCurrentName;
+ for (sal_Int32 i=0; i<xIndexAccess->getCount(); ++i)
+ {
+ Reference<XPropertySet> xSiblingProperties(*(InterfaceRef*)xIndexAccess->getByIndex(i).getValue(), 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 != 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 Any& rValue) throw (Exception)
+{
+ switch (nHandle)
+ {
+ case PROPERTY_ID_REFVALUE :
+ DBG_ASSERT(rValue.getValueType().getTypeClass() == TypeClass_STRING, "ORadioButtonModel::setFastPropertyValue_NoBroadcast : invalid type !" );
+ rValue >>= m_sReferenceValue;
+ break;
+
+ case PROPERTY_ID_DEFAULTCHECKED :
+ DBG_ASSERT(rValue.getValueType().getTypeClass() == TypeClass_SHORT, "ORadioButtonModel::setFastPropertyValue_NoBroadcast : invalid type !" );
+ rValue >>= 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
+ Reference<XIndexAccess> xIndexAccess(getParent(), UNO_QUERY);
+ if (xIndexAccess.is())
+ {
+ ::rtl::OUString sName;
+ ::rtl::OUString sControlSource;
+
+ Reference<XPropertySet> xMyProps;
+ query_interface(static_cast<XWeak*>(this), xMyProps);
+ for (sal_Int32 i=0; i<xIndexAccess->getCount(); ++i)
+ {
+ Reference<XPropertySet> xSiblingProperties(*(InterfaceRef*)xIndexAccess->getByIndex(i).getValue(), 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 != 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.
+ Any aZero;
+ nValue = 0;
+ aZero <<= nValue;
+ SetSiblingPropsTo(PROPERTY_DEFAULTCHECKED, aZero);
+ }
+ }
+}
+
+//------------------------------------------------------------------------------
+sal_Bool ORadioButtonModel::convertFastPropertyValue(
+ Any& _rConvertedValue, Any& _rOldValue, sal_Int32 _nHandle, const Any& _rValue)
+ throw (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;
+}
+
+//------------------------------------------------------------------------------
+Reference<XPropertySetInfo> SAL_CALL ORadioButtonModel::getPropertySetInfo() throw(RuntimeException)
+{
+ Reference<XPropertySetInfo> xInfo( createPropertySetInfo( getInfoHelper() ) );
+ return xInfo;
+}
+
+//------------------------------------------------------------------------------
+cppu::IPropertyArrayHelper& ORadioButtonModel::getInfoHelper()
+{
+ return *const_cast<ORadioButtonModel*>(this)->getArrayHelper();
+}
+
+//------------------------------------------------------------------------------
+void ORadioButtonModel::fillProperties(
+ Sequence< Property >& _rProps,
+ Sequence< Property >& _rAggregateProps ) const
+{
+ FRM_BEGIN_PROP_HELPER(10)
+ // the "State" property is transient, so change this
+ // ModifyPropertyAttributes(_rAggregateProps, PROPERTY_STATE, 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_IFACE_PROP3(BOUNDFIELD, XPropertySet, BOUND,READONLY, TRANSIENT);
+ DECL_IFACE_PROP2(CONTROLLABEL, XPropertySet, BOUND, MAYBEVOID);
+ DECL_PROP2(CONTROLSOURCEPROPERTY, rtl::OUString, READONLY, TRANSIENT);
+ FRM_END_PROP_HELPER();
+}
+
+//------------------------------------------------------------------------------
+::rtl::OUString SAL_CALL ORadioButtonModel::getServiceName() throw(RuntimeException)
+{
+ return FRM_COMPONENT_RADIOBUTTON; // old (non-sun) name for compatibility !
+}
+
+//------------------------------------------------------------------------------
+void SAL_CALL ORadioButtonModel::write(const Reference<XObjectOutputStream>& _rxOutStream)
+ throw(IOException, RuntimeException)
+{
+ OBoundControlModel::write(_rxOutStream);
+
+ // Version
+ _rxOutStream->writeShort(0x0003);
+
+ // Properties
+ _rxOutStream << m_sReferenceValue;
+ _rxOutStream << (sal_Int16)m_nDefaultChecked;
+ writeHelpTextCompatibly(_rxOutStream);
+
+ // from version 0x0003 : common properties
+ writeCommonProperties(_rxOutStream);
+}
+
+//------------------------------------------------------------------------------
+void SAL_CALL ORadioButtonModel::read(const Reference<XObjectInputStream>& _rxInStream) throw(IOException, RuntimeException)
+{
+ OBoundControlModel::read(_rxInStream);
+ ::osl::MutexGuard aGuard(m_aMutex);
+
+ // Version
+ UINT16 nVersion = _rxInStream->readShort();
+
+ switch (nVersion)
+ {
+ case 0x0001 : _rxInStream >> m_sReferenceValue; _rxInStream >> m_nDefaultChecked; break;
+ case 0x0002 :
+ _rxInStream >> m_sReferenceValue;
+ _rxInStream >> m_nDefaultChecked;
+ readHelpTextCompatibly(_rxInStream);
+ break;
+ case 0x0003 :
+ _rxInStream >> m_sReferenceValue;
+ _rxInStream >> m_nDefaultChecked;
+ readHelpTextCompatibly(_rxInStream);
+ 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 PropertyChangeEvent& _rEvent) throw(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
+ 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
+ Reference<XPropertySet> xField = getField();
+ if (xField.is() && !m_bInReset)
+ {
+ xField->setPropertyValue(PROPERTY_VALUE, makeAny(m_sReferenceValue));
+ }
+ }
+ }
+}
+
+//------------------------------------------------------------------------------
+void ORadioButtonModel::_onValueChanged()
+{
+ 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;
+}
+
+//------------------------------------------------------------------------------
+Any ORadioButtonModel::_getControlValue() const
+{
+ return m_xAggregateSet->getPropertyValue(PROPERTY_STATE);
+}
+
+//------------------------------------------------------------------------------
+void ORadioButtonModel::_reset( void )
+{
+ 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
+ Reference<XPropertySet> xField = getField();
+ DBG_ASSERT(xField.is(), "ORadioButtonModel::_commit : committing while resetting, but not bound ?");
+ if (xField.is())
+ {
+ try
+ {
+ sal_Int16 nValue;
+ m_xAggregateSet->getPropertyValue(PROPERTY_STATE) >>= nValue;
+ if (nValue == 1)
+ xField->setPropertyValue(PROPERTY_VALUE, makeAny(m_sReferenceValue));
+ }
+ catch(Exception&)
+ {
+ DBG_ERROR("ORadioButtonModel::_commit : could not commit !");
+ }
+ }
+ return sal_True;
+}
+
+//-----------------------------------------------------------------------------
+void ORadioButtonModel::reset(void) throw (RuntimeException)
+{
+ m_bInReset = sal_True;
+ OBoundControlModel::reset();
+ m_bInReset = sal_False;
+}
+
+//.........................................................................
+}
+//.........................................................................
+
+}
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */