#include <com/sun/star/awt/XFixedText.hpp> //liuchen 2009-6-5

#include <com/sun/star/awt/XTextComponent.hpp> //liuchen 2009-6-5

#include <com/sun/star/awt/XComboBox.hpp> //liuchen 2009-6-18

#include <com/sun/star/awt/XRadioButton.hpp> //liuchen 2009-7-30

#define MAP_CHAR_LEN(x) ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(x))//liuchen 2009-6-8

#define GET_TYPE(x) ::getCppuType((uno::Reference< x > *)0);

//liuchen 2009-6-23

//expand the "TranslateInfo" struct to support more kinds of events 

//liuchen 2009-6-23

struct TranslatePropMap

{

	rtl::OUString sEventInfo;   //OO event name

	TranslateInfo aTransInfo;   

};

bool ApproveAll(const ScriptEvent& evt, void* pPara); //allow all types of controls to execute the event

bool ApproveType(const ScriptEvent& evt, void* pPara); //certain types of controls should execute the event, those types are given by pPara

bool DenyType(const ScriptEvent& evt, void* pPara);    //certain types of controls should not execute the event, those types are given by pPara

bool DenyMouseDrag(const ScriptEvent& evt, void* pPara); //used for VBA MouseMove event when "Shift" key is pressed

struct TypeList

{

	uno::Type* pTypeList;

	int nListLength;

};

Type typeXFixedText = GET_TYPE(awt::XFixedText);

Type typeXTextComponent = GET_TYPE(awt::XTextComponent);

Type typeXComboBox = GET_TYPE(awt::XComboBox);

Type typeXRadioButton = GET_TYPE(awt::XRadioButton);

TypeList fixedTextList = {&typeXFixedText, 1};

TypeList textCompList = {&typeXTextComponent, 1};

TypeList radioButtonList = {&typeXRadioButton, 1};

TypeList comboBoxList = {&typeXComboBox, 1};

//this array stores the OO event to VBA event translation info

static TranslatePropMap aTranslatePropMap_Impl[] = 

{

	// actionPerformed ooo event

	{ MAP_CHAR_LEN("actionPerformed"), { MAP_CHAR_LEN("_Click"), NULL, ApproveAll, NULL } },	

	{ MAP_CHAR_LEN("actionPerformed"), { MAP_CHAR_LEN("_Change"), NULL, DenyType, (void*)(&radioButtonList) } },  //liuchen 2009-7-30, OptionalButton_Change event is not the same as OptionalButton_Click event

	// itemStateChanged ooo event

	{ MAP_CHAR_LEN("itemStateChanged"), { MAP_CHAR_LEN("_Click"), NULL, ApproveType, (void*)(&comboBoxList) } },  //liuchen, add to support VBA ComboBox_Click event

	{ MAP_CHAR_LEN("itemStateChanged"), { MAP_CHAR_LEN("_Change"), NULL, ApproveType, (void*)(&radioButtonList) } }, //liuchen 2009-7-30, OptionalButton_Change event should be triggered when the button state is changed

	// changed ooo event

	{ MAP_CHAR_LEN("changed"), { MAP_CHAR_LEN("_Change"), NULL, ApproveAll, NULL } },	

	// focusGained ooo event

	{ MAP_CHAR_LEN("focusGained"), { MAP_CHAR_LEN("_GotFocus"), NULL, ApproveAll, NULL } },

	// focusLost ooo event

	{ MAP_CHAR_LEN("focusLost"), { MAP_CHAR_LEN("_LostFocus"), NULL, ApproveAll, NULL } },

	{ MAP_CHAR_LEN("focusLost"), { MAP_CHAR_LEN("_Exit"), NULL, ApproveType, (void*)(&textCompList) } }, //liuchen, add to support VBA TextBox_Exit event

	// adjustmentValueChanged ooo event

	{ MAP_CHAR_LEN("adjustmentValueChanged"), { MAP_CHAR_LEN("_Scroll"), NULL, ApproveAll, NULL } },

	{ MAP_CHAR_LEN("adjustmentValueChanged"), { MAP_CHAR_LEN("_Change"), NULL, ApproveAll, NULL } },

	// textChanged ooo event

	{ MAP_CHAR_LEN("textChanged"), { MAP_CHAR_LEN("_Change"), NULL, ApproveAll, NULL } },

	// keyReleased ooo event

	{ MAP_CHAR_LEN("keyReleased"), { MAP_CHAR_LEN("_KeyUp"), ooKeyPressedToVBAKeyUpDown, ApproveAll, NULL } },

	// mouseReleased ooo event

	{ MAP_CHAR_LEN("mouseReleased"), { MAP_CHAR_LEN("_Click"), ooMouseEvtToVBAMouseEvt, ApproveType, (void*)(&fixedTextList) } }, //liuchen, add to support VBA Label_Click event

	{ MAP_CHAR_LEN("mouseReleased"), { MAP_CHAR_LEN("_MouseUp"), ooMouseEvtToVBAMouseEvt, ApproveAll, NULL } },

	// mousePressed ooo event

	{ MAP_CHAR_LEN("mousePressed"), { MAP_CHAR_LEN("_MouseDown"), ooMouseEvtToVBAMouseEvt, ApproveAll, NULL } },

	{ MAP_CHAR_LEN("mousePressed"), { MAP_CHAR_LEN("_DblClick"), ooMouseEvtToVBADblClick, ApproveAll, NULL } },

	// mouseMoved ooo event	

	{ MAP_CHAR_LEN("mouseMoved"), { MAP_CHAR_LEN("_MouseMove"), ooMouseEvtToVBAMouseEvt, ApproveAll, NULL } },

	{ MAP_CHAR_LEN("mouseDragged"), { MAP_CHAR_LEN("_MouseMove"), ooMouseEvtToVBAMouseEvt, DenyMouseDrag, NULL } }, //liuchen, add to support VBA MouseMove event when the "Shift" key is pressed

	// keyPressed ooo event

	{ MAP_CHAR_LEN("keyPressed"), { MAP_CHAR_LEN("_KeyDown"), ooKeyPressedToVBAKeyUpDown, ApproveAll, NULL } },

	{ MAP_CHAR_LEN("keyPressed"), { MAP_CHAR_LEN("_KeyPress"), ooKeyPressedToVBAKeyUpDown, ApproveAll, NULL } }

};

//liuchen 2009-6-23 end

//liuchen 2009-6-23

//decide if the control should execute the event

bool ApproveAll(const ScriptEvent&, void* )

{

	return true;

}

//for the given control type in evt.Arguments[0], look for if it appears in the type list in pPara

bool FindControl(const ScriptEvent& evt, void* pPara)

{

	lang::EventObject aEvent;

	evt.Arguments[ 0 ] >>= aEvent;

	uno::Reference< uno::XInterface > xInterface( aEvent.Source, uno::UNO_QUERY );

	TypeList* pTypeListInfo = static_cast<TypeList*>(pPara);

	Type* pType = pTypeListInfo->pTypeList;

	int nLen = pTypeListInfo->nListLength;

	for (int i = 0; i < nLen; i++)

	{

		if ( xInterface->queryInterface( *pType ).hasValue() )

		{

			return true;

		}

		pType++;

	}

	return false;

}

//if the the given control type in evt.Arguments[0] appears in the type list in pPara, then approve the execution

bool ApproveType(const ScriptEvent& evt, void* pPara)

{

	return FindControl(evt, pPara);

}

//if the the given control type in evt.Arguments[0] appears in the type list in pPara, then deny the execution

bool DenyType(const ScriptEvent& evt, void* pPara)

{

	return !FindControl(evt, pPara);

}

//when mouse is moving, either the mouse button is pressed or some key is pressed can trigger the OO mouseDragged event,

//the former should be denyed, and the latter allowed, only by doing so can the VBA MouseMove event when the "Shift" key is 

//pressed can be correctly triggered

bool DenyMouseDrag(const ScriptEvent& evt, void* )

{

	awt::MouseEvent aEvent;

	evt.Arguments[ 0 ] >>= aEvent;

	if (aEvent.Buttons == 0 )

	{

		return true;

	}

	else

	{

		return false;

	}

}

//liuchen 2009-6-23

				//liuchen 2009-6-8

				if (! txInfo->ApproveRule(evt, txInfo->pPara) )

				{

					continue;

				}

				//liuchen 2009-6-8