AOO410/main/forms/source/component/RadioButton.cxx - openoffice - Git at Google

 /**************************************************************
  *
  * Licensed to the Apache Software Foundation (ASF) under one
  * or more contributor license agreements.  See the NOTICE file
  * distributed with this work for additional information
  * regarding copyright ownership.  The ASF licenses this file
  * to you under the Apache License, Version 2.0 (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.apache.org/licenses/LICENSE-2.0
  *
  * Unless required by applicable law or agreed to in writing,
  * software distributed under the License is distributed on an
  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
  * KIND, either express or implied.  See the License for the
  * specific language governing permissions and limitations
  * under the License.
  *
  *************************************************************/


 // MARKER(update_precomp.py): autogen include statement, do not remove
 #include "precompiled_forms.hxx"
 #include "RadioButton.hxx"
 #include "property.hxx"
 #ifndef _FRM_PROPERTY_HRC_
 #include "property.hrc"
 #endif
 #include "services.hxx"
 #include <tools/debug.hxx>
 #include <comphelper/extract.hxx>
 #include <comphelper/basicio.hxx>
 #include <com/sun/star/container/XIndexAccess.hpp>
 #include <com/sun/star/awt/XVclWindowPeer.hpp>

 //.........................................................................
 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;
 using namespace ::com::sun::star::form::binding;

 //==================================================================
 //------------------------------------------------------------------------------
 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)
     :OReferenceValueComponent( _rxFactory, VCL_CONTROLMODEL_RADIOBUTTON, FRM_SUN_CONTROL_RADIOBUTTON,sal_True )
 					// use the old control name for compytibility reasons
 {
 	DBG_CTOR( ORadioButtonModel, NULL );

 	m_nClassId = FormComponentType::RADIOBUTTON;
 	m_aLabelServiceName = FRM_SUN_COMPONENT_GROUPBOX;
     initValueProperty( PROPERTY_STATE, PROPERTY_ID_STATE );
 }

 //------------------------------------------------------------------
 ORadioButtonModel::ORadioButtonModel( const ORadioButtonModel* _pOriginal, const Reference<XMultiServiceFactory>& _rxFactory )
 	:OReferenceValueComponent( _pOriginal, _rxFactory )
 {
 	DBG_CTOR( ORadioButtonModel, NULL );
 }

 //------------------------------------------------------------------------------
 ORadioButtonModel::~ORadioButtonModel()
 {
 	DBG_DTOR( ORadioButtonModel, NULL );
 }

 // XCloneable
 //------------------------------------------------------------------------------
 IMPLEMENT_DEFAULT_CLONING( ORadioButtonModel )

 // XServiceInfo
 //------------------------------------------------------------------------------
 StringSequence SAL_CALL	ORadioButtonModel::getSupportedServiceNames() throw(RuntimeException)
 {
 	StringSequence aSupported = OReferenceValueComponent::getSupportedServiceNames();

     sal_Int32 nOldLen = aSupported.getLength();
 	aSupported.realloc( nOldLen + 8 );
 	::rtl::OUString* pStoreTo = aSupported.getArray() + nOldLen;

     *pStoreTo++ = BINDABLE_CONTROL_MODEL;
     *pStoreTo++ = DATA_AWARE_CONTROL_MODEL;
     *pStoreTo++ = VALIDATABLE_CONTROL_MODEL;

     *pStoreTo++ = BINDABLE_DATA_AWARE_CONTROL_MODEL;
     *pStoreTo++ = VALIDATABLE_BINDABLE_CONTROL_MODEL;

     *pStoreTo++ = FRM_SUN_COMPONENT_RADIOBUTTON;
     *pStoreTo++ = FRM_SUN_COMPONENT_DATABASE_RADIOBUTTON;
     *pStoreTo++ = BINDABLE_DATABASE_RADIO_BUTTON;

 	return aSupported;
 }

 //------------------------------------------------------------------------------
 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 = 0;
 			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)
 {
 	OReferenceValueComponent::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 = 0;
 				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_DEFAULT_STATE)
 	{
 		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_DEFAULT_STATE, aZero);
 		}
 	}
 }

 //------------------------------------------------------------------------------
 void ORadioButtonModel::describeFixedProperties( Sequence< Property >& _rProps ) const
 {
 	BEGIN_DESCRIBE_PROPERTIES( 1, OReferenceValueComponent )
 		DECL_PROP1(TABINDEX,			sal_Int16,					BOUND);
 	END_DESCRIBE_PROPERTIES();
 }

 //------------------------------------------------------------------------------
 ::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)
 {
 	OReferenceValueComponent::write(_rxOutStream);

 	// Version
 	_rxOutStream->writeShort(0x0003);

 	// Properties
 	_rxOutStream << getReferenceValue();
 	_rxOutStream << (sal_Int16)getDefaultChecked();
 	writeHelpTextCompatibly(_rxOutStream);

 	// from version 0x0003 : common properties
 	writeCommonProperties(_rxOutStream);
 }

 //------------------------------------------------------------------------------
 void SAL_CALL ORadioButtonModel::read(const Reference<XObjectInputStream>& _rxInStream) throw(IOException, RuntimeException)
 {
 	OReferenceValueComponent::read(_rxInStream);
 	::osl::MutexGuard aGuard(m_aMutex);

 	// Version
 	sal_uInt16 nVersion = _rxInStream->readShort();

     ::rtl::OUString sReferenceValue;
     sal_Int16 nDefaultChecked( 0 );
 	switch (nVersion)
 	{
 		case 0x0001 :
             _rxInStream >> sReferenceValue;
             _rxInStream >> nDefaultChecked;
             break;
 		case 0x0002 :
 			_rxInStream >> sReferenceValue;
 			_rxInStream >> nDefaultChecked;
 			readHelpTextCompatibly(_rxInStream);
 			break;
 		case 0x0003 :
 			_rxInStream >> sReferenceValue;
 			_rxInStream >> nDefaultChecked;
 			readHelpTextCompatibly(_rxInStream);
 			readCommonProperties(_rxInStream);
 			break;
 		default :
 			DBG_ERROR("ORadioButtonModel::read : unknown version !");
 			defaultCommonProperties();
 			break;
 	}

     setReferenceValue( sReferenceValue );
     setDefaultChecked( (ToggleState)nDefaultChecked );

 	// Nach dem Lesen die Defaultwerte anzeigen
 	if ( getControlSource().getLength() )
 		// (not if we don't have a control source - the "State" property acts like it is persistent, then
 		resetNoBroadcast();
 }

 //------------------------------------------------------------------------------
 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 );
 		}
 	}

     OReferenceValueComponent::_propertyChanged( _rEvent );
 }

 //------------------------------------------------------------------------------
 Any ORadioButtonModel::translateDbColumnToControlValue()
 {
     return makeAny( (sal_Int16)
         ( ( m_xColumn->getString() == getReferenceValue() ) ? STATE_CHECK : STATE_NOCHECK )
     );
 }

 //------------------------------------------------------------------------------
 Any ORadioButtonModel::translateExternalValueToControlValue( const Any& _rExternalValue ) const
 {
     Any aControlValue = OReferenceValueComponent::translateExternalValueToControlValue( _rExternalValue );
     sal_Int16 nState = STATE_NOCHECK;
     if ( ( aControlValue >>= nState ) && ( nState == STATE_DONTKNOW ) )
         // radio buttons do not have the DONTKNOW state
         aControlValue <<= (sal_Int16)STATE_NOCHECK;
     return aControlValue;
 }

 //-----------------------------------------------------------------------------
 sal_Bool ORadioButtonModel::commitControlValueToDbColumn( bool /*_bPostReset*/ )
 {
     Reference< XPropertySet > xField( getField() );
 	OSL_PRECOND( xField.is(), "ORadioButtonModel::commitControlValueToDbColumn: not bound!" );
 	if ( xField.is() )
 	{
 		try
 		{
 			sal_Int16 nValue = 0;
 			m_xAggregateSet->getPropertyValue( PROPERTY_STATE ) >>= nValue;
 			if ( nValue == 1 )
 				xField->setPropertyValue( PROPERTY_VALUE, makeAny( getReferenceValue() ) );
 		}
 		catch(Exception&)
 		{
 			DBG_ERROR("ORadioButtonModel::commitControlValueToDbColumn: could not commit !");
 		}
 	}
 	return sal_True;
 }

 //.........................................................................
 }
 //.........................................................................
	/**************************************************************
	*
	* Licensed to the Apache Software Foundation (ASF) under one
	* or more contributor license agreements. See the NOTICE file
	* distributed with this work for additional information
	* regarding copyright ownership. The ASF licenses this file
	* to you under the Apache License, Version 2.0 (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.apache.org/licenses/LICENSE-2.0
	*
	* Unless required by applicable law or agreed to in writing,
	* software distributed under the License is distributed on an
	* "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
	* KIND, either express or implied. See the License for the
	* specific language governing permissions and limitations
	* under the License.
	*
	*************************************************************/



	// MARKER(update_precomp.py): autogen include statement, do not remove
	#include "precompiled_forms.hxx"
	#include "RadioButton.hxx"
	#include "property.hxx"
	#ifndef _FRM_PROPERTY_HRC_
	#include "property.hrc"
	#endif
	#include "services.hxx"
	#include <tools/debug.hxx>
	#include <comphelper/extract.hxx>
	#include <comphelper/basicio.hxx>
	#include <com/sun/star/container/XIndexAccess.hpp>
	#include <com/sun/star/awt/XVclWindowPeer.hpp>

	//.........................................................................
	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;
	using namespace ::com::sun::star::form::binding;

	//==================================================================
	//------------------------------------------------------------------------------
	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)
	:OReferenceValueComponent( _rxFactory, VCL_CONTROLMODEL_RADIOBUTTON, FRM_SUN_CONTROL_RADIOBUTTON,sal_True )
	// use the old control name for compytibility reasons
	{
	DBG_CTOR( ORadioButtonModel, NULL );

	m_nClassId = FormComponentType::RADIOBUTTON;
	m_aLabelServiceName = FRM_SUN_COMPONENT_GROUPBOX;
	initValueProperty( PROPERTY_STATE, PROPERTY_ID_STATE );
	}

	//------------------------------------------------------------------
	ORadioButtonModel::ORadioButtonModel( const ORadioButtonModel* _pOriginal, const Reference<XMultiServiceFactory>& _rxFactory )
	:OReferenceValueComponent( _pOriginal, _rxFactory )
	{
	DBG_CTOR( ORadioButtonModel, NULL );
	}

	//------------------------------------------------------------------------------
	ORadioButtonModel::~ORadioButtonModel()
	{
	DBG_DTOR( ORadioButtonModel, NULL );
	}

	// XCloneable
	//------------------------------------------------------------------------------
	IMPLEMENT_DEFAULT_CLONING( ORadioButtonModel )

	// XServiceInfo
	//------------------------------------------------------------------------------
	StringSequence SAL_CALL ORadioButtonModel::getSupportedServiceNames() throw(RuntimeException)
	{
	StringSequence aSupported = OReferenceValueComponent::getSupportedServiceNames();

	sal_Int32 nOldLen = aSupported.getLength();
	aSupported.realloc( nOldLen + 8 );
	::rtl::OUString* pStoreTo = aSupported.getArray() + nOldLen;

	*pStoreTo++ = BINDABLE_CONTROL_MODEL;
	*pStoreTo++ = DATA_AWARE_CONTROL_MODEL;
	*pStoreTo++ = VALIDATABLE_CONTROL_MODEL;

	*pStoreTo++ = BINDABLE_DATA_AWARE_CONTROL_MODEL;
	*pStoreTo++ = VALIDATABLE_BINDABLE_CONTROL_MODEL;

	*pStoreTo++ = FRM_SUN_COMPONENT_RADIOBUTTON;
	*pStoreTo++ = FRM_SUN_COMPONENT_DATABASE_RADIOBUTTON;
	*pStoreTo++ = BINDABLE_DATABASE_RADIO_BUTTON;

	return aSupported;
	}

	//------------------------------------------------------------------------------
	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 = 0;
	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)
	{
	OReferenceValueComponent::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 = 0;
	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_DEFAULT_STATE)
	{
	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_DEFAULT_STATE, aZero);
	}
	}
	}

	//------------------------------------------------------------------------------
	void ORadioButtonModel::describeFixedProperties( Sequence< Property >& _rProps ) const
	{
	BEGIN_DESCRIBE_PROPERTIES( 1, OReferenceValueComponent )
	DECL_PROP1(TABINDEX, sal_Int16, BOUND);
	END_DESCRIBE_PROPERTIES();
	}

	//------------------------------------------------------------------------------
	::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)
	{
	OReferenceValueComponent::write(_rxOutStream);

	// Version
	_rxOutStream->writeShort(0x0003);

	// Properties
	_rxOutStream << getReferenceValue();
	_rxOutStream << (sal_Int16)getDefaultChecked();
	writeHelpTextCompatibly(_rxOutStream);

	// from version 0x0003 : common properties
	writeCommonProperties(_rxOutStream);
	}

	//------------------------------------------------------------------------------
	void SAL_CALL ORadioButtonModel::read(const Reference<XObjectInputStream>& _rxInStream) throw(IOException, RuntimeException)
	{
	OReferenceValueComponent::read(_rxInStream);
	::osl::MutexGuard aGuard(m_aMutex);

	// Version
	sal_uInt16 nVersion = _rxInStream->readShort();

	::rtl::OUString sReferenceValue;
	sal_Int16 nDefaultChecked( 0 );
	switch (nVersion)
	{
	case 0x0001 :
	_rxInStream >> sReferenceValue;
	_rxInStream >> nDefaultChecked;
	break;
	case 0x0002 :
	_rxInStream >> sReferenceValue;
	_rxInStream >> nDefaultChecked;
	readHelpTextCompatibly(_rxInStream);
	break;
	case 0x0003 :
	_rxInStream >> sReferenceValue;
	_rxInStream >> nDefaultChecked;
	readHelpTextCompatibly(_rxInStream);
	readCommonProperties(_rxInStream);
	break;
	default :
	DBG_ERROR("ORadioButtonModel::read : unknown version !");
	defaultCommonProperties();
	break;
	}

	setReferenceValue( sReferenceValue );
	setDefaultChecked( (ToggleState)nDefaultChecked );

	// Nach dem Lesen die Defaultwerte anzeigen
	if ( getControlSource().getLength() )
	// (not if we don't have a control source - the "State" property acts like it is persistent, then
	resetNoBroadcast();
	}

	//------------------------------------------------------------------------------
	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 );
	}
	}

	OReferenceValueComponent::_propertyChanged( _rEvent );
	}

	//------------------------------------------------------------------------------
	Any ORadioButtonModel::translateDbColumnToControlValue()
	{
	return makeAny( (sal_Int16)
	( ( m_xColumn->getString() == getReferenceValue() ) ? STATE_CHECK : STATE_NOCHECK )
	);
	}

	//------------------------------------------------------------------------------
	Any ORadioButtonModel::translateExternalValueToControlValue( const Any& _rExternalValue ) const
	{
	Any aControlValue = OReferenceValueComponent::translateExternalValueToControlValue( _rExternalValue );
	sal_Int16 nState = STATE_NOCHECK;
	if ( ( aControlValue >>= nState ) && ( nState == STATE_DONTKNOW ) )
	// radio buttons do not have the DONTKNOW state
	aControlValue <<= (sal_Int16)STATE_NOCHECK;
	return aControlValue;
	}

	//-----------------------------------------------------------------------------
	sal_Bool ORadioButtonModel::commitControlValueToDbColumn( bool /_bPostReset/ )
	{
	Reference< XPropertySet > xField( getField() );
	OSL_PRECOND( xField.is(), "ORadioButtonModel::commitControlValueToDbColumn: not bound!" );
	if ( xField.is() )
	{
	try
	{
	sal_Int16 nValue = 0;
	m_xAggregateSet->getPropertyValue( PROPERTY_STATE ) >>= nValue;
	if ( nValue == 1 )
	xField->setPropertyValue( PROPERTY_VALUE, makeAny( getReferenceValue() ) );
	}
	catch(Exception&)
	{
	DBG_ERROR("ORadioButtonModel::commitControlValueToDbColumn: could not commit !");
	}
	}
	return sal_True;
	}

	//.........................................................................
	}
	//.........................................................................