1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski  *
3*b1cdbd2cSJim Jagielski  * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski  * or more contributor license agreements.  See the NOTICE file
5*b1cdbd2cSJim Jagielski  * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski  * regarding copyright ownership.  The ASF licenses this file
7*b1cdbd2cSJim Jagielski  * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski  * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski  * with the License.  You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski  *
11*b1cdbd2cSJim Jagielski  *   http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski  *
13*b1cdbd2cSJim Jagielski  * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski  * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski  * KIND, either express or implied.  See the License for the
17*b1cdbd2cSJim Jagielski  * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski  * under the License.
19*b1cdbd2cSJim Jagielski  *
20*b1cdbd2cSJim Jagielski  *************************************************************/
21*b1cdbd2cSJim Jagielski 
22*b1cdbd2cSJim Jagielski 
23*b1cdbd2cSJim Jagielski 
24*b1cdbd2cSJim Jagielski // MARKER(update_precomp.py): autogen include statement, do not remove
25*b1cdbd2cSJim Jagielski #include "precompiled_automation.hxx"
26*b1cdbd2cSJim Jagielski #include <osl/mutex.hxx>
27*b1cdbd2cSJim Jagielski 
28*b1cdbd2cSJim Jagielski #include <vcl/window.hxx>
29*b1cdbd2cSJim Jagielski #include <vcl/vclevent.hxx>
30*b1cdbd2cSJim Jagielski #include <vcl/button.hxx>
31*b1cdbd2cSJim Jagielski #include <vcl/edit.hxx>
32*b1cdbd2cSJim Jagielski #include <vcl/spinfld.hxx>
33*b1cdbd2cSJim Jagielski #include <vcl/msgbox.hxx>
34*b1cdbd2cSJim Jagielski #include <vcl/toolbox.hxx>
35*b1cdbd2cSJim Jagielski #include <vcl/lstbox.hxx>
36*b1cdbd2cSJim Jagielski #include <vcl/sound.hxx>
37*b1cdbd2cSJim Jagielski #include <vcl/combobox.hxx>
38*b1cdbd2cSJim Jagielski #include <vcl/floatwin.hxx>
39*b1cdbd2cSJim Jagielski #include <basic/ttstrhlp.hxx>
40*b1cdbd2cSJim Jagielski #include "statemnt.hxx"
41*b1cdbd2cSJim Jagielski #include "retstrm.hxx"
42*b1cdbd2cSJim Jagielski #include "rcontrol.hxx"
43*b1cdbd2cSJim Jagielski #include "recorder.hxx"
44*b1cdbd2cSJim Jagielski 
45*b1cdbd2cSJim Jagielski #include <comphelper/uieventslogger.hxx>
46*b1cdbd2cSJim Jagielski 
47*b1cdbd2cSJim Jagielski MacroRecorder* MacroRecorder::pMacroRecorder = NULL;
48*b1cdbd2cSJim Jagielski 
MacroRecorder()49*b1cdbd2cSJim Jagielski MacroRecorder::MacroRecorder()
50*b1cdbd2cSJim Jagielski : pLastWin( NULL )
51*b1cdbd2cSJim Jagielski , pEditModify( NULL )
52*b1cdbd2cSJim Jagielski , pActionParent( NULL )
53*b1cdbd2cSJim Jagielski , aKeyUniqueID()
54*b1cdbd2cSJim Jagielski , pKeyWin( NULL )
55*b1cdbd2cSJim Jagielski , bKeyFollowFocus( sal_False )
56*b1cdbd2cSJim Jagielski , m_bRecord( sal_False )
57*b1cdbd2cSJim Jagielski , m_bLog( sal_False )
58*b1cdbd2cSJim Jagielski {
59*b1cdbd2cSJim Jagielski     aHookRefresh.SetTimeout( 500 );
60*b1cdbd2cSJim Jagielski     aHookRefresh.SetTimeoutHdl( LINK( this, MacroRecorder, HookRefreshHdl) );
61*b1cdbd2cSJim Jagielski     aHookRefresh.Start();
62*b1cdbd2cSJim Jagielski     aEventListenerHdl = LINK( this, MacroRecorder, EventListener );
63*b1cdbd2cSJim Jagielski     AddEventHooks();
64*b1cdbd2cSJim Jagielski }
65*b1cdbd2cSJim Jagielski 
~MacroRecorder()66*b1cdbd2cSJim Jagielski MacroRecorder::~MacroRecorder()
67*b1cdbd2cSJim Jagielski {
68*b1cdbd2cSJim Jagielski     aHookRefresh.Stop();
69*b1cdbd2cSJim Jagielski     RemoveEventHooks();
70*b1cdbd2cSJim Jagielski }
71*b1cdbd2cSJim Jagielski 
AddEventHooks()72*b1cdbd2cSJim Jagielski void MacroRecorder::AddEventHooks()
73*b1cdbd2cSJim Jagielski {
74*b1cdbd2cSJim Jagielski     Window *pTopLevel = Application::GetFirstTopLevelWindow();
75*b1cdbd2cSJim Jagielski     while ( pTopLevel )
76*b1cdbd2cSJim Jagielski 	{
77*b1cdbd2cSJim Jagielski         Window *pParent = pTopLevel;
78*b1cdbd2cSJim Jagielski         while ( pParent->GetParent() )
79*b1cdbd2cSJim Jagielski             pParent = pParent->GetParent();
80*b1cdbd2cSJim Jagielski 
81*b1cdbd2cSJim Jagielski         pParent->RemoveChildEventListener( aEventListenerHdl );     // might be instrumented already
82*b1cdbd2cSJim Jagielski         pParent->AddChildEventListener( aEventListenerHdl );
83*b1cdbd2cSJim Jagielski 
84*b1cdbd2cSJim Jagielski         pTopLevel = Application::GetNextTopLevelWindow( pTopLevel );
85*b1cdbd2cSJim Jagielski 	}
86*b1cdbd2cSJim Jagielski }
87*b1cdbd2cSJim Jagielski 
RemoveEventHooks()88*b1cdbd2cSJim Jagielski void MacroRecorder::RemoveEventHooks()
89*b1cdbd2cSJim Jagielski {
90*b1cdbd2cSJim Jagielski     Window *pTopLevel = Application::GetFirstTopLevelWindow();
91*b1cdbd2cSJim Jagielski     while ( pTopLevel )
92*b1cdbd2cSJim Jagielski 	{
93*b1cdbd2cSJim Jagielski         pTopLevel->RemoveChildEventListener( aEventListenerHdl );
94*b1cdbd2cSJim Jagielski 		pTopLevel = Application::GetNextTopLevelWindow( pTopLevel );
95*b1cdbd2cSJim Jagielski 	}
96*b1cdbd2cSJim Jagielski }
97*b1cdbd2cSJim Jagielski 
IMPL_LINK(MacroRecorder,HookRefreshHdl,void *,EMPTYARG)98*b1cdbd2cSJim Jagielski IMPL_LINK( MacroRecorder, HookRefreshHdl, void*, EMPTYARG )
99*b1cdbd2cSJim Jagielski {
100*b1cdbd2cSJim Jagielski     AddEventHooks();
101*b1cdbd2cSJim Jagielski     return 0;
102*b1cdbd2cSJim Jagielski }
103*b1cdbd2cSJim Jagielski 
LogVCL(rtl::OString aParentID,sal_uInt16 nVCLWindowType,rtl::OString aID,String aMethod,sal_uInt16 nParam)104*b1cdbd2cSJim Jagielski void MacroRecorder::LogVCL( rtl::OString aParentID, sal_uInt16 nVCLWindowType, rtl::OString aID, String aMethod, sal_uInt16 nParam )
105*b1cdbd2cSJim Jagielski {
106*b1cdbd2cSJim Jagielski     ::comphelper::UiEventsLogger::logVcl( Id2Str( aParentID ), nVCLWindowType, Id2Str( aID ), aMethod, nParam );
107*b1cdbd2cSJim Jagielski }
108*b1cdbd2cSJim Jagielski 
LogVCL(rtl::OString aParentID,sal_uInt16 nVCLWindowType,rtl::OString aID,String aMethod)109*b1cdbd2cSJim Jagielski void MacroRecorder::LogVCL( rtl::OString aParentID, sal_uInt16 nVCLWindowType, rtl::OString aID, String aMethod )
110*b1cdbd2cSJim Jagielski {
111*b1cdbd2cSJim Jagielski     ::comphelper::UiEventsLogger::logVcl( Id2Str( aParentID ), nVCLWindowType, Id2Str( aID ), aMethod );
112*b1cdbd2cSJim Jagielski }
113*b1cdbd2cSJim Jagielski 
GetParentWithID(Window * pThis)114*b1cdbd2cSJim Jagielski Window* MacroRecorder::GetParentWithID( Window* pThis )
115*b1cdbd2cSJim Jagielski {
116*b1cdbd2cSJim Jagielski     Window *pOverlap = pThis->GetWindow( WINDOW_OVERLAP );
117*b1cdbd2cSJim Jagielski     while ( pOverlap != pThis && pThis->GetUniqueOrHelpId().isEmpty() && pThis->GET_REAL_PARENT() )
118*b1cdbd2cSJim Jagielski         pThis = pThis->GET_REAL_PARENT();
119*b1cdbd2cSJim Jagielski     return pThis;
120*b1cdbd2cSJim Jagielski }
121*b1cdbd2cSJim Jagielski 
GetParentID(Window * pThis)122*b1cdbd2cSJim Jagielski rtl::OString MacroRecorder::GetParentID( Window* pThis )
123*b1cdbd2cSJim Jagielski {
124*b1cdbd2cSJim Jagielski     if ( pThis->GetParent() )
125*b1cdbd2cSJim Jagielski         return pThis->GetParent()->GetUniqueOrHelpId();
126*b1cdbd2cSJim Jagielski     else
127*b1cdbd2cSJim Jagielski         return rtl::OString();
128*b1cdbd2cSJim Jagielski }
129*b1cdbd2cSJim Jagielski 
IMPL_LINK(MacroRecorder,EventListener,VclSimpleEvent *,pEvent)130*b1cdbd2cSJim Jagielski IMPL_LINK( MacroRecorder, EventListener, VclSimpleEvent*, pEvent )
131*b1cdbd2cSJim Jagielski {
132*b1cdbd2cSJim Jagielski     sal_Bool bSendData = sal_False;
133*b1cdbd2cSJim Jagielski 
134*b1cdbd2cSJim Jagielski     if ( pEvent->ISA( VclWindowEvent ) )
135*b1cdbd2cSJim Jagielski     {
136*b1cdbd2cSJim Jagielski         VclWindowEvent* pWinEvent = ( VclWindowEvent* ) pEvent;
137*b1cdbd2cSJim Jagielski         Window* pWin = pWinEvent->GetWindow();
138*b1cdbd2cSJim Jagielski         sal_uLong nEventID = pWinEvent->GetId();
139*b1cdbd2cSJim Jagielski #if OSL_DEBUG_LEVEL > 1
140*b1cdbd2cSJim Jagielski         if ( nEventID >= 1001 && nEventID != VCLEVENT_WINDOW_KEYUP )
141*b1cdbd2cSJim Jagielski             nEventID = pWinEvent->GetId();  // Just something to set a breakpoint
142*b1cdbd2cSJim Jagielski         else
143*b1cdbd2cSJim Jagielski             return 0;
144*b1cdbd2cSJim Jagielski #endif
145*b1cdbd2cSJim Jagielski 
146*b1cdbd2cSJim Jagielski // check for different action after collecting keys
147*b1cdbd2cSJim Jagielski         // send if there_is_something_to_send
148*b1cdbd2cSJim Jagielski         // and eather event_is_not_of_interest
149*b1cdbd2cSJim Jagielski         //     or ( new_window and new_window_is_interesting )    ( ignore interesting events to uninteresting window )
150*b1cdbd2cSJim Jagielski 
151*b1cdbd2cSJim Jagielski         if (  aKeyString.Len()
152*b1cdbd2cSJim Jagielski             && (  ( nEventID != VCLEVENT_WINDOW_KEYINPUT
153*b1cdbd2cSJim Jagielski                  && nEventID != VCLEVENT_WINDOW_MOUSEMOVE
154*b1cdbd2cSJim Jagielski                  && nEventID != VCLEVENT_WINDOW_COMMAND
155*b1cdbd2cSJim Jagielski                  && nEventID != VCLEVENT_WINDOW_KEYUP )
156*b1cdbd2cSJim Jagielski                 || ( pKeyWin != pWin
157*b1cdbd2cSJim Jagielski                     && ( pWin->GetType() == WINDOW_CONTROL || pWin->GetType() == WINDOW_WINDOW )
158*b1cdbd2cSJim Jagielski                    )
159*b1cdbd2cSJim Jagielski                )
160*b1cdbd2cSJim Jagielski            )
161*b1cdbd2cSJim Jagielski         {
162*b1cdbd2cSJim Jagielski 			if ( m_bRecord )
163*b1cdbd2cSJim Jagielski 			{
164*b1cdbd2cSJim Jagielski 				// we cannot access pKeyWin since it might have dissapeared
165*b1cdbd2cSJim Jagielski 				if ( bKeyFollowFocus )
166*b1cdbd2cSJim Jagielski 					StatementList::pRet->GenReturn( RET_MacroRecorder, aKeyUniqueID, (sal_uInt16)M_TypeKeys, aKeyString, bKeyFollowFocus );
167*b1cdbd2cSJim Jagielski 				else
168*b1cdbd2cSJim Jagielski 					StatementList::pRet->GenReturn( RET_MacroRecorder, aKeyUniqueID, (sal_uInt16)M_TypeKeys, aKeyString );
169*b1cdbd2cSJim Jagielski #if OSL_DEBUG_LEVEL > 1
170*b1cdbd2cSJim Jagielski                 StatementList::pRet->GenReturn( RET_MacroRecorder, aKeyUniqueID, (sal_uInt16)M_TypeKeys, String::CreateFromInt32( nEventID ) );
171*b1cdbd2cSJim Jagielski #endif
172*b1cdbd2cSJim Jagielski 				bSendData = sal_True;
173*b1cdbd2cSJim Jagielski 			}
174*b1cdbd2cSJim Jagielski 			if ( m_bLog )
175*b1cdbd2cSJim Jagielski 			{
176*b1cdbd2cSJim Jagielski //  HACK Too many KeyEvents generated              LogVCL( rtl::OString(), 0, aKeyUniqueID, CUniString("TypeKeys"), aKeyString.Len() );
177*b1cdbd2cSJim Jagielski 			}
178*b1cdbd2cSJim Jagielski             // cleanup
179*b1cdbd2cSJim Jagielski             aKeyString.Erase();
180*b1cdbd2cSJim Jagielski             pKeyWin = NULL;
181*b1cdbd2cSJim Jagielski             bKeyFollowFocus = sal_False;
182*b1cdbd2cSJim Jagielski         }
183*b1cdbd2cSJim Jagielski 
184*b1cdbd2cSJim Jagielski         switch ( pWin->GetType() )
185*b1cdbd2cSJim Jagielski         {
186*b1cdbd2cSJim Jagielski 			case WINDOW_TABPAGE:
187*b1cdbd2cSJim Jagielski 				switch( nEventID )
188*b1cdbd2cSJim Jagielski 				{
189*b1cdbd2cSJim Jagielski 					case VCLEVENT_WINDOW_ACTIVATE:
190*b1cdbd2cSJim Jagielski 						if ( m_bRecord )
191*b1cdbd2cSJim Jagielski 						{
192*b1cdbd2cSJim Jagielski 							StatementList::pRet->GenReturn( RET_MacroRecorder, rtl::OString(), (comm_USHORT)(M_SetPage|M_RET_NUM_CONTROL), Id2Str( pWin->GetUniqueOrHelpId() ) );
193*b1cdbd2cSJim Jagielski 							bSendData = sal_True;
194*b1cdbd2cSJim Jagielski 						}
195*b1cdbd2cSJim Jagielski 						if ( m_bLog )
196*b1cdbd2cSJim Jagielski 						{
197*b1cdbd2cSJim Jagielski                             LogVCL( rtl::OString(), pWin->GetType(), pWin->GetUniqueOrHelpId(), CUniString("SetPage") );
198*b1cdbd2cSJim Jagielski 						}
199*b1cdbd2cSJim Jagielski 						break;
200*b1cdbd2cSJim Jagielski 				}
201*b1cdbd2cSJim Jagielski 				break;
202*b1cdbd2cSJim Jagielski 			case WINDOW_RADIOBUTTON:
203*b1cdbd2cSJim Jagielski 			case WINDOW_IMAGERADIOBUTTON:
204*b1cdbd2cSJim Jagielski 				switch( nEventID )
205*b1cdbd2cSJim Jagielski 				{
206*b1cdbd2cSJim Jagielski                     case VCLEVENT_BUTTON_CLICK:  // VCLEVENT_RADIOBUTTON_TOGGLE
207*b1cdbd2cSJim Jagielski                         {
208*b1cdbd2cSJim Jagielski                             if ( ((RadioButton*)pWin)->IsChecked() )
209*b1cdbd2cSJim Jagielski                             {
210*b1cdbd2cSJim Jagielski 								if ( m_bRecord )
211*b1cdbd2cSJim Jagielski 								{
212*b1cdbd2cSJim Jagielski 									StatementList::pRet->GenReturn( RET_MacroRecorder, pWin->GetUniqueOrHelpId(), (comm_USHORT)M_Check );
213*b1cdbd2cSJim Jagielski 									bSendData = sal_True;
214*b1cdbd2cSJim Jagielski 								}
215*b1cdbd2cSJim Jagielski 								if ( m_bLog )
216*b1cdbd2cSJim Jagielski 								{
217*b1cdbd2cSJim Jagielski                                     LogVCL( GetParentID( pWin ), pWin->GetType(), pWin->GetUniqueOrHelpId(), CUniString("Check") );
218*b1cdbd2cSJim Jagielski 								}
219*b1cdbd2cSJim Jagielski                             }
220*b1cdbd2cSJim Jagielski                         }
221*b1cdbd2cSJim Jagielski 						break;
222*b1cdbd2cSJim Jagielski 				}
223*b1cdbd2cSJim Jagielski 				break;
224*b1cdbd2cSJim Jagielski 			case WINDOW_CHECKBOX:
225*b1cdbd2cSJim Jagielski 			case WINDOW_TRISTATEBOX:
226*b1cdbd2cSJim Jagielski 				switch( nEventID )
227*b1cdbd2cSJim Jagielski 				{
228*b1cdbd2cSJim Jagielski                     case VCLEVENT_BUTTON_CLICK: //VCLEVENT_CHECKBOX_TOGGLE:
229*b1cdbd2cSJim Jagielski                         {
230*b1cdbd2cSJim Jagielski                             comm_USHORT nMethod;
231*b1cdbd2cSJim Jagielski                             String aMethod;
232*b1cdbd2cSJim Jagielski                             switch ( ((TriStateBox*)pWin)->GetState() )
233*b1cdbd2cSJim Jagielski                             {
234*b1cdbd2cSJim Jagielski                                 case STATE_CHECK: nMethod = M_Check; aMethod = CUniString("Check"); break;
235*b1cdbd2cSJim Jagielski                                 case STATE_NOCHECK: nMethod = M_UnCheck; aMethod = CUniString("UnCheck"); break;
236*b1cdbd2cSJim Jagielski                                 case STATE_DONTKNOW: nMethod = M_TriState; aMethod = CUniString("TriState"); break;
237*b1cdbd2cSJim Jagielski                                 default: nMethod = M_Check;
238*b1cdbd2cSJim Jagielski                                     DBG_ERROR( "Unknown state in TriStateBox::GetState()" );
239*b1cdbd2cSJim Jagielski                             }
240*b1cdbd2cSJim Jagielski 							if ( m_bRecord )
241*b1cdbd2cSJim Jagielski 							{
242*b1cdbd2cSJim Jagielski 								StatementList::pRet->GenReturn( RET_MacroRecorder, pWin->GetUniqueOrHelpId(), nMethod );
243*b1cdbd2cSJim Jagielski 								bSendData = sal_True;
244*b1cdbd2cSJim Jagielski 							}
245*b1cdbd2cSJim Jagielski 							if ( m_bLog )
246*b1cdbd2cSJim Jagielski 							{
247*b1cdbd2cSJim Jagielski                                 LogVCL( GetParentID( pWin ), pWin->GetType(), pWin->GetUniqueOrHelpId(), aMethod );
248*b1cdbd2cSJim Jagielski 							}
249*b1cdbd2cSJim Jagielski                         }
250*b1cdbd2cSJim Jagielski                         break;
251*b1cdbd2cSJim Jagielski 				}
252*b1cdbd2cSJim Jagielski 				break;
253*b1cdbd2cSJim Jagielski 			case WINDOW_EDIT:
254*b1cdbd2cSJim Jagielski 			case WINDOW_MULTILINEEDIT:
255*b1cdbd2cSJim Jagielski 				switch( nEventID )
256*b1cdbd2cSJim Jagielski 				{
257*b1cdbd2cSJim Jagielski 					case VCLEVENT_EDIT_MODIFY:
258*b1cdbd2cSJim Jagielski                         pEditModify = pWin;
259*b1cdbd2cSJim Jagielski                         aEditModifyString = ((Edit*)pWin)->GetText();
260*b1cdbd2cSJim Jagielski 						break;
261*b1cdbd2cSJim Jagielski 				}
262*b1cdbd2cSJim Jagielski 				break;
263*b1cdbd2cSJim Jagielski 			case WINDOW_MULTILISTBOX:
264*b1cdbd2cSJim Jagielski 				switch( nEventID )
265*b1cdbd2cSJim Jagielski 				{
266*b1cdbd2cSJim Jagielski                     case VCLEVENT_LISTBOX_SELECT:
267*b1cdbd2cSJim Jagielski                         Sound::Beep();
268*b1cdbd2cSJim Jagielski                 }
269*b1cdbd2cSJim Jagielski 			case WINDOW_LISTBOX:
270*b1cdbd2cSJim Jagielski 				switch( nEventID )
271*b1cdbd2cSJim Jagielski 				{
272*b1cdbd2cSJim Jagielski //                    case VCLEVENT_LISTBOX_DOUBLECLICK:
273*b1cdbd2cSJim Jagielski                     case VCLEVENT_LISTBOX_SELECT:
274*b1cdbd2cSJim Jagielski 						if ( m_bRecord )
275*b1cdbd2cSJim Jagielski 						{
276*b1cdbd2cSJim Jagielski 							StatementList::pRet->GenReturn( RET_MacroRecorder, pWin->GetUniqueOrHelpId(), (comm_USHORT)M_Select, comm_ULONG( ((ListBox*)pWin)->GetSelectEntryPos() +1 ) );
277*b1cdbd2cSJim Jagielski 							bSendData = sal_True;
278*b1cdbd2cSJim Jagielski 						}
279*b1cdbd2cSJim Jagielski 						if ( m_bLog )
280*b1cdbd2cSJim Jagielski 						{
281*b1cdbd2cSJim Jagielski                             LogVCL( GetParentID( pWin ), pWin->GetType(), pWin->GetUniqueOrHelpId(), CUniString("Select"), ((ListBox*)pWin)->GetSelectEntryPos() );
282*b1cdbd2cSJim Jagielski 						}
283*b1cdbd2cSJim Jagielski 						break;
284*b1cdbd2cSJim Jagielski 				}
285*b1cdbd2cSJim Jagielski 				break;
286*b1cdbd2cSJim Jagielski 			case WINDOW_COMBOBOX:
287*b1cdbd2cSJim Jagielski 			case WINDOW_PATTERNBOX:
288*b1cdbd2cSJim Jagielski 			case WINDOW_NUMERICBOX:
289*b1cdbd2cSJim Jagielski 			case WINDOW_METRICBOX:
290*b1cdbd2cSJim Jagielski 			case WINDOW_CURRENCYBOX:
291*b1cdbd2cSJim Jagielski 			case WINDOW_DATEBOX:
292*b1cdbd2cSJim Jagielski 			case WINDOW_TIMEBOX:
293*b1cdbd2cSJim Jagielski                 switch( nEventID )
294*b1cdbd2cSJim Jagielski 				{
295*b1cdbd2cSJim Jagielski 					case VCLEVENT_EDIT_MODIFY:
296*b1cdbd2cSJim Jagielski                         pEditModify = pWin;
297*b1cdbd2cSJim Jagielski                         aEditModifyString = ((Edit*)pWin)->GetText();
298*b1cdbd2cSJim Jagielski 						break;
299*b1cdbd2cSJim Jagielski                     case VCLEVENT_COMBOBOX_SELECT:
300*b1cdbd2cSJim Jagielski                         {
301*b1cdbd2cSJim Jagielski                             pEditModify = NULL;
302*b1cdbd2cSJim Jagielski                             aEditModifyString.Erase();
303*b1cdbd2cSJim Jagielski 
304*b1cdbd2cSJim Jagielski                             sal_uInt16 nPos = ((ComboBox*)pWin)->GetEntryPos(((ComboBox*)pWin)->GetText());
305*b1cdbd2cSJim Jagielski 							if ( m_bRecord )
306*b1cdbd2cSJim Jagielski 							{
307*b1cdbd2cSJim Jagielski 								if ( nPos == COMBOBOX_ENTRY_NOTFOUND )
308*b1cdbd2cSJim Jagielski 									Sound::Beep();
309*b1cdbd2cSJim Jagielski 								else
310*b1cdbd2cSJim Jagielski 								{
311*b1cdbd2cSJim Jagielski 									StatementList::pRet->GenReturn( RET_MacroRecorder, pWin->GetUniqueOrHelpId(), (comm_USHORT)M_Select, (comm_ULONG) nPos+1 );
312*b1cdbd2cSJim Jagielski 									bSendData = sal_True;
313*b1cdbd2cSJim Jagielski 								}
314*b1cdbd2cSJim Jagielski 							}
315*b1cdbd2cSJim Jagielski 							if ( m_bLog )
316*b1cdbd2cSJim Jagielski 							{
317*b1cdbd2cSJim Jagielski                                 LogVCL( GetParentID( pWin ), pWin->GetType(), pWin->GetUniqueOrHelpId(), CUniString("Select"), nPos );
318*b1cdbd2cSJim Jagielski 							}
319*b1cdbd2cSJim Jagielski                         }
320*b1cdbd2cSJim Jagielski 				}
321*b1cdbd2cSJim Jagielski 				break;
322*b1cdbd2cSJim Jagielski 			case WINDOW_PUSHBUTTON:
323*b1cdbd2cSJim Jagielski 			case WINDOW_OKBUTTON:
324*b1cdbd2cSJim Jagielski 			case WINDOW_CANCELBUTTON:
325*b1cdbd2cSJim Jagielski 			case WINDOW_IMAGEBUTTON:
326*b1cdbd2cSJim Jagielski             case WINDOW_MOREBUTTON:
327*b1cdbd2cSJim Jagielski             case WINDOW_HELPBUTTON:
328*b1cdbd2cSJim Jagielski 				switch( nEventID )
329*b1cdbd2cSJim Jagielski 				{
330*b1cdbd2cSJim Jagielski 					case VCLEVENT_BUTTON_CLICK:
331*b1cdbd2cSJim Jagielski                         Window* pParent = pWin->GetParent();
332*b1cdbd2cSJim Jagielski                         sal_Bool bDone = sal_False;
333*b1cdbd2cSJim Jagielski                         if ( pParent->IsDialog() && pWin->GetUniqueOrHelpId().isEmpty() )
334*b1cdbd2cSJim Jagielski                         {
335*b1cdbd2cSJim Jagielski                             switch ( pParent->GetType() )
336*b1cdbd2cSJim Jagielski                             {
337*b1cdbd2cSJim Jagielski                                 case WINDOW_MESSBOX:
338*b1cdbd2cSJim Jagielski                                 case WINDOW_INFOBOX:
339*b1cdbd2cSJim Jagielski                                 case WINDOW_WARNINGBOX:
340*b1cdbd2cSJim Jagielski                                 case WINDOW_ERRORBOX:
341*b1cdbd2cSJim Jagielski                                 case WINDOW_QUERYBOX:
342*b1cdbd2cSJim Jagielski                                 case WINDOW_BUTTONDIALOG:
343*b1cdbd2cSJim Jagielski                                     {
344*b1cdbd2cSJim Jagielski                                         comm_USHORT nMethod;
345*b1cdbd2cSJim Jagielski                                         String aMethod;
346*b1cdbd2cSJim Jagielski                                         ButtonDialog* pBD = (ButtonDialog*)pParent;
347*b1cdbd2cSJim Jagielski 
348*b1cdbd2cSJim Jagielski                                         // we have to find the current Button ID ourselves since it is not generated at this point :-(
349*b1cdbd2cSJim Jagielski                                         sal_uInt16 nCurrentButtonId = 0xffff;    // Some wild value to wak up people
350*b1cdbd2cSJim Jagielski 				                        sal_uInt16 i;
351*b1cdbd2cSJim Jagielski 				                        for ( i = 0; i < pBD->GetButtonCount() ; i++ )
352*b1cdbd2cSJim Jagielski 				                        {
353*b1cdbd2cSJim Jagielski 					                        if ( pBD->GetPushButton( pBD->GetButtonId(i) ) == pWin )
354*b1cdbd2cSJim Jagielski                                             {
355*b1cdbd2cSJim Jagielski                                                 nCurrentButtonId = pBD->GetButtonId(i);
356*b1cdbd2cSJim Jagielski                                                 break;
357*b1cdbd2cSJim Jagielski                                             }
358*b1cdbd2cSJim Jagielski                                         }
359*b1cdbd2cSJim Jagielski 
360*b1cdbd2cSJim Jagielski                                         switch ( nCurrentButtonId )
361*b1cdbd2cSJim Jagielski                                         {
362*b1cdbd2cSJim Jagielski                                             case BUTTONID_OK: nMethod = M_OK; aMethod = CUniString("OK"); break;
363*b1cdbd2cSJim Jagielski                                             case BUTTONID_CANCEL: nMethod = M_Cancel; aMethod = CUniString("Cancel"); break;
364*b1cdbd2cSJim Jagielski                                             case BUTTONID_YES: nMethod = M_Yes; aMethod = CUniString("Yes"); break;
365*b1cdbd2cSJim Jagielski                                             case BUTTONID_NO: nMethod = M_No; aMethod = CUniString("No"); break;
366*b1cdbd2cSJim Jagielski                                             case BUTTONID_RETRY: nMethod = M_Repeat; aMethod = CUniString("Repeat"); break;
367*b1cdbd2cSJim Jagielski                                             case BUTTONID_HELP: nMethod = M_Help; aMethod = CUniString("Help"); break;
368*b1cdbd2cSJim Jagielski                                             default: nMethod = M_Click; aMethod = CUniString("Click");
369*b1cdbd2cSJim Jagielski                                         }
370*b1cdbd2cSJim Jagielski 										if ( m_bRecord )
371*b1cdbd2cSJim Jagielski 										{
372*b1cdbd2cSJim Jagielski 											if ( nMethod != M_Click )
373*b1cdbd2cSJim Jagielski 												StatementList::pRet->GenReturn( RET_MacroRecorder, UID_ACTIVE, nMethod );
374*b1cdbd2cSJim Jagielski 											else
375*b1cdbd2cSJim Jagielski 												StatementList::pRet->GenReturn( RET_MacroRecorder, UID_ACTIVE, nMethod, (comm_ULONG)nCurrentButtonId );
376*b1cdbd2cSJim Jagielski 											bSendData = sal_True;
377*b1cdbd2cSJim Jagielski 										}
378*b1cdbd2cSJim Jagielski 										if ( m_bLog )
379*b1cdbd2cSJim Jagielski 										{
380*b1cdbd2cSJim Jagielski 											if ( nMethod != M_Click )
381*b1cdbd2cSJim Jagielski                                                 LogVCL( rtl::OString(), pWin->GetType(), pWin->GetUniqueOrHelpId(), aMethod );
382*b1cdbd2cSJim Jagielski                                             else
383*b1cdbd2cSJim Jagielski                                                 LogVCL( rtl::OString(), pWin->GetType(), pWin->GetUniqueOrHelpId(), aMethod, nCurrentButtonId );
384*b1cdbd2cSJim Jagielski                                             bDone = sal_True;
385*b1cdbd2cSJim Jagielski 										}
386*b1cdbd2cSJim Jagielski                                     }
387*b1cdbd2cSJim Jagielski                                     break;
388*b1cdbd2cSJim Jagielski                                 default:
389*b1cdbd2cSJim Jagielski                                     {
390*b1cdbd2cSJim Jagielski                                         comm_USHORT nMethod;
391*b1cdbd2cSJim Jagielski                                         String aMethod;
392*b1cdbd2cSJim Jagielski                                         switch ( pWin->GetType() )
393*b1cdbd2cSJim Jagielski                                         {
394*b1cdbd2cSJim Jagielski 			                                case WINDOW_OKBUTTON: nMethod = M_OK; aMethod = CUniString("OK"); break;
395*b1cdbd2cSJim Jagielski 			                                case WINDOW_CANCELBUTTON: nMethod = M_Cancel; aMethod = CUniString("Cancel"); break;
396*b1cdbd2cSJim Jagielski                                             case WINDOW_HELPBUTTON: nMethod = M_Help; aMethod = CUniString("Help"); break;
397*b1cdbd2cSJim Jagielski                                             default: nMethod = M_Default;aMethod = CUniString("Unknown Button");
398*b1cdbd2cSJim Jagielski                                                 DBG_ERROR( "Unknown Button" );
399*b1cdbd2cSJim Jagielski                                         }
400*b1cdbd2cSJim Jagielski 										if ( m_bRecord )
401*b1cdbd2cSJim Jagielski 										{
402*b1cdbd2cSJim Jagielski 											StatementList::pRet->GenReturn( RET_MacroRecorder, pParent->GetUniqueOrHelpId(), nMethod );
403*b1cdbd2cSJim Jagielski 											bSendData = sal_True;
404*b1cdbd2cSJim Jagielski 										}
405*b1cdbd2cSJim Jagielski 										if ( m_bLog )
406*b1cdbd2cSJim Jagielski 										{
407*b1cdbd2cSJim Jagielski                                             LogVCL( GetParentID( pWin ), pWin->GetType(), pWin->GetUniqueOrHelpId(), aMethod );
408*b1cdbd2cSJim Jagielski                                             bDone = sal_True;
409*b1cdbd2cSJim Jagielski 										}
410*b1cdbd2cSJim Jagielski                                     }
411*b1cdbd2cSJim Jagielski                                     break;
412*b1cdbd2cSJim Jagielski                             }
413*b1cdbd2cSJim Jagielski                         }
414*b1cdbd2cSJim Jagielski 						if ( m_bRecord )
415*b1cdbd2cSJim Jagielski 						{
416*b1cdbd2cSJim Jagielski 							if ( !bSendData && !pWin->GetUniqueOrHelpId().isEmpty() )
417*b1cdbd2cSJim Jagielski 							{
418*b1cdbd2cSJim Jagielski 								StatementList::pRet->GenReturn( RET_MacroRecorder, pWin->GetUniqueOrHelpId(), (comm_USHORT)M_Click );
419*b1cdbd2cSJim Jagielski 								bSendData = sal_True;
420*b1cdbd2cSJim Jagielski 							}
421*b1cdbd2cSJim Jagielski 						}
422*b1cdbd2cSJim Jagielski                         if ( m_bLog )
423*b1cdbd2cSJim Jagielski                         {
424*b1cdbd2cSJim Jagielski                             if ( !bDone )
425*b1cdbd2cSJim Jagielski                                 LogVCL( GetParentID( pWin ), pWin->GetType(), pWin->GetUniqueOrHelpId(), CUniString("Click") );
426*b1cdbd2cSJim Jagielski                         }
427*b1cdbd2cSJim Jagielski 				}
428*b1cdbd2cSJim Jagielski 				break;
429*b1cdbd2cSJim Jagielski /*			case C_MoreButton:
430*b1cdbd2cSJim Jagielski 				switch( nEventID )
431*b1cdbd2cSJim Jagielski 				{
432*b1cdbd2cSJim Jagielski 					case M_IsOpen :
433*b1cdbd2cSJim Jagielski 						pRet->GenReturn ( RET_Value, nUId, ((MoreButton*)pControl)->GetState());
434*b1cdbd2cSJim Jagielski 						break;
435*b1cdbd2cSJim Jagielski 					case M_Click :
436*b1cdbd2cSJim Jagielski 						((MoreButton*)pControl)->Click();
437*b1cdbd2cSJim Jagielski 						break;
438*b1cdbd2cSJim Jagielski 					case M_Open :
439*b1cdbd2cSJim Jagielski 						((MoreButton*)pControl)->SetState(sal_True);
440*b1cdbd2cSJim Jagielski 						break;
441*b1cdbd2cSJim Jagielski 					case M_Close :
442*b1cdbd2cSJim Jagielski 						((MoreButton*)pControl)->SetState(sal_False);
443*b1cdbd2cSJim Jagielski 						break;
444*b1cdbd2cSJim Jagielski 					default:
445*b1cdbd2cSJim Jagielski 						ReportError( nUId, GEN_RES_STR2c2( S_UNKNOWN_METHOD, MethodString(nMethodId), "MoreButton" ) );
446*b1cdbd2cSJim Jagielski 						break;
447*b1cdbd2cSJim Jagielski 				}
448*b1cdbd2cSJim Jagielski 				break;*/
449*b1cdbd2cSJim Jagielski 			case WINDOW_SPINFIELD:
450*b1cdbd2cSJim Jagielski 			case WINDOW_PATTERNFIELD:
451*b1cdbd2cSJim Jagielski 			case WINDOW_NUMERICFIELD:
452*b1cdbd2cSJim Jagielski 			case WINDOW_METRICFIELD:
453*b1cdbd2cSJim Jagielski 			case WINDOW_CURRENCYFIELD:
454*b1cdbd2cSJim Jagielski 			case WINDOW_DATEFIELD:
455*b1cdbd2cSJim Jagielski 			case WINDOW_TIMEFIELD:
456*b1cdbd2cSJim Jagielski 				switch( nEventID )
457*b1cdbd2cSJim Jagielski 				{
458*b1cdbd2cSJim Jagielski 					case VCLEVENT_SPINFIELD_UP:
459*b1cdbd2cSJim Jagielski 					case VCLEVENT_SPINFIELD_DOWN:
460*b1cdbd2cSJim Jagielski 					case VCLEVENT_SPINFIELD_FIRST:
461*b1cdbd2cSJim Jagielski 					case VCLEVENT_SPINFIELD_LAST:
462*b1cdbd2cSJim Jagielski                         {
463*b1cdbd2cSJim Jagielski                             pEditModify = NULL;
464*b1cdbd2cSJim Jagielski                             aEditModifyString.Erase();
465*b1cdbd2cSJim Jagielski 
466*b1cdbd2cSJim Jagielski                             comm_USHORT nMethod;
467*b1cdbd2cSJim Jagielski                             String aMethod;
468*b1cdbd2cSJim Jagielski                             switch ( nEventID )
469*b1cdbd2cSJim Jagielski                             {
470*b1cdbd2cSJim Jagielski                                 case VCLEVENT_SPINFIELD_UP: nMethod = M_More; aMethod = CUniString("More"); break;
471*b1cdbd2cSJim Jagielski                                 case VCLEVENT_SPINFIELD_DOWN: nMethod = M_Less; aMethod = CUniString("Less"); break;
472*b1cdbd2cSJim Jagielski                                 case VCLEVENT_SPINFIELD_FIRST: nMethod = M_ToMin; aMethod = CUniString("ToMin"); break;
473*b1cdbd2cSJim Jagielski                                 case VCLEVENT_SPINFIELD_LAST: nMethod = M_ToMax; aMethod = CUniString("ToMax"); break;
474*b1cdbd2cSJim Jagielski                                 default: nMethod = M_ToMin; aMethod = CUniString("Unknown");
475*b1cdbd2cSJim Jagielski                                     DBG_ERROR( "Unknown EventID in Spinfield" );
476*b1cdbd2cSJim Jagielski                             }
477*b1cdbd2cSJim Jagielski 							if ( m_bRecord )
478*b1cdbd2cSJim Jagielski 							{
479*b1cdbd2cSJim Jagielski 								StatementList::pRet->GenReturn( RET_MacroRecorder, pWin->GetUniqueOrHelpId(), nMethod );
480*b1cdbd2cSJim Jagielski 								bSendData = sal_True;
481*b1cdbd2cSJim Jagielski 							}
482*b1cdbd2cSJim Jagielski                             if ( m_bLog )
483*b1cdbd2cSJim Jagielski                             {
484*b1cdbd2cSJim Jagielski                                 LogVCL( GetParentID( pWin ), pWin->GetType(), pWin->GetUniqueOrHelpId(), aMethod );
485*b1cdbd2cSJim Jagielski                             }
486*b1cdbd2cSJim Jagielski                         }
487*b1cdbd2cSJim Jagielski                         break;
488*b1cdbd2cSJim Jagielski 					case VCLEVENT_EDIT_MODIFY:
489*b1cdbd2cSJim Jagielski                         pEditModify = pWin;
490*b1cdbd2cSJim Jagielski                         aEditModifyString = ((SpinField*)pWin)->GetText();
491*b1cdbd2cSJim Jagielski                         break;
492*b1cdbd2cSJim Jagielski 				}
493*b1cdbd2cSJim Jagielski 				break;
494*b1cdbd2cSJim Jagielski 
495*b1cdbd2cSJim Jagielski 			case WINDOW_MENUBUTTON:
496*b1cdbd2cSJim Jagielski 					switch( nEventID )
497*b1cdbd2cSJim Jagielski 					{
498*b1cdbd2cSJim Jagielski 					case VCLEVENT_BUTTON_CLICK:
499*b1cdbd2cSJim Jagielski 						if ( m_bRecord )
500*b1cdbd2cSJim Jagielski 						{
501*b1cdbd2cSJim Jagielski 							StatementList::pRet->GenReturn( RET_MacroRecorder, pWin->GetUniqueOrHelpId(), (comm_USHORT)M_Click );
502*b1cdbd2cSJim Jagielski 							bSendData = sal_True;
503*b1cdbd2cSJim Jagielski 						}
504*b1cdbd2cSJim Jagielski                         if ( m_bLog )
505*b1cdbd2cSJim Jagielski                         {
506*b1cdbd2cSJim Jagielski                             LogVCL( GetParentID( pWin ), pWin->GetType(), pWin->GetUniqueOrHelpId(), CUniString("Click") );
507*b1cdbd2cSJim Jagielski                         }
508*b1cdbd2cSJim Jagielski 						break;
509*b1cdbd2cSJim Jagielski /*      Keyevent or Timeout
510*b1cdbd2cSJim Jagielski 					case M_Open :
511*b1cdbd2cSJim Jagielski 						{
512*b1cdbd2cSJim Jagielski 							MouseEvent aMEvnt;
513*b1cdbd2cSJim Jagielski 							Point aPt( pControl->GetSizePixel().Width() / 2, pControl->GetSizePixel().Height() / 2 );
514*b1cdbd2cSJim Jagielski 							aMEvnt = MouseEvent( aPt,1,MOUSE_SIMPLECLICK,MOUSE_LEFT );
515*b1cdbd2cSJim Jagielski 							ImplMouseButtonDown( pControl, aMEvnt );
516*b1cdbd2cSJim Jagielski 
517*b1cdbd2cSJim Jagielski 							sal_uLong nStart = Time::GetSystemTicks();
518*b1cdbd2cSJim Jagielski 							sal_uLong nDelay = pControl->GetSettings().GetMouseSettings().GetActionDelay();
519*b1cdbd2cSJim Jagielski 							while ( ( Time::GetSystemTicks() - nStart ) < nDelay + 100 )
520*b1cdbd2cSJim Jagielski 								SafeReschedule();
521*b1cdbd2cSJim Jagielski 
522*b1cdbd2cSJim Jagielski 							ImplMouseButtonUp  ( pControl, aMEvnt );
523*b1cdbd2cSJim Jagielski 						}
524*b1cdbd2cSJim Jagielski 						break;*/
525*b1cdbd2cSJim Jagielski                     }
526*b1cdbd2cSJim Jagielski 				break;
527*b1cdbd2cSJim Jagielski 			case WINDOW_TOOLBOX:
528*b1cdbd2cSJim Jagielski                 {
529*b1cdbd2cSJim Jagielski 				    ToolBox *pTB = ((ToolBox*)pWin);
530*b1cdbd2cSJim Jagielski 				    switch( nEventID )
531*b1cdbd2cSJim Jagielski 				    {
532*b1cdbd2cSJim Jagielski                         case VCLEVENT_TOOLBOX_SELECT:
533*b1cdbd2cSJim Jagielski                             {   // a Button has been clicked
534*b1cdbd2cSJim Jagielski                                 // so this cannot be a tearoff or OpenMenu anymore
535*b1cdbd2cSJim Jagielski                                 pActionParent = NULL;
536*b1cdbd2cSJim Jagielski                                 // compare to 1 for floating ToolBoxes
537*b1cdbd2cSJim Jagielski 								if ( m_bRecord )
538*b1cdbd2cSJim Jagielski 								{
539*b1cdbd2cSJim Jagielski 									if ( pWin->GetUniqueOrHelpId().isEmpty() /* || pWin->GetUniqueOrHelpId().Matches( 1 ) */ )
540*b1cdbd2cSJim Jagielski 										// generate direct Button access
541*b1cdbd2cSJim Jagielski 										StatementList::pRet->GenReturn( RET_MacroRecorder, Str2Id( pTB->GetItemCommand( pTB->GetCurItemId() ) ), (comm_USHORT)(M_Click) );
542*b1cdbd2cSJim Jagielski 									else
543*b1cdbd2cSJim Jagielski 										// access via Toolbox
544*b1cdbd2cSJim Jagielski 										StatementList::pRet->GenReturn( RET_MacroRecorder, pTB->GetUniqueOrHelpId(), (comm_USHORT)(M_Click|M_RET_NUM_CONTROL), Id2Str( pTB->GetHelpId( pTB->GetCurItemId() ) ) );
545*b1cdbd2cSJim Jagielski 									bSendData = sal_True;
546*b1cdbd2cSJim Jagielski 								}
547*b1cdbd2cSJim Jagielski /* not needed                               if ( m_bLog )
548*b1cdbd2cSJim Jagielski                                 {
549*b1cdbd2cSJim Jagielski                                 }*/
550*b1cdbd2cSJim Jagielski                             }
551*b1cdbd2cSJim Jagielski 						    break;
552*b1cdbd2cSJim Jagielski                         case VCLEVENT_TOOLBOX_CLICK:  /// ATTENTION this is called during initialisation of toolbox. whoever 'invented' this
553*b1cdbd2cSJim Jagielski                             pActionParent = pTB;
554*b1cdbd2cSJim Jagielski                             break;
555*b1cdbd2cSJim Jagielski //                        case VCLEVENT_WINDOW_SHOW:        // not usable ATM. see above
556*b1cdbd2cSJim Jagielski //                            if ( pActionParent )
557*b1cdbd2cSJim Jagielski //                            {   // a new toolbox opens up, might be a tearoff
558*b1cdbd2cSJim Jagielski //                                if ( pActionParent != pWin )
559*b1cdbd2cSJim Jagielski //                                {   // it IS a tearoff not an undock
560*b1cdbd2cSJim Jagielski //                                    // compare to 1 for floating ToolBoxes
561*b1cdbd2cSJim Jagielski //									if ( m_bRecord )
562*b1cdbd2cSJim Jagielski //									{
563*b1cdbd2cSJim Jagielski //										if ( !pWin->GetSmartUniqueOrHelpId().HasAny() || pWin->GetSmartUniqueOrHelpId().Matches( 1 ) )
564*b1cdbd2cSJim Jagielski //											// generate direct Button access
565*b1cdbd2cSJim Jagielski //											StatementList::pRet->GenReturn( RET_MacroRecorder, rtl::OString( pActionParent->GetHelpId( pActionParent->GetCurItemId() ) ), (comm_USHORT)(M_TearOff) );
566*b1cdbd2cSJim Jagielski //										else
567*b1cdbd2cSJim Jagielski //											// access via Toolbox
568*b1cdbd2cSJim Jagielski //											StatementList::pRet->GenReturn( RET_MacroRecorder, pActionParent->GetSmartUniqueOrHelpId(), (comm_USHORT)(M_TearOff|M_RET_NUM_CONTROL), static_cast<comm_ULONG>(pActionParent->GetHelpId( pActionParent->GetCurItemId() )) ); // GetHelpId() sal_uLong != comm_ULONG on 64bit
569*b1cdbd2cSJim Jagielski //										bSendData = sal_True;
570*b1cdbd2cSJim Jagielski //									}
571*b1cdbd2cSJim Jagielski //                                    if ( m_bLog )
572*b1cdbd2cSJim Jagielski //                                    {
573*b1cdbd2cSJim Jagielski //                                        LogVCL( pActionParent->GetSmartUniqueOrHelpId(), pWin->GetType(), pActionParent->GetHelpId( pActionParent->GetCurItemId() ), CUniString("TearOff") );
574*b1cdbd2cSJim Jagielski //                                    }
575*b1cdbd2cSJim Jagielski //                                }
576*b1cdbd2cSJim Jagielski //                                pActionParent = NULL;
577*b1cdbd2cSJim Jagielski //                            }
578*b1cdbd2cSJim Jagielski //                            break;
579*b1cdbd2cSJim Jagielski                         case VCLEVENT_TOOLBOX_DEACTIVATE:
580*b1cdbd2cSJim Jagielski                             pActionParent = NULL;
581*b1cdbd2cSJim Jagielski                             break;
582*b1cdbd2cSJim Jagielski                     }
583*b1cdbd2cSJim Jagielski                 }
584*b1cdbd2cSJim Jagielski                 break;
585*b1cdbd2cSJim Jagielski /*					ToolBox *pTB = ((ToolBox*)pControl);
586*b1cdbd2cSJim Jagielski 					if ( pTB->GetUniqueOrHelpId() != nUId )	// Also Button auf der ToolBox gefunden
587*b1cdbd2cSJim Jagielski 					{
588*b1cdbd2cSJim Jagielski 						if ( nParams == PARAM_NONE )
589*b1cdbd2cSJim Jagielski 						{			// Wir f�lschen einen Parameter
590*b1cdbd2cSJim Jagielski 							nParams = PARAM_USHORT_1;
591*b1cdbd2cSJim Jagielski 							nNr1 = nUId;
592*b1cdbd2cSJim Jagielski 						}
593*b1cdbd2cSJim Jagielski 						else
594*b1cdbd2cSJim Jagielski 							ReportError( nUId, GEN_RES_STR1( S_INTERNAL_ERROR, MethodString( nMethodId ) ) );
595*b1cdbd2cSJim Jagielski 					}
596*b1cdbd2cSJim Jagielski 
597*b1cdbd2cSJim Jagielski #define FIND_HELP\
598*b1cdbd2cSJim Jagielski {\
599*b1cdbd2cSJim Jagielski 	if( nParams == PARAM_USHORT_1 )\
600*b1cdbd2cSJim Jagielski 		nLNr1 = nNr1;\
601*b1cdbd2cSJim Jagielski 	for ( nNr1 = 0; nNr1 < pTB->GetItemCount() && nLNr1 != pTB->GetHelpId(pTB->GetItemId(nNr1)) ; nNr1++ ) {}\
602*b1cdbd2cSJim Jagielski 	bBool1 = nLNr1 == pTB->GetHelpId(pTB->GetItemId(nNr1));\
603*b1cdbd2cSJim Jagielski 	if ( !bBool1 )\
604*b1cdbd2cSJim Jagielski 		ReportError( nUId, GEN_RES_STR1( S_HELPID_ON_TOOLBOX_NOT_FOUND, MethodString( nMethodId ) ) );\
605*b1cdbd2cSJim Jagielski 	else\
606*b1cdbd2cSJim Jagielski 	{\
607*b1cdbd2cSJim Jagielski 		if ( !pTB->IsItemEnabled( pTB->GetItemId(nNr1) ) && nMethodId != _M_IsEnabled )\
608*b1cdbd2cSJim Jagielski 		{\
609*b1cdbd2cSJim Jagielski 			ReportError( nUId, GEN_RES_STR1( S_BUTTON_DISABLED_ON_TOOLBOX, MethodString( nMethodId ) ) );\
610*b1cdbd2cSJim Jagielski 			bBool1 = sal_False;\
611*b1cdbd2cSJim Jagielski 		}\
612*b1cdbd2cSJim Jagielski 		else if ( !pTB->IsItemVisible( pTB->GetItemId(nNr1) ) )\
613*b1cdbd2cSJim Jagielski 		{\
614*b1cdbd2cSJim Jagielski 			ReportError( nUId, GEN_RES_STR1( S_BUTTON_HIDDEN_ON_TOOLBOX, MethodString( nMethodId ) ) );\
615*b1cdbd2cSJim Jagielski 			bBool1 = sal_False;\
616*b1cdbd2cSJim Jagielski 		}\
617*b1cdbd2cSJim Jagielski 		else\
618*b1cdbd2cSJim Jagielski 		{\
619*b1cdbd2cSJim Jagielski 			if ( pTB->GetItemRect(pTB->GetItemId(nNr1)).IsEmpty() )\
620*b1cdbd2cSJim Jagielski 			{\
621*b1cdbd2cSJim Jagielski 				sal_uInt16 nLine = pTB->GetCurLine();\
622*b1cdbd2cSJim Jagielski 				do\
623*b1cdbd2cSJim Jagielski 				{\
624*b1cdbd2cSJim Jagielski 					pTB->ShowLine( sal_False );\
625*b1cdbd2cSJim Jagielski 					for ( int i = 1 ; i < 30 ; i++ )\
626*b1cdbd2cSJim Jagielski 						SafeReschedule();\
627*b1cdbd2cSJim Jagielski 				}\
628*b1cdbd2cSJim Jagielski 				while ( pTB->GetCurLine() != nLine && pTB->GetItemRect(pTB->GetItemId(nNr1)).IsEmpty() );\
629*b1cdbd2cSJim Jagielski 				pTB->Invalidate( pTB->GetScrollRect() );\
630*b1cdbd2cSJim Jagielski 			}\
631*b1cdbd2cSJim Jagielski 			if ( pTB->GetItemRect(pTB->GetItemId(nNr1)).IsEmpty() )\
632*b1cdbd2cSJim Jagielski 			{\
633*b1cdbd2cSJim Jagielski 				ReportError( nUId, GEN_RES_STR1( S_CANNOT_MAKE_BUTTON_VISIBLE_IN_TOOLBOX, MethodString( nMethodId ) ) );\
634*b1cdbd2cSJim Jagielski 				bBool1 = sal_False;\
635*b1cdbd2cSJim Jagielski 			}\
636*b1cdbd2cSJim Jagielski 		}\
637*b1cdbd2cSJim Jagielski 	}\
638*b1cdbd2cSJim Jagielski }\
639*b1cdbd2cSJim Jagielski 
640*b1cdbd2cSJim Jagielski 					switch( nEventID )
641*b1cdbd2cSJim Jagielski 					{
642*b1cdbd2cSJim Jagielski 						case M_SetNextToolBox :
643*b1cdbd2cSJim Jagielski 							if ( (nParams & PARAM_STR_1) )
644*b1cdbd2cSJim Jagielski 								pTB->SetNextToolBox( aString1 );
645*b1cdbd2cSJim Jagielski 							else
646*b1cdbd2cSJim Jagielski 								pTB->SetNextToolBox( pTB->GetNextToolBox() );
647*b1cdbd2cSJim Jagielski 							pTB->NextToolBox();
648*b1cdbd2cSJim Jagielski 							break;
649*b1cdbd2cSJim Jagielski 						case M_GetNextToolBox :
650*b1cdbd2cSJim Jagielski 							pRet->GenReturn ( RET_Value, nUId, (String)pTB->GetNextToolBox());
651*b1cdbd2cSJim Jagielski 							break;
652*b1cdbd2cSJim Jagielski 						default:
653*b1cdbd2cSJim Jagielski 							ReportError( nUId, GEN_RES_STR2c2( S_UNKNOWN_METHOD, MethodString(nMethodId), "ToolBox" ) );
654*b1cdbd2cSJim Jagielski 							break;
655*b1cdbd2cSJim Jagielski 					}
656*b1cdbd2cSJim Jagielski 				}
657*b1cdbd2cSJim Jagielski 				break;
658*b1cdbd2cSJim Jagielski */
659*b1cdbd2cSJim Jagielski 			case WINDOW_CONTROL:
660*b1cdbd2cSJim Jagielski 			case WINDOW_WINDOW:
661*b1cdbd2cSJim Jagielski 				switch( nEventID )
662*b1cdbd2cSJim Jagielski                 {
663*b1cdbd2cSJim Jagielski                     case VCLEVENT_WINDOW_COMMAND:
664*b1cdbd2cSJim Jagielski                         break;
665*b1cdbd2cSJim Jagielski                     case VCLEVENT_WINDOW_KEYINPUT:
666*b1cdbd2cSJim Jagielski                         {
667*b1cdbd2cSJim Jagielski                             const KeyEvent *pKeyEvent = ((KeyEvent*)pWinEvent->GetData());
668*b1cdbd2cSJim Jagielski                             const KeyCode aKeyCode = pKeyEvent->GetKeyCode();
669*b1cdbd2cSJim Jagielski                             if ( pKeyEvent )
670*b1cdbd2cSJim Jagielski                             {
671*b1cdbd2cSJim Jagielski                                 pKeyWin = pWin;
672*b1cdbd2cSJim Jagielski                                 Window *pIdWin = GetParentWithID( pWin );
673*b1cdbd2cSJim Jagielski 								if ( pIdWin != pWin )
674*b1cdbd2cSJim Jagielski                                    bKeyFollowFocus = sal_True;
675*b1cdbd2cSJim Jagielski                                 aKeyUniqueID = pIdWin->GetUniqueOrHelpId();
676*b1cdbd2cSJim Jagielski 		                        if ( m_bLog )
677*b1cdbd2cSJim Jagielski 		                        {
678*b1cdbd2cSJim Jagielski //   HACK Too many KeyEvents generated                                 if ( aKeyString.Len() == 0 )
679*b1cdbd2cSJim Jagielski //   HACK Too many KeyEvents generated                                     LogVCL( rtl::OString(), 0, aKeyUniqueID, CUniString("TypeKeysStart") );
680*b1cdbd2cSJim Jagielski 		                        }
681*b1cdbd2cSJim Jagielski 						        if ( ( !aKeyCode.IsMod1() && !aKeyCode.IsMod2() ) &&
682*b1cdbd2cSJim Jagielski 							          (( aKeyCode.GetGroup() == KEYGROUP_NUM)   ||
683*b1cdbd2cSJim Jagielski 							           ( aKeyCode.GetGroup() == KEYGROUP_ALPHA) ||
684*b1cdbd2cSJim Jagielski 							           ( aKeyCode.GetCode() == KEY_SPACE) ||
685*b1cdbd2cSJim Jagielski 							           ( aKeyCode.GetCode() == KEY_ADD) ||
686*b1cdbd2cSJim Jagielski 							           ( aKeyCode.GetCode() == KEY_SUBTRACT) ||
687*b1cdbd2cSJim Jagielski 							           ( aKeyCode.GetCode() == KEY_MULTIPLY) ||
688*b1cdbd2cSJim Jagielski 							           ( aKeyCode.GetCode() == KEY_DIVIDE) ||
689*b1cdbd2cSJim Jagielski 							           ( aKeyCode.GetCode() == KEY_POINT) ||
690*b1cdbd2cSJim Jagielski 							           ( aKeyCode.GetCode() == KEY_COMMA) ||
691*b1cdbd2cSJim Jagielski 							           ( aKeyCode.GetCode() == KEY_EQUAL) ||
692*b1cdbd2cSJim Jagielski 							           ( aKeyCode.GetCode() == 0) ) )
693*b1cdbd2cSJim Jagielski                                 {
694*b1cdbd2cSJim Jagielski                                     DBG_ASSERT( pKeyEvent->GetCharCode(), "no charcode found" );
695*b1cdbd2cSJim Jagielski                                     aKeyString += pKeyEvent->GetCharCode();
696*b1cdbd2cSJim Jagielski                                 }
697*b1cdbd2cSJim Jagielski                                 else
698*b1cdbd2cSJim Jagielski                                 {   // not a regular key, transfer KeyCode
699*b1cdbd2cSJim Jagielski                                     aKeyString += sal_Unicode(1);   // mask it
700*b1cdbd2cSJim Jagielski                                     // extra for '>' which is coded as <SHIFT GREATER>
701*b1cdbd2cSJim Jagielski 							        if ( pKeyEvent->GetCharCode() == '>' )
702*b1cdbd2cSJim Jagielski                                         aKeyString += sal_Unicode( KEY_GREATER | (aKeyCode.GetAllModifier() & ~KEY_SHIFT) );
703*b1cdbd2cSJim Jagielski                                     else
704*b1cdbd2cSJim Jagielski                                         aKeyString += sal_Unicode( aKeyCode.GetCode() | aKeyCode.GetAllModifier() );
705*b1cdbd2cSJim Jagielski                                 }
706*b1cdbd2cSJim Jagielski                             }
707*b1cdbd2cSJim Jagielski                         }
708*b1cdbd2cSJim Jagielski                         break;
709*b1cdbd2cSJim Jagielski 
710*b1cdbd2cSJim Jagielski                     case VCLEVENT_WINDOW_MOUSEMOVE:
711*b1cdbd2cSJim Jagielski                     case VCLEVENT_WINDOW_MOUSEBUTTONDOWN:
712*b1cdbd2cSJim Jagielski                     case VCLEVENT_WINDOW_MOUSEBUTTONUP:
713*b1cdbd2cSJim Jagielski                         {
714*b1cdbd2cSJim Jagielski                         }
715*b1cdbd2cSJim Jagielski                         break;
716*b1cdbd2cSJim Jagielski 
717*b1cdbd2cSJim Jagielski 
718*b1cdbd2cSJim Jagielski                 }
719*b1cdbd2cSJim Jagielski                 break;
720*b1cdbd2cSJim Jagielski   		    case WINDOW_DOCKINGWINDOW:
721*b1cdbd2cSJim Jagielski //                switch( nEventID )
722*b1cdbd2cSJim Jagielski 				{
723*b1cdbd2cSJim Jagielski //					case 1 .. 0xffff:
724*b1cdbd2cSJim Jagielski     DBG_TRACE3( "TT_VCLMessage %u %u  %X",nEventID, pWin->GetType(), pWin );
725*b1cdbd2cSJim Jagielski //						sal_Bool bx = ((DockingWindow*)pWin)->IsFloatingMode();
726*b1cdbd2cSJim Jagielski //						break;
727*b1cdbd2cSJim Jagielski /*					case M_Dock :
728*b1cdbd2cSJim Jagielski 						if ( ((DockingWindow*)pControl)->IsFloatingMode() )
729*b1cdbd2cSJim Jagielski 							((DockingWindow*)pControl)->SetFloatingMode(sal_False);
730*b1cdbd2cSJim Jagielski 						else
731*b1cdbd2cSJim Jagielski 							ReportError( nUId, GEN_RES_STR1( S_ALLOWED_ONLY_IN_FLOATING_MODE, MethodString( nMethodId ) ) );
732*b1cdbd2cSJim Jagielski 						break;
733*b1cdbd2cSJim Jagielski 					case M_Undock :
734*b1cdbd2cSJim Jagielski 						if ( !((DockingWindow*)pControl)->IsFloatingMode() )
735*b1cdbd2cSJim Jagielski 							((DockingWindow*)pControl)->SetFloatingMode(sal_True);
736*b1cdbd2cSJim Jagielski 						else
737*b1cdbd2cSJim Jagielski 							ReportError( nUId, GEN_RES_STR1( S_ALLOWED_ONLY_IN_FLOATING_MODE, MethodString( nMethodId ) ) );
738*b1cdbd2cSJim Jagielski 						break;
739*b1cdbd2cSJim Jagielski 					case M_IsDocked :
740*b1cdbd2cSJim Jagielski 						pRet->GenReturn ( RET_Value, nUId, (comm_BOOL) !((DockingWindow*)pControl)->IsFloatingMode());
741*b1cdbd2cSJim Jagielski 						break;
742*b1cdbd2cSJim Jagielski 					case M_Close:
743*b1cdbd2cSJim Jagielski 							//nWindowWaitUId = nUId;
744*b1cdbd2cSJim Jagielski 						DBG_ASSERT( nUId == pControl->GetUniqueOrHelpId(), "nUID != UniqueOrHelpId");
745*b1cdbd2cSJim Jagielski 						SET_WINP_CLOSING(pControl);
746*b1cdbd2cSJim Jagielski 						((DockingWindow*)pControl)->Close();
747*b1cdbd2cSJim Jagielski 						break;
748*b1cdbd2cSJim Jagielski 					case M_Size:
749*b1cdbd2cSJim Jagielski 					case M_Move:
750*b1cdbd2cSJim Jagielski 					case M_IsMax :
751*b1cdbd2cSJim Jagielski 					case M_Minimize :
752*b1cdbd2cSJim Jagielski 					case M_Maximize :
753*b1cdbd2cSJim Jagielski 						if ( ((DockingWindow*)pControl)->IsFloatingMode() )
754*b1cdbd2cSJim Jagielski 						{
755*b1cdbd2cSJim Jagielski 							pControl = ((DockingWindow*)pControl)->GetFloatingWindow();
756*b1cdbd2cSJim Jagielski 							goto FloatWin;
757*b1cdbd2cSJim Jagielski 						}
758*b1cdbd2cSJim Jagielski 						else
759*b1cdbd2cSJim Jagielski 							ReportError( nUId, GEN_RES_STR1( S_ALLOWED_ONLY_IN_DOCKING_MODE, MethodString( nMethodId ) ) );
760*b1cdbd2cSJim Jagielski 						break;
761*b1cdbd2cSJim Jagielski 					case M_Help:		// Alles was unten weiterbehandelt werden soll
762*b1cdbd2cSJim Jagielski 						goto MoreDialog;
763*b1cdbd2cSJim Jagielski 
764*b1cdbd2cSJim Jagielski 					default:
765*b1cdbd2cSJim Jagielski 						ReportError( nUId, GEN_RES_STR2c2( S_UNKNOWN_METHOD, MethodString(nMethodId), "DockingWindow" ) );
766*b1cdbd2cSJim Jagielski 						break;*/
767*b1cdbd2cSJim Jagielski 				}
768*b1cdbd2cSJim Jagielski 				break;
769*b1cdbd2cSJim Jagielski 
770*b1cdbd2cSJim Jagielski 
771*b1cdbd2cSJim Jagielski 
772*b1cdbd2cSJim Jagielski 
773*b1cdbd2cSJim Jagielski 
774*b1cdbd2cSJim Jagielski 
775*b1cdbd2cSJim Jagielski 			case WINDOW_FLOATINGWINDOW:
776*b1cdbd2cSJim Jagielski                 {
777*b1cdbd2cSJim Jagielski     DBG_TRACE3( "TT_VCLMessage %u %u  %X",nEventID, pWin->GetType(), pWin );
778*b1cdbd2cSJim Jagielski //                    FloatingWindow *pFW = ((FloatingWindow*)pWin);
779*b1cdbd2cSJim Jagielski /*				    switch( nEventID )
780*b1cdbd2cSJim Jagielski 				    {
781*b1cdbd2cSJim Jagielski 
782*b1cdbd2cSJim Jagielski // M_OpenMenu an einem ToolboxButton
783*b1cdbd2cSJim Jagielski                         case VCLEVENT_WINDOW_SHOW:
784*b1cdbd2cSJim Jagielski                             if ( pActionParent )
785*b1cdbd2cSJim Jagielski                             {   // a new FloatingWindow opens up, so we assume an OpenMenu
786*b1cdbd2cSJim Jagielski                                 // compare to 1 for floating ToolBoxes
787*b1cdbd2cSJim Jagielski                                 if ( ( pActionParent->GetUniqueOrHelpId() == 0 || pActionParent->GetUniqueOrHelpId() == 1 ) )
788*b1cdbd2cSJim Jagielski                                     // generate direct Button access
789*b1cdbd2cSJim Jagielski                                     StatementList::pRet->GenReturn( RET_MacroRecorder, pActionParent->GetHelpId( pActionParent->GetCurItemId() ), (comm_USHORT)(M_OpenMenu) );
790*b1cdbd2cSJim Jagielski                                 else
791*b1cdbd2cSJim Jagielski                                     // access via Toolbox
792*b1cdbd2cSJim Jagielski                                     StatementList::pRet->GenReturn( RET_MacroRecorder, pActionParent->GetUniqueOrHelpId(), (comm_USHORT)(M_OpenMenu|M_RET_NUM_CONTROL), pActionParent->GetHelpId( pActionParent->GetCurItemId() ) );
793*b1cdbd2cSJim Jagielski                                 bSendData = sal_True;
794*b1cdbd2cSJim Jagielski                             }
795*b1cdbd2cSJim Jagielski                             break;
796*b1cdbd2cSJim Jagielski 
797*b1cdbd2cSJim Jagielski                     }
798*b1cdbd2cSJim Jagielski   */              }
799*b1cdbd2cSJim Jagielski                 break;
800*b1cdbd2cSJim Jagielski /*
801*b1cdbd2cSJim Jagielski 					case M_AnimateMouse :
802*b1cdbd2cSJim Jagielski 						AnimateMouse( pControl, MitteOben);
803*b1cdbd2cSJim Jagielski 						break;
804*b1cdbd2cSJim Jagielski 					case M_IsMax :
805*b1cdbd2cSJim Jagielski 						pRet->GenReturn ( RET_Value, nUId, (comm_BOOL)!((FloatingWindow*)pControl)->IsRollUp());
806*b1cdbd2cSJim Jagielski 						break;
807*b1cdbd2cSJim Jagielski 					case M_Minimize :
808*b1cdbd2cSJim Jagielski 						((FloatingWindow*)pControl)->RollUp();
809*b1cdbd2cSJim Jagielski 						break;
810*b1cdbd2cSJim Jagielski 					case M_Maximize :
811*b1cdbd2cSJim Jagielski 						((FloatingWindow*)pControl)->RollDown();
812*b1cdbd2cSJim Jagielski 						break;
813*b1cdbd2cSJim Jagielski 					case M_Size:
814*b1cdbd2cSJim Jagielski 					{
815*b1cdbd2cSJim Jagielski 						if ( pControl->GetStyle() & WB_SIZEABLE )
816*b1cdbd2cSJim Jagielski 						{
817*b1cdbd2cSJim Jagielski 							pControl->SetSizePixel(Size(nNr1,nNr2));
818*b1cdbd2cSJim Jagielski 							pControl->Resize();
819*b1cdbd2cSJim Jagielski 						}
820*b1cdbd2cSJim Jagielski 						else
821*b1cdbd2cSJim Jagielski 							ReportError( nUId, GEN_RES_STR1( S_SIZE_NOT_CHANGEABLE, MethodString( nMethodId ) ) );
822*b1cdbd2cSJim Jagielski 						break;
823*b1cdbd2cSJim Jagielski 					}
824*b1cdbd2cSJim Jagielski 					case M_Close:
825*b1cdbd2cSJim Jagielski 						DBG_ASSERT( nUId == pControl->GetUniqueOrHelpId(), "nUID != UniqueOrHelpId");
826*b1cdbd2cSJim Jagielski 						SET_WINP_CLOSING(pControl);
827*b1cdbd2cSJim Jagielski 						((FloatingWindow*)pControl)->Close();
828*b1cdbd2cSJim Jagielski 						break;
829*b1cdbd2cSJim Jagielski 					case M_Help:		// Alles was unten weiterbehandelt werden soll
830*b1cdbd2cSJim Jagielski 					case M_Move:
831*b1cdbd2cSJim Jagielski 						goto MoreDialog;
832*b1cdbd2cSJim Jagielski 					default:
833*b1cdbd2cSJim Jagielski 						ReportError( nUId, GEN_RES_STR2c2( S_UNKNOWN_METHOD, MethodString(nMethodId), "FloatingWin" ) );
834*b1cdbd2cSJim Jagielski 						break;
835*b1cdbd2cSJim Jagielski 				}
836*b1cdbd2cSJim Jagielski 				break;*/
837*b1cdbd2cSJim Jagielski 
838*b1cdbd2cSJim Jagielski 
839*b1cdbd2cSJim Jagielski 
840*b1cdbd2cSJim Jagielski 
841*b1cdbd2cSJim Jagielski 
842*b1cdbd2cSJim Jagielski 
843*b1cdbd2cSJim Jagielski 
844*b1cdbd2cSJim Jagielski 
845*b1cdbd2cSJim Jagielski /*
846*b1cdbd2cSJim Jagielski 			case C_ModelessDlg:
847*b1cdbd2cSJim Jagielski 			case C_Dlg:
848*b1cdbd2cSJim Jagielski 			case C_TabDlg:
849*b1cdbd2cSJim Jagielski 				MoreDialog:
850*b1cdbd2cSJim Jagielski 				switch( nEventID )
851*b1cdbd2cSJim Jagielski 				{
852*b1cdbd2cSJim Jagielski 
853*b1cdbd2cSJim Jagielski 					// (Rect GetRect)
854*b1cdbd2cSJim Jagielski 
855*b1cdbd2cSJim Jagielski 					case M_AnimateMouse :
856*b1cdbd2cSJim Jagielski 						AnimateMouse( pControl, MitteOben);
857*b1cdbd2cSJim Jagielski 						break;
858*b1cdbd2cSJim Jagielski 					case M_Close:
859*b1cdbd2cSJim Jagielski 						DBG_ASSERT( nUId == pControl->GetUniqueOrHelpId(), "nUID != UniqueOrHelpId");
860*b1cdbd2cSJim Jagielski 						SET_WINP_CLOSING(pControl);
861*b1cdbd2cSJim Jagielski 						((SystemWindow*)pControl)->Close();
862*b1cdbd2cSJim Jagielski 						break;
863*b1cdbd2cSJim Jagielski 					case M_Move:
864*b1cdbd2cSJim Jagielski 					{
865*b1cdbd2cSJim Jagielski 						pControl->SetPosPixel(Point(nNr1,nNr2));
866*b1cdbd2cSJim Jagielski 						break;
867*b1cdbd2cSJim Jagielski 					}
868*b1cdbd2cSJim Jagielski 					default:
869*b1cdbd2cSJim Jagielski 						ReportError( nUId, GEN_RES_STR2c2( S_UNKNOWN_METHOD, MethodString(nMethodId), "Dialog" ) );
870*b1cdbd2cSJim Jagielski 						break;
871*b1cdbd2cSJim Jagielski 				}
872*b1cdbd2cSJim Jagielski 				break;*/
873*b1cdbd2cSJim Jagielski 
874*b1cdbd2cSJim Jagielski 
875*b1cdbd2cSJim Jagielski 
876*b1cdbd2cSJim Jagielski 
877*b1cdbd2cSJim Jagielski 
878*b1cdbd2cSJim Jagielski 
879*b1cdbd2cSJim Jagielski 
880*b1cdbd2cSJim Jagielski 
881*b1cdbd2cSJim Jagielski 
882*b1cdbd2cSJim Jagielski 
883*b1cdbd2cSJim Jagielski 
884*b1cdbd2cSJim Jagielski 
885*b1cdbd2cSJim Jagielski 
886*b1cdbd2cSJim Jagielski /*
887*b1cdbd2cSJim Jagielski 			case C_WorkWin:
888*b1cdbd2cSJim Jagielski 				switch( nEventID )
889*b1cdbd2cSJim Jagielski 				{
890*b1cdbd2cSJim Jagielski 					case M_Close:
891*b1cdbd2cSJim Jagielski 						DBG_ASSERT( nUId == pControl->GetUniqueOrHelpId(), "nUID != UniqueOrHelpId");
892*b1cdbd2cSJim Jagielski 						SET_WINP_CLOSING(pControl);
893*b1cdbd2cSJim Jagielski 						((WorkWindow*)pControl)->Close();
894*b1cdbd2cSJim Jagielski 						break;
895*b1cdbd2cSJim Jagielski 					case M_Size:
896*b1cdbd2cSJim Jagielski 					case M_Move:
897*b1cdbd2cSJim Jagielski 						goto FloatWin;
898*b1cdbd2cSJim Jagielski 						break;
899*b1cdbd2cSJim Jagielski 					case M_Help:		// Alles was unten weiterbehandelt werden soll
900*b1cdbd2cSJim Jagielski 						goto MoreDialog;
901*b1cdbd2cSJim Jagielski 					default:
902*b1cdbd2cSJim Jagielski 						ReportError( nUId, GEN_RES_STR2c2( S_UNKNOWN_METHOD, MethodString(nMethodId), "WorkWindow" ) );
903*b1cdbd2cSJim Jagielski 						break;
904*b1cdbd2cSJim Jagielski 				}
905*b1cdbd2cSJim Jagielski 				break;
906*b1cdbd2cSJim Jagielski   */
907*b1cdbd2cSJim Jagielski 
908*b1cdbd2cSJim Jagielski 
909*b1cdbd2cSJim Jagielski /*			case C_TabPage:
910*b1cdbd2cSJim Jagielski 				switch( nEventID )
911*b1cdbd2cSJim Jagielski 				{
912*b1cdbd2cSJim Jagielski 				}
913*b1cdbd2cSJim Jagielski 				break;*/
914*b1cdbd2cSJim Jagielski 
915*b1cdbd2cSJim Jagielski 
916*b1cdbd2cSJim Jagielski 
917*b1cdbd2cSJim Jagielski 
918*b1cdbd2cSJim Jagielski 
919*b1cdbd2cSJim Jagielski 
920*b1cdbd2cSJim Jagielski 
921*b1cdbd2cSJim Jagielski 
922*b1cdbd2cSJim Jagielski 
923*b1cdbd2cSJim Jagielski 
924*b1cdbd2cSJim Jagielski 
925*b1cdbd2cSJim Jagielski 
926*b1cdbd2cSJim Jagielski 
927*b1cdbd2cSJim Jagielski /*
928*b1cdbd2cSJim Jagielski 			case C_MessBox:
929*b1cdbd2cSJim Jagielski 			case C_InfoBox:
930*b1cdbd2cSJim Jagielski 			case C_WarningBox:
931*b1cdbd2cSJim Jagielski 			case C_ErrorBox:
932*b1cdbd2cSJim Jagielski 			case C_QueryBox:
933*b1cdbd2cSJim Jagielski 				{
934*b1cdbd2cSJim Jagielski 					sal_Bool bDone = sal_True;
935*b1cdbd2cSJim Jagielski 					MessBox* pMB = (MessBox*)pControl;
936*b1cdbd2cSJim Jagielski 					switch( nEventID )
937*b1cdbd2cSJim Jagielski 					{
938*b1cdbd2cSJim Jagielski 						case M_GetCheckBoxText:
939*b1cdbd2cSJim Jagielski 							pRet->GenReturn ( RET_Value, nUId, pMB->GetCheckBoxText() );
940*b1cdbd2cSJim Jagielski 							break;
941*b1cdbd2cSJim Jagielski 						case M_IsChecked :
942*b1cdbd2cSJim Jagielski 							pRet->GenReturn ( RET_Value, nUId, comm_BOOL( pMB->GetCheckBoxState() == STATE_CHECK) );
943*b1cdbd2cSJim Jagielski 							break;
944*b1cdbd2cSJim Jagielski 						case M_GetState :
945*b1cdbd2cSJim Jagielski 							pRet->GenReturn ( RET_Value, nUId, comm_ULONG( pMB->GetCheckBoxState() ));
946*b1cdbd2cSJim Jagielski 							break;
947*b1cdbd2cSJim Jagielski 						case M_Check :
948*b1cdbd2cSJim Jagielski 							pMB->SetCheckBoxState( STATE_CHECK );
949*b1cdbd2cSJim Jagielski 							break;
950*b1cdbd2cSJim Jagielski 						case M_UnCheck :
951*b1cdbd2cSJim Jagielski 							pMB->SetCheckBoxState( STATE_NOCHECK );
952*b1cdbd2cSJim Jagielski 							break;
953*b1cdbd2cSJim Jagielski 						case M_GetText :
954*b1cdbd2cSJim Jagielski 							pRet->GenReturn ( RET_Value, nUId, pMB->GetMessText());
955*b1cdbd2cSJim Jagielski 							break;
956*b1cdbd2cSJim Jagielski 
957*b1cdbd2cSJim Jagielski 						default:
958*b1cdbd2cSJim Jagielski 							bDone = sal_False;
959*b1cdbd2cSJim Jagielski 							break;
960*b1cdbd2cSJim Jagielski 					}
961*b1cdbd2cSJim Jagielski 					if ( bDone )
962*b1cdbd2cSJim Jagielski 						break;	// break the case here else continue at C_ButtonDialog
963*b1cdbd2cSJim Jagielski 				}
964*b1cdbd2cSJim Jagielski 			case C_ButtonDialog:
965*b1cdbd2cSJim Jagielski 				{
966*b1cdbd2cSJim Jagielski 					ButtonDialog* pBD = (ButtonDialog*)pControl;
967*b1cdbd2cSJim Jagielski #if OSL_DEBUG_LEVEL > 1
968*b1cdbd2cSJim Jagielski 					m_pDbgWin->AddText( "Working MessBox: " );
969*b1cdbd2cSJim Jagielski 					if (pControl->IsVisible())
970*b1cdbd2cSJim Jagielski 						m_pDbgWin->AddText("*(Visible)\n");
971*b1cdbd2cSJim Jagielski 					else
972*b1cdbd2cSJim Jagielski 						m_pDbgWin->AddText("*(nicht Visible)\n");
973*b1cdbd2cSJim Jagielski #endif
974*b1cdbd2cSJim Jagielski 					switch( nEventID )
975*b1cdbd2cSJim Jagielski 					{
976*b1cdbd2cSJim Jagielski 						case M_GetText :
977*b1cdbd2cSJim Jagielski 							pRet->GenReturn ( RET_Value, nUId, pControl->GetText());
978*b1cdbd2cSJim Jagielski 							break;
979*b1cdbd2cSJim Jagielski 						case M_Click:
980*b1cdbd2cSJim Jagielski 							if ( nParams & PARAM_USHORT_1 )
981*b1cdbd2cSJim Jagielski 							{
982*b1cdbd2cSJim Jagielski 								if ( pBD->GetPushButton( nNr1 ) )
983*b1cdbd2cSJim Jagielski 								{
984*b1cdbd2cSJim Jagielski 									if ( nNr1 != BUTTONID_HELP )
985*b1cdbd2cSJim Jagielski 									{
986*b1cdbd2cSJim Jagielski 										SET_WINP_CLOSING(pControl);
987*b1cdbd2cSJim Jagielski 									}
988*b1cdbd2cSJim Jagielski 									pBD->GetPushButton( nNr1 )->Click();
989*b1cdbd2cSJim Jagielski 								}
990*b1cdbd2cSJim Jagielski 								else
991*b1cdbd2cSJim Jagielski 									ReportError( nUId, GEN_RES_STR2( S_NO_DEFAULT_BUTTON, UniString::CreateFromInt32( nNr1 ), MethodString( nMethodId ) ) );
992*b1cdbd2cSJim Jagielski 							}
993*b1cdbd2cSJim Jagielski 							else
994*b1cdbd2cSJim Jagielski 								ReportError( nUId, GEN_RES_STR1( S_BUTTONID_REQUIRED, MethodString( nMethodId ) ) );
995*b1cdbd2cSJim Jagielski 							break;
996*b1cdbd2cSJim Jagielski 						case M_GetButtonCount :
997*b1cdbd2cSJim Jagielski 							pRet->GenReturn ( RET_Value, nUId, comm_ULONG(pBD->GetButtonCount()));
998*b1cdbd2cSJim Jagielski 							break;
999*b1cdbd2cSJim Jagielski 						case M_GetButtonId :
1000*b1cdbd2cSJim Jagielski 							if ( ValueOK(nUId, MethodString( nMethodId ),nNr1,pBD->GetButtonCount()) )
1001*b1cdbd2cSJim Jagielski 								pRet->GenReturn ( RET_Value, nUId, comm_ULONG(pBD->GetButtonId(nNr1-1)));
1002*b1cdbd2cSJim Jagielski 							break;
1003*b1cdbd2cSJim Jagielski 						default:
1004*b1cdbd2cSJim Jagielski 							ReportError( nUId, GEN_RES_STR2c2( S_UNKNOWN_METHOD, MethodString(nMethodId), "MessageBox" ) );
1005*b1cdbd2cSJim Jagielski 							break;
1006*b1cdbd2cSJim Jagielski 					}
1007*b1cdbd2cSJim Jagielski 					break;
1008*b1cdbd2cSJim Jagielski 
1009*b1cdbd2cSJim Jagielski 
1010*b1cdbd2cSJim Jagielski                  */
1011*b1cdbd2cSJim Jagielski 
1012*b1cdbd2cSJim Jagielski 
1013*b1cdbd2cSJim Jagielski         }
1014*b1cdbd2cSJim Jagielski 
1015*b1cdbd2cSJim Jagielski 
1016*b1cdbd2cSJim Jagielski 		switch( nEventID )
1017*b1cdbd2cSJim Jagielski 		{
1018*b1cdbd2cSJim Jagielski 			case VCLEVENT_CONTROL_LOSEFOCUS:
1019*b1cdbd2cSJim Jagielski                 if ( pEditModify == pWin )
1020*b1cdbd2cSJim Jagielski                 {
1021*b1cdbd2cSJim Jagielski 					if ( m_bRecord )
1022*b1cdbd2cSJim Jagielski 					{
1023*b1cdbd2cSJim Jagielski 						StatementList::pRet->GenReturn( RET_MacroRecorder, pWin->GetUniqueOrHelpId(), M_SetText, aEditModifyString );
1024*b1cdbd2cSJim Jagielski 						bSendData = sal_True;
1025*b1cdbd2cSJim Jagielski 					}
1026*b1cdbd2cSJim Jagielski                     if ( m_bLog )
1027*b1cdbd2cSJim Jagielski                     {
1028*b1cdbd2cSJim Jagielski                         LogVCL( GetParentID( pWin ), pWin->GetType(), pWin->GetUniqueOrHelpId(), CUniString("Modify") );
1029*b1cdbd2cSJim Jagielski                     }
1030*b1cdbd2cSJim Jagielski                     pEditModify = NULL;
1031*b1cdbd2cSJim Jagielski                     aEditModifyString.Erase();  //could be somewhat lengthy
1032*b1cdbd2cSJim Jagielski                 }
1033*b1cdbd2cSJim Jagielski 				break;
1034*b1cdbd2cSJim Jagielski         }
1035*b1cdbd2cSJim Jagielski 
1036*b1cdbd2cSJim Jagielski         pLastWin = pWin;
1037*b1cdbd2cSJim Jagielski 
1038*b1cdbd2cSJim Jagielski     }  // if
1039*b1cdbd2cSJim Jagielski     else if ( pEvent->ISA( VclMenuEvent ) )
1040*b1cdbd2cSJim Jagielski     {
1041*b1cdbd2cSJim Jagielski //        VclMenuEvent* pMenuEvent = ( VclMenuEvent* ) pEvent;
1042*b1cdbd2cSJim Jagielski     }
1043*b1cdbd2cSJim Jagielski 
1044*b1cdbd2cSJim Jagielski 
1045*b1cdbd2cSJim Jagielski     if ( bSendData )
1046*b1cdbd2cSJim Jagielski         new StatementFlow( NULL, F_EndCommandBlock );	// Kommando zum Senden erzeugen und in que eintragen
1047*b1cdbd2cSJim Jagielski 
1048*b1cdbd2cSJim Jagielski     return 0;
1049*b1cdbd2cSJim Jagielski }
1050*b1cdbd2cSJim Jagielski 
1051*b1cdbd2cSJim Jagielski 
1052*b1cdbd2cSJim Jagielski 
getRecorderMutex()1053*b1cdbd2cSJim Jagielski static ::osl::Mutex * getRecorderMutex()
1054*b1cdbd2cSJim Jagielski {
1055*b1cdbd2cSJim Jagielski     static ::osl::Mutex * pMutex  = NULL;
1056*b1cdbd2cSJim Jagielski     if(pMutex==NULL)
1057*b1cdbd2cSJim Jagielski     {
1058*b1cdbd2cSJim Jagielski         ::osl::MutexGuard aGuard(::osl::Mutex::getGlobalMutex());
1059*b1cdbd2cSJim Jagielski         if(pMutex==NULL)
1060*b1cdbd2cSJim Jagielski             pMutex = new ::osl::Mutex();
1061*b1cdbd2cSJim Jagielski     }
1062*b1cdbd2cSJim Jagielski     return pMutex;
1063*b1cdbd2cSJim Jagielski }
1064*b1cdbd2cSJim Jagielski 
1065*b1cdbd2cSJim Jagielski 
CheckDelete()1066*b1cdbd2cSJim Jagielski void MacroRecorder::CheckDelete()
1067*b1cdbd2cSJim Jagielski {
1068*b1cdbd2cSJim Jagielski 	::osl::MutexGuard aGuard( getRecorderMutex() );
1069*b1cdbd2cSJim Jagielski     if ( !m_bRecord && !m_bLog )
1070*b1cdbd2cSJim Jagielski     {
1071*b1cdbd2cSJim Jagielski         pMacroRecorder = NULL;
1072*b1cdbd2cSJim Jagielski         delete this;
1073*b1cdbd2cSJim Jagielski     }
1074*b1cdbd2cSJim Jagielski }
1075*b1cdbd2cSJim Jagielski 
1076*b1cdbd2cSJim Jagielski 
GetMacroRecorder()1077*b1cdbd2cSJim Jagielski MacroRecorder* MacroRecorder::GetMacroRecorder()
1078*b1cdbd2cSJim Jagielski {
1079*b1cdbd2cSJim Jagielski 	::osl::MutexGuard aGuard( getRecorderMutex() );
1080*b1cdbd2cSJim Jagielski     if ( !pMacroRecorder )
1081*b1cdbd2cSJim Jagielski         pMacroRecorder = new MacroRecorder;
1082*b1cdbd2cSJim Jagielski 
1083*b1cdbd2cSJim Jagielski     return pMacroRecorder;
1084*b1cdbd2cSJim Jagielski }
1085*b1cdbd2cSJim Jagielski 
HasMacroRecorder()1086*b1cdbd2cSJim Jagielski sal_Bool MacroRecorder::HasMacroRecorder()
1087*b1cdbd2cSJim Jagielski {
1088*b1cdbd2cSJim Jagielski 	::osl::MutexGuard aGuard( getRecorderMutex() );
1089*b1cdbd2cSJim Jagielski     return pMacroRecorder != NULL;
1090*b1cdbd2cSJim Jagielski }
1091*b1cdbd2cSJim Jagielski 
1092