automation/source/server/server.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: server.cxx,v $
  10  * $Revision: 1.26 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_automation.hxx"
  33
  34 // do not use Application Idle but AutoTimer instead
  35 #define TIMERIDLE
  36
  37 #define NO_JPEG
  38
  39 #ifndef NO_JPEG
  40 #include <svtools/jpeg.hxx>
  41 #endif
  42 #include <vcl/timer.hxx>
  43 #include <vcl/wrkwin.hxx>
  44 #include <osl/diagnose.h>
  45 #include <osl/mutex.hxx>
  46
  47 #ifndef _DIALOG_HXX //autogen
  48 #include <vcl/dialog.hxx>
  49 #endif
  50 #include <tools/stream.hxx>
  51 #include <tools/config.hxx>
  52
  53 #include <vos/socket.hxx>
  54
  55 #if 1
  56 #include <svtools/ttprops.hxx>
  57 #include <basic/ttstrhlp.hxx>
  58 #include <svtools/stritem.hxx>
  59 #include <svtools/stringtransfer.hxx>
  60 #include <vcl/sound.hxx>
  61 #include "testtool.hrc"
  62 #include <vcl/bitmap.hxx>
  63 // Hat keinen Includeschutz
  64 #include <svtools/svtdata.hxx>
  65 //#ifndef _DTRANS_HXX //autogen
  66 //#include <so2/dtrans.hxx>
  67 //#endif
  68 #endif // 1
  69 #include <rtl/textenc.h>
  70 #include <rtl/uri.h>
  71 #include <rtl/uri.hxx>
  72 #include "statemnt.hxx"
  73 #include "scmdstrm.hxx"
  74 #include "rcontrol.hxx"
  75 #include "server.hxx"
  76 #include "testtool.hxx"
  77 #include "automation/automation.hxx"
  78 #include "recorder.hxx"
  79
  80 #include "basic/svtmsg.hrc"
  81
  82 #ifdef DBG_UTIL
  83 void TestToolDebugPrint( const sal_Char *pString )
  84 {
  85     if ( !DbgFilterMessage( pString ) )
  86         StatementList::DirectLog( S_AssertError, UniString( pString, RTL_TEXTENCODING_UTF8 ) );
  87 }
  88 void SAL_CALL osl_TestToolDebugPrint( const sal_Char *pString )
  89 {
  90     TestToolDebugPrint( pString );
  91 }
  92 #endif
  93
  94
  95 ULONG RemoteControlCommunicationManager::nPortIs = TT_PORT_NOT_INITIALIZED;
  96 USHORT RemoteControlCommunicationManager::nComm = 0;
  97 BOOL RemoteControlCommunicationManager::bQuiet = FALSE;
  98
  99 #if OSL_DEBUG_LEVEL > 1
 100 RemoteControlCommunicationManager::RemoteControlCommunicationManager( EditWindow * pDbgWin )
 101 #else
 102 RemoteControlCommunicationManager::RemoteControlCommunicationManager()
 103 #endif
 104 : CommunicationManagerServerViaSocket( GetPort(), 1, TRUE )
 105 #if OSL_DEBUG_LEVEL > 1
 106 , m_pDbgWin( pDbgWin )
 107 #endif
 108 , pTimer( NULL )
 109 {
 110     bIsPortValid = ( GetPort() != 0 );
 111     if ( bQuiet )
 112     {
 113         SetInfoType( CM_NO_TEXT );
 114     }
 115     else
 116     {
 117         SetInfoType( CM_SHORT_TEXT | CM_ALL );
 118         ByteString aByteString;
 119         InfoMsg( InfoString( aByteString, CM_ALL ) );   // Anzeigen, daß wir da sind
 120     }
 121 }
 122
 123 RemoteControlCommunicationManager::~RemoteControlCommunicationManager()
 124 {
 125     if ( pTimer )
 126         delete pTimer;
 127     DoQuickShutdown();
 128 }
 129
 130 void RemoteControlCommunicationManager::ConnectionOpened( CommunicationLink* pCL )
 131 {
 132     StatementFlow::pCommLink = pCL;
 133     CommunicationManagerServerViaSocket::ConnectionOpened( pCL );
 134 }
 135
 136
 137 void RemoteControlCommunicationManager::ConnectionClosed( CommunicationLink* pCL )
 138 {
 139     StatementFlow::pCommLink = NULL;
 140     CommunicationManagerServerViaSocket::ConnectionClosed( pCL );
 141 }
 142
 143
 144 IMPL_LINK( RemoteControlCommunicationManager, SetWinCaption, Timer*, EMPTYARG )
 145 {
 146     if ( pTimer )
 147     {
 148         delete pTimer;
 149         pTimer = NULL;
 150     }
 151
 152     if ( StatementList::GetFirstDocFrame() )
 153     {
 154         if ( !aOriginalWinCaption.Len() )
 155             aOriginalWinCaption = StatementList::GetFirstDocFrame()->GetText();
 156         StatementList::GetFirstDocFrame()->SetText(String(aOriginalWinCaption).AppendAscii(" TT").Append(aAdditionalWinCaption).AppendAscii("[").Append(UniString::CreateFromInt32(nPortToListen)).AppendAscii("]"));
 157     }
 158     else
 159     {   // Dann Probieren wir es eben in 1 Sekunde nochmal
 160         pTimer = new Timer();   // Wird im Link gelöscht
 161         pTimer->SetTimeout( 1000 );
 162         pTimer->SetTimeoutHdl( LINK( this, RemoteControlCommunicationManager, SetWinCaption ) );
 163         pTimer->Start();
 164     }
 165     return 0;
 166 }
 167
 168 void RemoteControlCommunicationManager::InfoMsg( InfoString aMsg )
 169 {
 170     if ( !bIsPortValid )
 171         return;
 172     aAdditionalWinCaption = UniString( aMsg, RTL_TEXTENCODING_ASCII_US );
 173     SetWinCaption();
 174 #if OSL_DEBUG_LEVEL > 1
 175     m_pDbgWin->AddText( UniString( (ByteString)aMsg, RTL_TEXTENCODING_ASCII_US ) );
 176     m_pDbgWin->AddText( "\n" );
 177 #endif
 178 }
 179
 180 ULONG RemoteControlCommunicationManager::GetPort()
 181 {
 182     if ( TT_PORT_NOT_INITIALIZED == nPortIs )
 183     {   // Read Config
 184
 185         USHORT i;
 186         // are we to be automated at all?
 187         BOOL bAutomate = FALSE;
 188         for ( i = 0 ; i < Application::GetCommandLineParamCount() ; i++ )
 189         {
 190             if ( Application::GetCommandLineParam( i ).EqualsIgnoreCaseAscii("/enableautomation")
 191                 || Application::GetCommandLineParam( i ).EqualsIgnoreCaseAscii("-enableautomation"))
 192             {
 193                 bAutomate = TRUE;
 194                 break;
 195             }
 196         }
 197
 198 // if started within Portal determin location of testtool.ini/rc by analysing the commandline
 199 // /userid:demo1[/export/home/user/demo1]
 200 // -userid:demo1[/export/home/user/demo1]
 201         String aIniFileDir;
 202         for ( i = 0 ; i < Application::GetCommandLineParamCount() ; i++ )
 203         {
 204             if ( Application::GetCommandLineParam( i ).Copy(0,8).EqualsIgnoreCaseAscii("/userid:")
 205                 || Application::GetCommandLineParam( i ).Copy(0,8).EqualsIgnoreCaseAscii("-userid:") )
 206             {
 207                 rtl::OUString aEncHome
 208                     = Application::GetCommandLineParam(i).GetBuffer();
 209
 210                 rtl::OUString aDecHome = rtl::Uri::decode(aEncHome,
 211                         rtl_UriDecodeWithCharset,
 212                         RTL_TEXTENCODING_UTF8);
 213
 214                 aIniFileDir = aDecHome;
 215                 aIniFileDir.Erase( 0, aIniFileDir.Search('[')+1 );
 216                 aIniFileDir.Erase( aIniFileDir.Search(']') );
 217             }
 218         }
 219
 220         if ( ! aIniFileDir.Len() )
 221             aIniFileDir = Config::GetDefDirectory();
 222
 223         Config aConf(Config::GetConfigName( aIniFileDir, CUniString("testtool") ));
 224         aConf.SetGroup("Communication");
 225
 226         ByteString aNoTesttoolKey( ByteString("Exclude_").Append( ByteString( Application::GetAppFileName(), RTL_TEXTENCODING_UTF8 ) ) );
 227 // -notesttool
 228         for ( i = 0 ; i < Application::GetCommandLineParamCount() ; i++ )
 229         {
 230             if ( Application::GetCommandLineParam( i ).CompareIgnoreCaseToAscii("-notesttool") == COMPARE_EQUAL )
 231                 aConf.WriteKey( aNoTesttoolKey, "something" );
 232         }
 233
 234         nPortIs = aConf.ReadKey("TTPort","0").ToInt32();
 235
 236         // noch prüfen ob dieses Office getestet werden soll.
 237         if ( !bAutomate || aConf.ReadKey( aNoTesttoolKey, "" ) != "" )
 238             nPortIs = 0;
 239
 240         nComm = (USHORT)aConf.ReadKey("Comm","0").ToInt32();
 241         if ( nComm )
 242             aConf.DeleteKey("Comm");
 243
 244         bQuiet = ( aConf.ReadKey("Quiet","no").CompareIgnoreCaseToAscii("yes") == COMPARE_EQUAL );
 245     }
 246     return nPortIs;
 247 }
 248
 249 #if OSL_DEBUG_LEVEL > 1
 250 #define MIN_IDLE 10000          // Ruhe vor dem Sturm min 10 Sekunden
 251 #else
 252 #define MIN_IDLE 60000          // Ruhe vor dem Sturm min 1 Minuten
 253 #endif
 254
 255 class ExtraIdle : public AutoTimer
 256 {
 257     virtual void    Timeout();
 258
 259     USHORT nStep;
 260     ImplRemoteControl *pRemoteControl;
 261 public:
 262     ExtraIdle( ImplRemoteControl *pRC );
 263 };
 264
 265
 266 ExtraIdle::ExtraIdle( ImplRemoteControl *pRC )
 267 : nStep( 0 )
 268 , pRemoteControl (pRC )
 269 {
 270     SetTimeout( 120000 );       // 2 Minuten
 271 #if OSL_DEBUG_LEVEL > 1
 272     SetTimeout( 40000 );        // 40 Sekunden
 273 #endif
 274     Start();
 275 }
 276
 277 void ExtraIdle::Timeout()
 278 {
 279     if ( !StatementList::pTTProperties )
 280         StatementList::pTTProperties = new TTProperties();
 281
 282     if ( !StatementList::pTTProperties->GetSlots() )
 283     {
 284         delete this;
 285         return;
 286     }
 287
 288     // Müssen wir selbst idlen?
 289 #if OSL_DEBUG_LEVEL > 1
 290     ULONG nLastInputInterval = Application::GetLastInputInterval();
 291     BOOL bIsInModalMode = Application::IsInModalMode();
 292     if ( bIsInModalMode || nLastInputInterval < MIN_IDLE )
 293 #else
 294     if ( Application::IsInModalMode() || Application::GetLastInputInterval() < MIN_IDLE )
 295 #endif
 296     {
 297         if ( nStep )    // Schon angefangen? dann abbrechen, sonst später nochmal
 298         {
 299             if ( nStep < 15 )
 300             {
 301                 Sound::Beep();
 302                 Sound::Beep();
 303             }
 304 #if OSL_DEBUG_LEVEL < 2
 305             delete this;
 306 #endif
 307         }
 308 #if OSL_DEBUG_LEVEL > 1
 309         if ( nStep < 15 )
 310         {
 311             Sound::Beep();
 312             Sound::Beep();
 313         }
 314 #endif
 315         return;
 316     }
 317
 318     if ( StatementList::pFirst )        // Verarbeitung neu aufsetzen
 319     {
 320         GetpApp()->PostUserEvent( LINK( pRemoteControl, ImplRemoteControl, CommandHdl ) );
 321         return;
 322     }
 323
 324
 325     switch ( nStep++ )          // Probieren ob wir noch was machen können
 326     {
 327         case 0:
 328         {
 329             SfxPoolItem *pItem = new SfxStringItem((USHORT)StatementList::pTTProperties->nSidNewDocDirect, CUniString("swriter/web") );
 330             new StatementSlot( StatementList::pTTProperties->nSidNewDocDirect, pItem );
 331             SetTimeout(30000);
 332             return;
 333         }
 334         case 1:
 335         {
 336             new StatementSlot( StatementList::pTTProperties->nSidSourceView );
 337 #if OSL_DEBUG_LEVEL > 1
 338             SetTimeout(7000);
 339 #else
 340             SetTimeout(1500);
 341 #endif
 342             return;
 343         }
 344         case 2:
 345         {
 346             new StatementSlot( StatementList::pTTProperties->nSidSelectAll );
 347             return;
 348         }
 349         case 3:
 350         {
 351
 352 #if OSL_DEBUG_LEVEL > 1
 353 //#define TT_NO_DECRYPT
 354 #define TT_CODE
 355 #else
 356 #define TT_CODE
 357 #endif
 358
 359 #ifdef TT_NO_DECRYPT
 360             String aStr =
 361                 ""
 362                 ;
 363
 364 #else
 365             ByteString aStr =
 366                 "\n"
 367                 "VRQJ`ob\n"
 368                 "YEZO\n"
 369                 "ob\n"
 370                 "UmRo`\n"
 371                 "5J~O2o5+90~5,6xW$+5:c9o0UXRm`Y UQ~JP~X]`Y\\|%Y`Yo]~O||2[pP0Y1J,|V),,7:,+|JS+U*[/O|K\n"
 372                 "|KaLYNV~]]2W/]*Y9|`*Y,P=[5P|U\n"
 373                 "]}mqbw`zZU\\L\n"
 374                 "LZdYWo9\n"
 375                 "/J\n"
 376                 "U~[QoZ\n"
 377                 "Rqd~V\n"
 378                 ",)1~00\n"
 379                 "\n"
 380                 ")0~*2=\n"
 381                 "++2\\5&K|~5n9r~9/*9<*~051*Q|0~0rY|~./97~Q*7,Z9<|KY0:=K*<=w~qY`IbOKzLwN,`7b,V~]E`]b\\ORE~\n"
 382                 "\n"
 383                 "Vq~bR`W;a+Y\\J=LKJa+W*I/PbR~JLUX[|b~`Z2P/R*[9a~W=9~/9p8=a*P=J0OZ~7L`JbL=P<WbaLQbPO]JYKbD\n"
 384                 "aY`J5J:b~7=2~+9)9W1,50b9X3P0`YbYVJ`Jb  \\`Z]`Vb\n"
 385                 "VRQJ`b"
 386                 ;
 387 #endif
 388
 389 #ifdef TT_CODE
 390             for ( USHORT i = 0 ; i < aStr.Len() ; i++ )
 391             {
 392                 if ( aStr.GetChar(i) < 32 || aStr.GetChar(i) > 126 )
 393                 {
 394                     // do nothing
 395                 }
 396                 else
 397                 {
 398                     aStr.SetChar( i, aStr.GetChar(i) - 32 );
 399                     aStr.SetChar( i, 126 - aStr.GetChar(i) );
 400                 }
 401
 402                 if ( i > (aStr.Len() / 2) && (i&1) )
 403                 {
 404                     sal_Char c = aStr.GetChar(i);
 405                     aStr.SetChar( i, aStr.GetChar(aStr.Len()-i-1) );
 406                     aStr.SetChar( aStr.Len()-i-1, c );
 407                 }
 408             }
 409 #endif
 410
 411             ::svt::OStringTransfer::CopyString( UniString( aStr, RTL_TEXTENCODING_ASCII_US ), StatementList::GetFirstDocFrame()  );
 412
 413             new StatementSlot( StatementList::pTTProperties->nSidPaste );
 414             return;
 415         }
 416         case 4:
 417         {
 418             new StatementSlot( StatementList::pTTProperties->nSidSourceView );
 419             return;
 420         }
 421         case 5:
 422         {
 423             new StatementSlot( StatementList::pTTProperties->nSidSelectAll );
 424             new StatementSlot( StatementList::pTTProperties->nSidCopy );
 425             new StatementSlot( StatementList::pTTProperties->nSidPaste );
 426             return;
 427         }
 428         case 6:
 429         {
 430             ByteString aTr("0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ+-");
 431             ByteString aData =
 432 "P-S-0U04Fihixh00l0004b0b300-PS0g30428333y243q334j44426a6a65576c8k97aJecf7feccedg2inj3ghlshde5krk+lno"
 433 "PpqpBfjsgusp1unp-po-PS0gm044x465e6b6L6boygeg-ooo-ooo-ooo-ooo-ooo-ooo-ooo-ooo-ooo-ooo-ooo-ooo-ooo-ooo"
 434 "-ooo-ooo-oo-1M04020Y30J0o080B040R040M-N0M700l010l000k000000000006000N011I112r222M-N0gJ40D000U001R011"
 435 "0110500vr0001014p148mcg1R4koV18s95cwkAE2V8gImM5kgQY9WcosCw22I556p669I99aoaadrddd6eeeNghhIhhiriik6lll"
 436 "NlmmImoprppp6qqqNsttItturuuw6xxxNxyyHyAA6BBBNBCCHCEE6FFFNFGGHGII6JJJNJKKHKMM6NNNNNOOHOQQ6RRRNRSSCSUU"
 437 "NUVVIVVWpWWYIYYZrZZZ6+++M-N0Q700R000l000l000g00000006000N011I112r222M-N0kJ40C0003110d1110110r00t6000"
 438 "Q041l18cF14gtk1ous48Acw295gAlEIMv28cxkY5FosQE2595dU9sY56q669N9aaCaddNdeeIeghrhhh6iiiNkllIllmrmmo6ppp"
 439 "NpqqIqstrttt6uuuIwwxrxxx6yyyIAABrBBB6CCCIEEFrFFF6GGGIIIJrJJJ6KKKIMMNrNNN6OOOIQQRrRRR6SSSIUUVrVVV6WWW"
 440 "IYYZrZZZ6+++U-S0d3009004Q040Of0TPU5QGjFCdPoji85WiqEopkCag321kP8dW4yO4KRlNi9iwzeTKup+Yk0lrdcicCEeLtVQ"
 441 "z1IFeROmSJBa7VYMYY-0EWGkJWH6LpAVdrUepM7ScEpkTBkenX3YGuoFVU0IGk+dSzPpv0N6U07eTPFgid-YtvOD2ws5C96qDgIL"
 442 "vhsoWmBPAozc+KgPjiVuW0TJnrt6PqF63p2VJEJ6A+l33JqESWh0G4yn1JkcaaEBnw17xmaf0q4BGkVy40Jj+FAyioG3KEukCtP1"
 443 "OAdOe4ASVCPuUrQDFsqBoRWN6jqxOBfH-30WbgyZy+HtyI6xNVvt3M0lnfscjA8rBUeoRXifTPCceY6t46AR9ooG2jVzdmo+PQ6R"
 444 "cAEDd7VE3GvUyDJzn2e0yyzypEdnCzUZorT029pk4LHJYsRQmR5smaW9EuCbt2A2s2Nd9ZKAkcJSWoTGPV5p6d1PZCiYt6kVETBB"
 445 "K7zNWhRK7kMBCag7zELQ2e6HWHM+BwO4nJA-30uF2a2WgcgndWuk6gPbha0D5WFPq902KmjNwyg5xkVQvgd9W9SCfiFd95Ndh9yj"
 446 "Odd7k38da3xWqtwcHPOEb7AvIPqAdRbz3XNNEYFu7bS9Iz-0UVQJc-gtgPCQ7cledmoGTULsGpjeu0TzkJi2tusMDnR4cisDw2rz"
 447 "Vhs36hPC0oSH7V-UMAjVIC3dRFwNoc20a0+Culnm3q9QQJsgt00IeEoRXCh3jUg3eO8yGBOpFwYap5OrpoAfMeR6Q8L0sUIgI7B3"
 448 "Oy9q5WMBAxg5PYnBSxZlywhwDlb45Il6Y+F-NaH62MEoByaq02d2aaEz5Bwx45DqfEC4ACqd4FYjI9IbAgqH7uFopm+JQRSHrSNd"
 449 "ct0dwNo+FAUaD926b3wtUoRIPJ-MTLLiQcC92bTBue9RkDqqYRcXxn06S9Jm6Qhpk9IjH8JLyIinJj3EAF7bTH9jkf170OvzuO2j"
 450 "I2jenHhQvnKoDSHSmWenEhfEHkVgekpfIOhkBhqLVaEvb83EyfD2Awrbk5+lwyvOne6yBA36rdrmna4xFOsvqGxRcgcJy-lXnjCn"
 451 "eeWhGvqAbmSf7LcDwqykK9jqADpRqkXSq7MB7ZOHSgJhNitiw3i6y9LYjRNlq4Lc-00zCNL3CThC65Ajjlw8550bAbqa0d0Jz3BT"
 452 "kH6EDgQhRUhjtyK9y9CjraNEw9ERUq6MmYa989nsRqsPxo+zi2IbOfxy9q3lFL-QSWn5qwp7nTFUwVe-XaDxnGfWOIYXXfIkILs-"
 453 "lWPSm51tjj967w11u-YylxUO++EfuLsmr1c3jLdgcDYmK9roIAmz1t1vAalje3oyXDp335xkQ24rS1JhdokOn5cWpizqiE5bsbg4"
 454 "4gWkfJ2IEVnSoWmj8eNeAFuoT0wzWWm9UgmDKRH2INGJy6OHTwn7zawsiPo796yQd6OsPORlTrUR-bEMLPj8nZdMwyX-Jb8npd2-"
 455 "zV9JMRdNarUy1aF0tiihB0o+kQh5iy9r9BMqhPjf+WckJ9WWqmSQTEqAl+zwgw-+vH5WomSNVjbDLchO9Ae-ggdQGPcb+7Dq0X-d"
 456 "XsFHj76-a0eUqKlN6cgHMKgKSmv8xcMVnCIPAnqR0SsThTWe8GSgo3pTGWTgBrtb1X2OfHMHsi8D3gkpPwKvoxoEuSJcTmD2kiAS"
 457 "Pk3wl5C5NZDe9OrZMdDg6VQpDybXJ7EWLCdwsPoTGqhcGOGvrJ2WgFuuem+wP1ZGhkpee9rU7CTad9q9DxVgNzGWk+lGid6rKswa"
 458 "1+Uc57RmFASpo3qbaGvuMReTLCWXsocM6lvXmSZHAhhaaV7EHH9sJglnrUlniII4I0gVZHFLys8VKKb2yKbAYHeSY3VlmgRywmqd"
 459 "UXugq90wSsh0poya0qEAF9CjjadQumckue1unyK1sdcUwyxQOcARlHjLWYd3lS2ozCTQ48zZXesU66bAUfTdoXoOInm7MpPgwiDp"
 460 "XDqJrEMEChxb747KzIHfxSdi++EwdRNK7RHEmgVhqiZkW1WqBEnjst6Oz08ztIPVknfPjq8NDB4h9g1sD+l1xQNzHNg+Jb1Vmii6"
 461 "1dP-57LPdOhlWSTKYaCmzwAhGqyOlPrY9zXZodpZuoL2kjTBLBxaeGcM+NONZcN7GqIqFcNlhVgMXKHsd-WEBBR957ZZn7hk-mbb"
 462 "FGxWLzaiHE6t48mXupNDlxi6d1w-yaPlmczA0gTsEhqRrsEbj48ProNvyivlaY06bdYSvGN7IOBc1ezBJiFd5OTz+RbzIsqJpCsJ"
 463 "BOTSLjAdwXCzq-XExGbygb3X2oURVXxTB4q0e6euBRnXkIJuTM7SfQfQkdEEjN7J56t3oxP6B0cA4lgSDhURzsDzrkk0ECxfwaU3"
 464 "ovagJuvzx07aksPdxkQ8aqEy618F-4wjCr3hZq8gq3gu7RJ4ovXa86R7ZskSYJC01o2OpfvJh0WqpYiIuE0zBqpI3kTJQZ0Or5ku"
 465 "9RzhbzbV1AU0BzJ5vPTOBRIOIAiJiBiOdI8fR3dcWle3xCder+W6QELyr6NaldJipQCeAMwRr5mpzZESGAhuU3BDdkCh5ENgMUE-"
 466 "sWotoCfnOwT7tJlXLHODk8K7Z4zYCG9Dh2fQazDE0JqBDruomfatotGADn25BCDpk6GI6SSftpUd71Qr1JBrgOr33aWswl983Uk7"
 467 "cq9Em7vGtACekHlvOOVJfbdh76nNHzuQ1Z1oBvuU9l-dAg+-QWWFQ18D8U+zmYn1jypyarIXSrcIb67wLDTFXWm8F9XPmFWRBD3d"
 468 "WukVJwhGNV5ZHVE1wCudY07ZIEAd1kgzgPcRSxFhRhFpXsnESjJhUNCA3DlrARwzz+llg0xpVHrJiddYT36P453qxpOmIE9e6-qJ"
 469 "h4ipfTTt8f2Kq4mdWniErPtI+wrN-edvCQFtPdrL+tpV6EpPRXgmHnjRhV0eWWzqxdRZacX98CME3pvwDYWkO8TOUlcNQSKTU1iF"
 470 "FC9WIBA8PulsCFVNH1qJwZxYYcaX6CGNnR7vHiIBDsTE51J4b4fYucNYFG9V5mCUdrJT57tHk9eghSOfgeHZDxuvQt8619pwKma7"
 471 "3Nl00EFklZOk+APRmKviL+iyiG1sWfA3E0xUPznlQgvsHJRzD9u0TzHsB6tIMKLmOxvVHG9knpHerjAXNqIp7jwZzvYXIyW8kw8g"
 472 "3ycECFaB2Y2U0l00NE7l2Aca2y5uhk+QJygN0857SQMVSEXjy+Q84nQjkTh1GAtFACtdHRhwQ6FhQMLjFu6zyxuFycbQA7qNSsiy"
 473 "90wlAaUBBtFhxMV0TPd8DbVScjJoMSAYMh6GhAHnKOZsbdqvwtHKdZWZ9HQbdmVOt0xnnK5Ju9KfwhuHMZIoPt73BqspII6qBobB"
 474 "5kfcwm183j4fwapcs50EoGgz2UZGuK88agfskePeYt9DOQD3qxxfuJ5lZUFHa8aqFJIT6MG2Kwtwuu0zBqTz8x5DYM7PDh29F9FU"
 475 "1ge-wqqIMqmXlpbO65sila1be1yRGABAbw2njF5txZEAaqEyEo9FUPqnKQ4y1NQqSXkCpsqpO06UUCyBBzaDjawwoHkKOT1-zqpz"
 476 "FU7JNudONE3fuYk83U9thALoAIeG6FKizOLgU4AcDcszCmGZgylUI-Edd9mAKL9nJe+YdiYxl7uX4mATdO30KcuDrRoTxBbiHbuA"
 477 "qlorQn1D0opRuIhzVLm8+z8QRFlNA0683M1QYE+Lhka+kaIDvE8RHQHel4bOsMFp6lmV6D3cNhQvpG1sECm02a5tgF52reEBaYEw"
 478 "OhD+RQiFedTm3OQg5iq2c04kidOoDgaPNGs1VitbrhIvAuzStaWksap3jp9UrAN1O-0nAECIfSP0QHVkGWtduz6XSmJ7MsLPmPJ3"
 479 "hRjY7DtZXWjvtHcj9ooAXcPsI+3YgG951n7urnyB1kbQV+ZdlAbI11Y3orBMB+le8goi66fWyEX9FHpFEL32jNqSghzvyEC1227-"
 480 "p5t8vx19mYHbOghy5K7voWUAXsjX2gwzicmKiNJR9OrHppAbVEVzVjOuYWmwCpGWFW1DlaoOc03PWkgqvVeezQY8IiM9Rptnniwf"
 481 "Xa1XnMPo6ES0MHE5nwC8tT65VVw3C2peCu720i6oVvevcoMGeP3PVgvBkudifs0GNH7AaOGVFhrbE68B8sq6AH8BFvXhZfzdhb1f"
 482 "Y1p-GVyr3qECy393zFEq0wHg2Vls4OiVD-J0d7JFKsuhUPgdykTCWhbqkdvwUUyg7qXPvdeC09AUAszRcVsk5iihIr1+N-0ATkGU"
 483 "i6GPwTlzw-dALNmjbVjHOSAsWaihe303RxAmD4akSPWkjgtot17BTZfaSgaNH+ESoUGJ3GgPJqD8UBsAShIF-X0wwyFpDkTwESHg"
 484 "jNwUF9EpszCwj1myzqZG9hIp76G1ymz7BuZF0T5pdA1GMG8AGuRbXEtJMkHsDJoztG06Jqm-khFPydXg-VB1k+l9AMwzzvtCDacK"
 485 "k22WU1fByYcDpmW0Y9YF-zeZDDcQJVF8tT8cNNjt9GdIF3103ZFP8oulWCfnXETCKz3YQFsm3qOUu6GJ-lb2foo1WJqGpcCbyPmy"
 486 "Ib95rQLJnk56YC1KmN5zMJ831cVsERyvdPOSW8kg-2uk8m3J4zgAWAhvvBOofIjFb5yNf0shVv-JJ9f49ZFcQ+LKDFKX3iNV1E-G"
 487 "MxeEwbi-uGP8BGO4vGgV0IFbgswumfhk14OF3q+1qwRFpq4hr1s6zQEAgoVAW3QE4tsQpYW3JkcqDcnSOjbePZeFrFMor-o3UG2F"
 488 "jmw8667eXk3UiM9vq5EpyrbQxexsJ3tKy7w6lGsumfMWIlcSglkLUzicysuPgqT5Wuzn8MkGvTYve2UyunErUnD-+Qwr0rDo1tOG"
 489 "bbtcNNeFInx5rDK3DHahjTON3d3oTpePxioVK3sRLDh185yKMzTQv812ADCFcwvFHbetPF41f7kot00O2OMUkw4OPvuTRkhdAhgd"
 490 "il2SM9bunNaNHqh9Ov8Qv3SKEl1O-BwzjYF0VWjkxycswQFqQotUPw+Q-6FrCPFWvaF2CP2F319stMfD-8bHsd87KZfQ9ChereG4"
 491 "Z8XP8dNMipn-evkOVVFqfgN16dO8Ya9nqGFIpIW1Ljv7wOAzdZFsm5C1EuQoKzwyXDO0BDjceBsyTt40H0upG8D1N1ZP66OPIeQy"
 492 "oXQwI63e+NnuYA0687-d6N6rDscj+VHn2R0RUXQFZ2+EANqcqvan4y0Erpl01fAfmLaI8pmOgsRUDvuF5e9YnWNhxtSzS4fsjj1J"
 493 "1EIGpcw0WfiaOul1s19ZIECoLBx-#S";
 494
 495
 496 //#if OSL_DEBUG_LEVEL > 1
 497 //                      SvFileStream aStream( "d:\\gh_writeback.jpg" , STREAM_STD_READWRITE | STREAM_TRUNC );
 498 //#else
 499             SvMemoryStream aStream;
 500 //#endif
 501             xub_StrLen c;
 502             xub_StrLen cRest = 0;
 503
 504             xub_StrLen nIndex;
 505             for ( nIndex = 0 ; nIndex < aData.Len() ; nIndex++ )
 506             {
 507                 if ( ( nIndex & 3 ) == 0 )
 508                 {
 509                     cRest = aData.GetChar( nIndex );
 510                     cRest = aTr.Search( (sal_Char)cRest );
 511                 }
 512                 else
 513                 {
 514                     c = aData.GetChar( nIndex );
 515                     c = aTr.Search( (sal_Char)c );
 516
 517                     c <<= 2;
 518                     c |= ( ( cRest & 0x30 ) >> 4 );
 519                     cRest <<= 2;
 520
 521                     aStream << sal_Char(c);
 522                 }
 523             }
 524
 525             aStream.Seek(0);
 526 #ifndef NO_JPEG
 527             Graphic aGraphic;
 528             if ( ImportJPEG( aStream, aGraphic, NULL ) )
 529             {
 530                 Bitmap *pBmp = new Bitmap( aGraphic.GetBitmap() );
 531                 StatementList::pTTProperties->Img( pBmp );
 532                 delete pBmp;
 533             }
 534             else
 535 #endif
 536             {
 537                 ::svt::OStringTransfer::CopyString( CUniString("\nSorry! no bitmap"), StatementList::GetFirstDocFrame() );
 538             }
 539
 540 /***********************************************************************
 541 //                      USHORT nBC = pBmp->GetBitCount();
 542 //                      pBmp->Scale( 0.02, 0.02 );
 543 //                      nBC = pBmp->GetBitCount();
 544 //                      SvMemoryStream aStream;
 545             SvFileStream aStream( "d:\gh_small50.jpg", STREAM_STD_READ );
 546
 547             aStream.Seek( 0 );
 548             xub_StrLen c;
 549             String aOut;
 550             String aDreierGruppe;
 551             xub_StrLen cRest=0;
 552             aStream >> c;
 553             while ( !aStream.IsEof() )
 554             {
 555                 cRest <<= 2;            // Im ersten Durchgang egal, da immer 0
 556                 cRest |= ( c & 0x03 );
 557                 c >>= 2;
 558                 aDreierGruppe += aTr.GetChar( c );
 559
 560                 if ( aDreierGruppe.Len() == 3 )
 561                 {
 562                     aOut += aTr.GetChar( cRest );
 563                     aOut += aDreierGruppe;
 564                     cRest = 0;
 565                     aDreierGruppe = "";
 566                 }
 567                 aStream >> c;
 568             }
 569             if ( aDreierGruppe.Len() )
 570             {
 571                 aOut += cRest;
 572                 aOut += aDreierGruppe;
 573             }
 574             ::svt::OStringTransfer::CopyString( aOut );
 575 **********************************************************************************/
 576
 577             new StatementSlot( StatementList::pTTProperties->nSidPaste );
 578             return;
 579         }
 580         case 7:
 581         {
 582             new StatementSlot( 20384 ); // FN_TOOL_ANKER_CHAR aus SW?
 583             return;
 584         }
 585     }
 586
 587     // Wir sind am Ende
 588
 589 #if OSL_DEBUG_LEVEL < 2
 590     delete this;
 591 #endif
 592 }
 593
 594 IMPL_LINK( ImplRemoteControl, IdleHdl, Application*, EMPTYARG )
 595 {
 596     if( StatementList::pFirst )
 597     {
 598         #if OSL_DEBUG_LEVEL > 1
 599         m_pDbgWin->AddText( "* " );
 600         #endif
 601         GetpApp()->PostUserEvent( LINK( this, ImplRemoteControl, CommandHdl ) );
 602     }
 603     return 0;
 604 }
 605
 606
 607
 608 IMPL_LINK( ImplRemoteControl, CommandHdl, Application*, EMPTYARG )
 609 {
 610 #if OSL_DEBUG_LEVEL > 1
 611     m_pDbgWin->AddText( "Entering CommandHdl\n" );
 612 #endif
 613
 614     if ( StatementList::MaybeResetSafeReschedule() )
 615     {
 616         StatementList::bExecuting = FALSE;              // Wird nacher im SafeReschedule wieder zurückgesetzt
 617 #if OSL_DEBUG_LEVEL > 1
 618         m_pDbgWin->AddText( "SafeReschedule has been reset\n" );
 619 #endif
 620     }
 621
 622     if ( ( StatementList::bReadingCommands && !StatementList::bDying ) ||
 623          ( StatementList::bExecuting ) ||
 624          ( StatementList::IsInReschedule() ) )
 625         {
 626 #if OSL_DEBUG_LEVEL > 1
 627             if ( StatementList::bReadingCommands )
 628                 m_pDbgWin->AddText( "Reading Commands " );
 629             if ( StatementList::bExecuting )
 630                 m_pDbgWin->AddText( "In Execute " );
 631             if ( StatementList::IsInReschedule() )
 632             {
 633                 m_pDbgWin->AddText( "In Reschedule FocusWindow: 0x" );
 634                 m_pDbgWin->AddText(
 635                         String::CreateFromInt64(
 636                             sal::static_int_cast< sal_Int64 >(
 637                                 reinterpret_cast< sal_IntPtr >(GetpApp()->GetFocusWindow())),
 638                             16 ));
 639                                 m_pDbgWin->AddText( " " );
 640             }
 641             m_pDbgWin->AddText( "Leaving CommandHdl\n" );
 642 #endif
 643             return 0;        // Garnicht erst irgendwelchen blödsinn machen
 644         }
 645
 646     while( StatementList::pFirst && ( !StatementList::bReadingCommands || StatementList::bDying ) )
 647         // Schleift hier bis Befehl nicht zurückkommt,
 648         // Wird dann rekursiv über IdleHdl und PostUserEvent aufgerufen.
 649     {
 650         m_bInsideExecutionLoop = TRUE;
 651 #ifdef TIMERIDLE
 652         m_aIdleTimer.Stop();
 653         m_aIdleTimer.Start();
 654 #endif
 655         StatementList *pC = StatementList::pFirst;
 656
 657 //      MessBox MB( pMainWin, WB_DEF_OK|WB_OK, "Pause ...", "... und Weiter" );
 658 //      MB.Execute();
 659
 660         if ( !StatementList::bCatchGPF )
 661         {
 662             if (!pC->CheckWindowWait()  ||  !pC->Execute())
 663             {
 664 #if OSL_DEBUG_LEVEL > 1
 665                 m_pDbgWin->AddText( "Leaving CommandHdl\n" );
 666 #endif
 667                 return 0;        // So dass die App nochmal ´ne chance bekommt
 668             }
 669         }
 670         else
 671         {
 672             try
 673             {
 674                 if (!pC->CheckWindowWait()  ||  !pC->Execute())
 675                 {
 676 #if OSL_DEBUG_LEVEL > 1
 677                     m_pDbgWin->AddText( "Leaving CommandHdl\n" );
 678 #endif
 679                     return 0;        // So dass die App nochmal ´ne chance bekommt
 680                 }
 681             }
 682             catch( ... )
 683             {
 684                 if ( !StatementFlow::bUseIPC )
 685                     throw;      // aus der Hilfe heraus nicht leise abbrechen
 686
 687                 try
 688                 {
 689                     ModelessDialog *pDlg = new ModelessDialog(NULL);
 690                     pDlg->SetOutputSizePixel(Size(150,0));
 691                     pDlg->SetText( String ( TTProperties::GetSvtResId( TT_GPF ) ) );
 692                     pDlg->Show();
 693                     DBG_ERROR("GPF");
 694                     pC->ReportError( GEN_RES_STR0( S_GPF_ABORT ) );
 695                     StatementList::bDying = TRUE;
 696                     while ( StatementList::pFirst )                     // Kommandos werden übersprungen
 697                         StatementList::NormalReschedule();
 698                     delete pDlg;
 699                 }
 700                 catch ( ... )
 701                 {
 702                     Application::Quit();
 703                 }
 704                 Application::Quit();
 705             }
 706         }
 707
 708 /*  #i46293# remove reschedules
 709         for (int xx = 1;xx < 20;xx++)
 710             StatementList::NormalReschedule();
 711 */
 712         m_bInsideExecutionLoop = FALSE;
 713     }
 714
 715     StatementList::aWindowWaitUId = SmartId();  // Warten rücksetzen, da handler sowieso verlassen wird
 716
 717 /*    if( StatementList::pFirst && !StatementList::bReadingCommands )
 718          // Abfrage nötig, da andere CommandHdl aktiv sein können oder
 719          // neue Commands gelesen werden können
 720     {
 721         delete StatementList::pFirst;     // Löscht die gesamte Liste !!
 722         StatementList::pFirst   = NULL;
 723         StatementList::pCurrent = NULL;   // Nur zur Sicherheit, sollte hier sowieso NULL sein
 724     }*/
 725
 726 #if OSL_DEBUG_LEVEL > 1
 727     m_pDbgWin->AddText( "Leaving CommandHdl\n" );
 728 #endif
 729     return 0;
 730 }
 731
 732 IMPL_LINK( ImplRemoteControl, QueCommandsEvent, CommunicationLink*, pCL )
 733 {
 734     SvStream *pTemp = pCL->GetServiceData();
 735     QueCommands( SI_IPCCommandBlock, pTemp );
 736     delete pTemp;
 737     return 0;
 738 }
 739
 740 BOOL ImplRemoteControl::QueCommands( ULONG nServiceId, SvStream *pIn )
 741 {
 742 //    return TRUE;
 743     USHORT nId;
 744
 745     if( !m_bIdleInserted )
 746     {
 747 #ifdef TIMERIDLE
 748         m_aIdleTimer.SetTimeoutHdl( LINK( this, ImplRemoteControl, IdleHdl ) );
 749         m_aIdleTimer.SetTimeout( 500 );
 750         m_aIdleTimer.Start();
 751 #else
 752         GetpApp()->InsertIdleHdl( LINK( this, ImplRemoteControl, IdleHdl ), 1 );
 753 #endif
 754         m_bIdleInserted = TRUE;
 755     }
 756
 757
 758     StatementList::bReadingCommands = TRUE;
 759
 760 #if OSL_DEBUG_LEVEL > 1
 761     if (!m_pDbgWin->bQuiet)
 762         m_pDbgWin->Show();
 763     m_pDbgWin->AddText( "Reading " );
 764     m_pDbgWin->AddText( String::CreateFromInt64( nServiceId ) );
 765     m_pDbgWin->AddText( " :\n" );
 766 #endif
 767
 768     if( nServiceId != SI_IPCCommandBlock && nServiceId != SI_DirectCommandBlock )
 769     {
 770         DBG_ERROR1( "Ungültiger Request :%i", (int)nServiceId );
 771         return FALSE;
 772     }
 773
 774     SCmdStream *pCmdStream = new SCmdStream(pIn);
 775
 776     pCmdStream->Read( nId );
 777     while( !pIn->IsEof() )
 778     {
 779         switch( nId )
 780         {
 781             case SICommand:
 782             {
 783                 new StatementCommand( pCmdStream );     // Wird im Konstruktor an Liste angehängt
 784                 break;
 785             }
 786             case SIControl:
 787             case SIStringControl:
 788             {
 789                 new StatementControl( pCmdStream, nId );     // Wird im Konstruktor an Liste angehängt
 790                 break;
 791             }
 792             case SISlot:
 793             {
 794                 new StatementSlot( pCmdStream );    // Wird im Konstruktor an Liste angehängt
 795                 break;
 796             }
 797             case SIUnoSlot:
 798             {
 799                 new StatementUnoSlot( pCmdStream );    // Wird im Konstruktor an Liste angehängt
 800                 break;
 801             }
 802             case SIFlow:
 803             {
 804                 new StatementFlow( nServiceId, pCmdStream, this );              // Wird im Konstruktor an Liste angehängt
 805                 break;
 806             }
 807             default:
 808                 DBG_ERROR1( "Unbekannter Request Nr:%i", nId );
 809                 break;
 810         }
 811         if( !pIn->IsEof() )
 812             pCmdStream->Read( nId );
 813         else {
 814             DBG_ERROR( "truncated input stream" );
 815         }
 816     }
 817
 818     StatementList::bReadingCommands = FALSE;
 819
 820     delete pCmdStream;
 821 #if OSL_DEBUG_LEVEL > 1
 822     m_pDbgWin->AddText( "Done Reading " );
 823     m_pDbgWin->AddText( String::CreateFromInt64( nServiceId ) );
 824     m_pDbgWin->AddText( " :\n" );
 825 #endif
 826     if ( !m_bInsideExecutionLoop )
 827     {
 828 #ifdef DEBUG
 829         m_pDbgWin->AddText( "Posting Event for CommandHdl.\n" );
 830 #endif
 831
 832         GetpApp()->PostUserEvent( LINK( this, ImplRemoteControl, CommandHdl ) );
 833     }
 834 #ifdef DEBUG
 835     else
 836         m_bInsideExecutionLoop = TRUE;
 837 #endif
 838     return TRUE;
 839 } // BOOL ImplRemoteControl::QueCommands( ULONG nServiceId, SvStream *pIn )
 840
 841
 842 SvStream* ImplRemoteControl::GetReturnStream()
 843 {
 844     SvStream* pTemp = pRetStream;
 845     pRetStream = NULL;
 846     return pTemp;
 847 }
 848
 849 ImplRemoteControl::ImplRemoteControl()
 850 : m_bIdleInserted( FALSE )
 851 , m_bInsideExecutionLoop( FALSE )
 852 #if OSL_DEBUG_LEVEL > 1
 853 , m_pDbgWin(NULL)
 854 #endif
 855 , pRetStream(NULL)
 856 {
 857 #if OSL_DEBUG_LEVEL > 1
 858     if ( RemoteControlCommunicationManager::GetPort() != TT_NO_PORT_DEFINED || RemoteControlCommunicationManager::nComm )
 859     {
 860         m_pDbgWin = new EditWindow( NULL, CUniString("Debug Window"), WB_VSCROLL );
 861         m_pDbgWin->bQuiet = TRUE;
 862         m_pDbgWin->Hide();
 863         StatementList::m_pDbgWin = m_pDbgWin;
 864     }
 865 #endif
 866     if ( RemoteControlCommunicationManager::GetPort() == TT_NO_PORT_DEFINED )
 867         pServiceMgr = NULL;
 868     else
 869     {
 870 #if OSL_DEBUG_LEVEL > 1
 871         pServiceMgr = new RemoteControlCommunicationManager( m_pDbgWin );
 872 #else
 873         pServiceMgr = new RemoteControlCommunicationManager();
 874 #endif
 875         pServiceMgr->SetDataReceivedHdl( LINK( this, ImplRemoteControl, QueCommandsEvent ) );
 876         pServiceMgr->StartCommunication();
 877
 878 #ifdef DBG_UTIL
 879         DbgSetPrintTestTool( TestToolDebugPrint );
 880         // first change it, so we get the original Pointer
 881         StatementCommand::pOriginal_osl_DebugMessageFunc = osl_setDebugMessageFunc( osl_TestToolDebugPrint );
 882         if ( DbgGetErrorOut() != DBG_OUT_TESTTOOL )
 883             osl_setDebugMessageFunc( StatementCommand::pOriginal_osl_DebugMessageFunc );
 884 #endif
 885     }
 886     if ( RemoteControlCommunicationManager::nComm )
 887         new ExtraIdle( this );          // Setzt die Bearbeitung wieder auf
 888 }
 889
 890 ImplRemoteControl::~ImplRemoteControl()
 891 {
 892     if ( MacroRecorder::HasMacroRecorder() )
 893         MacroRecorder::GetMacroRecorder()->SetActionRecord( FALSE );   // Will delete MacroRecorder if necessary
 894
 895
 896     StatementList::bDying = TRUE;
 897 #if OSL_DEBUG_LEVEL > 1
 898     if ( m_pDbgWin )
 899         m_pDbgWin->bQuiet = TRUE;       // Keine Ausgabe mehr im Debugwindow
 900 #endif
 901
 902 #ifdef DBG_UTIL
 903     // Zurücksetzen, so daß nachfolgende Assertions nicht verloren gehen
 904     DbgSetPrintTestTool( NULL );
 905     osl_setDebugMessageFunc( StatementCommand::pOriginal_osl_DebugMessageFunc );
 906 #endif
 907
 908     if ( StatementList::pFirst )
 909     {   // Es sind noch Kommandos da, also auch eine Möglichkeit zurückzusenden.
 910         StatementList::pFirst->ReportError( GEN_RES_STR0( S_APP_SHUTDOWN ) );
 911         while ( StatementList::pFirst )                         // Kommandos werden übersprungen
 912             StatementList::NormalReschedule();          // Fehler zurückgeschickt
 913     }
 914
 915     if ( pServiceMgr )
 916         pServiceMgr->StopCommunication();
 917
 918     if ( GetTTSettings()->pDisplayHidWin )
 919     {
 920         delete (Window*)(GetTTSettings()->pDisplayHidWin);
 921         GetTTSettings()->pDisplayHidWin = NULL;
 922     }
 923     if ( GetTTSettings()->pTranslateWin )
 924     {
 925         delete (Window*)(GetTTSettings()->pTranslateWin);
 926         GetTTSettings()->pTranslateWin = NULL;
 927     }
 928 #if OSL_DEBUG_LEVEL > 1
 929     delete m_pDbgWin;
 930 #endif
 931     if( m_bIdleInserted )
 932     {
 933 #ifdef TIMERIDLE
 934         m_aIdleTimer.Stop();
 935 #else
 936         GetpApp()->RemoveIdleHdl( LINK( this, ImplRemoteControl, IdleHdl ) );
 937 #endif
 938         m_bIdleInserted = FALSE;
 939     }
 940     delete pServiceMgr;
 941 }
 942
 943 RemoteControl::RemoteControl()
 944 {
 945     pImpl = new ImplRemoteControl;
 946 }
 947
 948 RemoteControl::~RemoteControl()
 949 {
 950     delete pImpl;
 951 }
 952
 953 static ::osl::Mutex aMutex;
 954 static RemoteControl* pRemoteControl = 0;
 955 extern "C" void CreateRemoteControl()
 956 {
 957     if ( !pRemoteControl )
 958     {
 959         ::osl::MutexGuard aGuard( aMutex );
 960         if ( !pRemoteControl )
 961             pRemoteControl = new RemoteControl();
 962     }
 963 }
 964
 965 extern "C" void DestroyRemoteControl()
 966 {
 967     ::osl::MutexGuard aGuard( aMutex );
 968     delete pRemoteControl;
 969     pRemoteControl = 0;
 970 }
 971
 972 extern "C" void CreateEventLogger()
 973 {
 974     MacroRecorder::GetMacroRecorder()->SetActionLog();
 975 }
 976
 977 extern "C" void DestroyEventLogger()
 978 {
 979     MacroRecorder::GetMacroRecorder()->SetActionLog( FALSE );   // Will delete MacroRecorder if necessary
 980 }
 981