sw/source/ui/shells/langhelper.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: langhelper.cxx,v $
  10  * $Revision: 1.4 $
  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_sw.hxx"
  33
  34 #include <string.h>
  35
  36 #include <vcl/window.hxx>
  37
  38 #include <wrtsh.hxx>
  39
  40 #include <sfx2/bindings.hxx>
  41 #include <sfx2/dispatch.hxx>
  42 #include <sfx2/request.hxx>
  43 #include <svx/eeitem.hxx>
  44 #include <svx/editeng.hxx>
  45 #include <svx/editdata.hxx>
  46 #include <svx/outliner.hxx>
  47 #include <svx/editview.hxx>
  48 #include <svx/scripttypeitem.hxx>
  49 #include <svx/langitem.hxx>
  50
  51 #include <svtools/languageoptions.hxx>
  52 #include <svtools/langtab.hxx>
  53 #include <svtools/slstitm.hxx>
  54 #include <svtools/svstdarr.hxx>
  55 #include <svtools/stritem.hxx>
  56
  57 #include <ndtxt.hxx>
  58 #include <pam.hxx>
  59 #include <view.hxx>
  60 #include <viewopt.hxx>
  61
  62 #include "swabstdlg.hxx"
  63
  64 #include <vcl/msgbox.hxx>
  65
  66 #include <langhelper.hxx>
  67
  68 using namespace ::com::sun::star;
  69
  70 namespace SwLangHelper
  71 {
  72     USHORT GetLanguageStatus(OutlinerView* pOLV,SfxItemSet& rSet)
  73     {
  74         ESelection aSelection = pOLV->GetSelection();
  75         EditView& rEditView=pOLV->GetEditView();
  76         EditEngine* pEditEngine=rEditView.GetEditEngine();
  77
  78         // the value of used script types
  79         const USHORT nScriptType =pOLV->GetSelectedScriptType();
  80         String aScriptTypesInUse( String::CreateFromInt32( nScriptType ) );//pEditEngine->GetScriptType(aSelection)
  81
  82         SvtLanguageTable aLangTable;
  83
  84         // get keyboard language
  85         String aKeyboardLang;
  86         LanguageType nLang = LANGUAGE_DONTKNOW;
  87
  88         Window* pWin = rEditView.GetWindow();
  89         if(pWin)
  90             nLang = pWin->GetInputLanguage();
  91         if (nLang != LANGUAGE_DONTKNOW && nLang != LANGUAGE_SYSTEM)
  92             aKeyboardLang = aLangTable.GetString( nLang );
  93
  94         // get the language that is in use
  95         const String aMultipleLanguages = String::CreateFromAscii("*");
  96         String aCurrentLang = aMultipleLanguages;
  97         SfxItemSet aSet(pOLV->GetAttribs());
  98         nLang = SwLangHelper::GetCurrentLanguage( aSet,nScriptType );
  99         if (nLang != LANGUAGE_DONTKNOW)
 100             aCurrentLang = aLangTable.GetString( nLang );
 101
 102         // build sequence for status value
 103         uno::Sequence< ::rtl::OUString > aSeq( 4 );
 104         aSeq[0] = aCurrentLang;
 105         aSeq[1] = aScriptTypesInUse;
 106         aSeq[2] = aKeyboardLang;
 107         aSeq[3] = SwLangHelper::GetTextForLanguageGuessing( pEditEngine, aSelection );
 108
 109         // set sequence as status value
 110         SfxStringListItem aItem( SID_LANGUAGE_STATUS );
 111         aItem.SetStringList( aSeq );
 112         rSet.Put( aItem, SID_LANGUAGE_STATUS );
 113         return 0;
 114     }
 115
 116     bool SetLanguageStatus(OutlinerView* pOLV,SfxRequest &rReq,SwView &rView,SwWrtShell &rSh)
 117     {
 118         bool bRestoreSelection = false;
 119         SfxItemSet aEditAttr(pOLV->GetAttribs());
 120         ESelection   aSelection  = pOLV->GetSelection();
 121         EditView   & rEditView   = pOLV->GetEditView();
 122         EditEngine * pEditEngine = rEditView.GetEditEngine();
 123
 124         // get the language
 125         String aNewLangTxt;
 126
 127         SFX_REQUEST_ARG( rReq, pItem, SfxStringItem, SID_LANGUAGE_STATUS , sal_False );
 128         if (pItem)
 129             aNewLangTxt = pItem->GetValue();
 130
 131         //!! Remember the view frame right now...
 132         //!! (call to GetView().GetViewFrame() will break if the
 133         //!! SwTextShell got destroyed meanwhile.)
 134         SfxViewFrame *pViewFrame = rView.GetViewFrame();
 135
 136             if (aNewLangTxt.EqualsAscii( "*" ))
 137             {
 138                 // open the dialog "Tools/Options/Language Settings - Language"
 139                 SfxAbstractDialogFactory* pFact = SfxAbstractDialogFactory::Create();
 140                 if (pFact)
 141                 {
 142                     VclAbstractDialog* pDlg = pFact->CreateVclDialog( rView.GetWindow(), SID_LANGUAGE_OPTIONS );
 143                     pDlg->Execute();
 144                     delete pDlg;
 145                 }
 146             }
 147             else
 148             {
 149                 // setting the new language...
 150                 if (aNewLangTxt.Len() > 0)
 151                 {
 152                     const String aSelectionLangPrefix( String::CreateFromAscii("Current_") );
 153                     const String aParagraphLangPrefix( String::CreateFromAscii("Paragraph_") );
 154                     const String aDocumentLangPrefix( String::CreateFromAscii("Default_") );
 155                     const String aStrNone( String::CreateFromAscii("LANGUAGE_NONE") );
 156
 157                     xub_StrLen nPos = 0;
 158                     bool bForSelection = true;
 159                     bool bForParagraph = false;
 160                     if (STRING_NOTFOUND != (nPos = aNewLangTxt.Search( aSelectionLangPrefix, 0 )))
 161                     {
 162                         // ... for the current selection
 163                         aNewLangTxt = aNewLangTxt.Erase( nPos, aSelectionLangPrefix.Len() );
 164                         bForSelection = true;
 165                     }
 166                     else if (STRING_NOTFOUND != (nPos = aNewLangTxt.Search( aParagraphLangPrefix , 0 )))
 167                     {
 168                         // ... for the current paragraph language
 169                         aNewLangTxt = aNewLangTxt.Erase( nPos, aParagraphLangPrefix.Len() );
 170                         bForSelection = true;
 171                         bForParagraph = true;
 172                     }
 173                     else if (STRING_NOTFOUND != (nPos = aNewLangTxt.Search( aDocumentLangPrefix , 0 )))
 174                     {
 175                         // ... as default document language
 176                         aNewLangTxt = aNewLangTxt.Erase( nPos, aDocumentLangPrefix.Len() );
 177                         bForSelection = false;
 178                     }
 179
 180                     if (bForParagraph)
 181                     {
 182                         bRestoreSelection = true;
 183                         SwLangHelper::SelectPara( rEditView, aSelection );
 184                         aSelection = pOLV->GetSelection();
 185                     }
 186                     if (!bForSelection) // document language to be changed...
 187                     {
 188                         rSh.StartAction();
 189                         rSh.LockView( TRUE );
 190                         rSh.Push();
 191
 192                         // prepare to apply new language to all text in document
 193                         rSh.SelAll();
 194                         rSh.ExtendedSelectAll();
 195                     }
 196
 197                     if (aNewLangTxt != aStrNone)
 198                         SwLangHelper::SetLanguage( rSh, pEditEngine, aSelection, aNewLangTxt, bForSelection, aEditAttr );
 199                     else
 200                         SwLangHelper::SetLanguage_None( rSh, pEditEngine, aSelection, bForSelection, aEditAttr );
 201
 202                     // ugly hack, as it seems that EditView/EditEngine does not update their spellchecking marks
 203                     // when setting a new language attribute
 204                     if (bForSelection)
 205                     {
 206                         const SwViewOption* pVOpt = rView.GetWrtShellPtr()->GetViewOptions();
 207                         ULONG nCntrl = pEditEngine->GetControlWord();
 208                         // turn off
 209                         if (!pVOpt->IsOnlineSpell())
 210                             nCntrl &= ~EE_CNTRL_ONLINESPELLING;
 211                         else
 212                             nCntrl &= ~EE_CNTRL_ONLINESPELLING;
 213                         pEditEngine->SetControlWord(nCntrl);
 214
 215                         //turn back on
 216                         if (pVOpt->IsOnlineSpell())
 217                             nCntrl |= EE_CNTRL_ONLINESPELLING;
 218                         else
 219                             nCntrl &= ~EE_CNTRL_ONLINESPELLING;
 220                         pEditEngine->SetControlWord(nCntrl);
 221
 222                         pEditEngine->CompleteOnlineSpelling();
 223                         rEditView.Invalidate();
 224                     }
 225
 226                     if (!bForSelection)
 227                     {
 228                         // need to release view and restore selection...
 229                         rSh.Pop( FALSE );
 230                         rSh.LockView( FALSE );
 231                         rSh.EndAction();
 232                     }
 233                 }
 234             }
 235
 236             // invalidate slot to get the new language displayed
 237             pViewFrame->GetBindings().Invalidate( rReq.GetSlot() );
 238
 239             rReq.Done();
 240             return bRestoreSelection;
 241     }
 242
 243
 244     void SetLanguage(SwWrtShell &rWrtSh, const String &rLangText, bool bIsForSelection, SfxItemSet &rCoreSet)
 245     {
 246         SetLanguage(rWrtSh,0,ESelection(),rLangText,bIsForSelection,rCoreSet);
 247     }
 248
 249     void SetLanguage(SwWrtShell &rWrtSh, EditEngine* pEditEngine,ESelection aSelection, const String &rLangText, bool bIsForSelection, SfxItemSet &rCoreSet)
 250     {
 251         const LanguageType nLang = SvtLanguageTable().GetType( rLangText );
 252         if (nLang != LANGUAGE_DONTKNOW)
 253         {
 254             USHORT nScriptType = SvtLanguageOptions::GetScriptTypeOfLanguage( nLang );
 255
 256             //get ScriptType
 257             USHORT nLangWhichId = 0;
 258             bool bIsSingleScriptType = true;
 259             switch (nScriptType)
 260             {
 261                 case SCRIPTTYPE_LATIN :    nLangWhichId = pEditEngine ? EE_CHAR_LANGUAGE : RES_CHRATR_LANGUAGE; break;
 262                 case SCRIPTTYPE_ASIAN :    nLangWhichId = pEditEngine ? EE_CHAR_LANGUAGE_CJK : RES_CHRATR_CJK_LANGUAGE; break;
 263                 case SCRIPTTYPE_COMPLEX :  nLangWhichId = pEditEngine ? EE_CHAR_LANGUAGE_CTL : RES_CHRATR_CTL_LANGUAGE; break;
 264                 default:
 265                     bIsSingleScriptType = false;
 266                     DBG_ERROR( "unexpected case" );
 267             }
 268             if (bIsSingleScriptType)
 269             {
 270                 if (bIsForSelection)
 271                 {
 272                     // apply language to current selection
 273                     if (pEditEngine)
 274                     {
 275                         rCoreSet.Put( SvxLanguageItem( nLang, nLangWhichId ));
 276                         pEditEngine->QuickSetAttribs( rCoreSet, aSelection);
 277                     }
 278                     else
 279                     {
 280                         rWrtSh.GetCurAttr( rCoreSet );
 281                         rCoreSet.Put( SvxLanguageItem( nLang, nLangWhichId ));
 282                         rWrtSh.SetAttr( rCoreSet );
 283                     }
 284                 }
 285                 else // change document language
 286                 {
 287                     // set document default language
 288                     switch (nLangWhichId)
 289                     {
 290                          case EE_CHAR_LANGUAGE :      nLangWhichId = RES_CHRATR_LANGUAGE; break;
 291                          case EE_CHAR_LANGUAGE_CJK :  nLangWhichId = RES_CHRATR_CJK_LANGUAGE; break;
 292                          case EE_CHAR_LANGUAGE_CTL :  nLangWhichId = RES_CHRATR_CTL_LANGUAGE; break;
 293                     }
 294                     rWrtSh.SetDefault( SvxLanguageItem( nLang, nLangWhichId ) );
 295
 296                     // set respective language attribute in text document to default
 297                     // (for all text in the document - which should be selected by now...)
 298                     SvUShortsSort aAttribs;
 299                     aAttribs.Insert( nLangWhichId );
 300                     rWrtSh.ResetAttr( &aAttribs );
 301                 }
 302             }
 303         }
 304     }
 305
 306     void SetLanguage_None(SwWrtShell &rWrtSh,bool bIsForSelection, SfxItemSet &rCoreSet )
 307     {
 308         SetLanguage_None(rWrtSh,0,ESelection(),bIsForSelection,rCoreSet);
 309     }
 310
 311     void SetLanguage_None(SwWrtShell &rWrtSh, EditEngine* pEditEngine,ESelection aSelection, bool bIsForSelection, SfxItemSet &rCoreSet )
 312     {
 313         // EditEngine IDs
 314         const USHORT aLangWhichId_EE[3] =
 315         {
 316             EE_CHAR_LANGUAGE,
 317             EE_CHAR_LANGUAGE_CJK,
 318             EE_CHAR_LANGUAGE_CTL
 319         };
 320
 321         // Writewr IDs
 322         const USHORT aLangWhichId_Writer[3] =
 323         {
 324             RES_CHRATR_LANGUAGE,
 325             RES_CHRATR_CJK_LANGUAGE,
 326             RES_CHRATR_CTL_LANGUAGE
 327         };
 328
 329         if (bIsForSelection)
 330         {
 331             // apply language to current selection
 332             if (pEditEngine)
 333             {
 334                 for (sal_uInt16 i = 0; i < 3; ++i)
 335                     rCoreSet.Put( SvxLanguageItem( LANGUAGE_NONE, aLangWhichId_EE[i] ));
 336                 pEditEngine->QuickSetAttribs( rCoreSet, aSelection);
 337             }
 338             else
 339             {
 340                 rWrtSh.GetCurAttr( rCoreSet );
 341                 for (sal_uInt16 i = 0; i < 3; ++i)
 342                     rCoreSet.Put( SvxLanguageItem( LANGUAGE_NONE, aLangWhichId_Writer[i] ));
 343                 rWrtSh.SetAttr( rCoreSet );
 344             }
 345         }
 346         else // change document language
 347         {
 348             SvUShortsSort aAttribs;
 349             for (sal_uInt16 i = 0; i < 3; ++i)
 350             {
 351                 rWrtSh.SetDefault( SvxLanguageItem( LANGUAGE_NONE, aLangWhichId_Writer[i] ) );
 352                 aAttribs.Insert( aLangWhichId_Writer[i] );
 353             }
 354
 355             // set all language attributes to default
 356             // (for all text in the document - which should be selected by now...)
 357             rWrtSh.ResetAttr( &aAttribs );
 358         }
 359     }
 360
 361     /// @returns : the language for the selected text that is set for the
 362     ///     specified attribute (script type).
 363     ///     If there are more than one languages used LANGUAGE_DONTKNOW will be returned.
 364     /// @param nLangWhichId : one of
 365     ///     RES_CHRATR_LANGUAGE, RES_CHRATR_CJK_LANGUAGE, RES_CHRATR_CTL_LANGUAGE,
 366     LanguageType GetLanguage( SwWrtShell &rSh, USHORT nLangWhichId )
 367     {
 368         SfxItemSet aSet( rSh.GetAttrPool(), nLangWhichId, nLangWhichId );
 369         rSh.GetCurAttr( aSet );
 370
 371         return GetLanguage(aSet,nLangWhichId);
 372     }
 373
 374     LanguageType GetLanguage( SfxItemSet aSet, USHORT nLangWhichId )
 375     {
 376
 377         LanguageType nLang = LANGUAGE_SYSTEM;
 378
 379         const SfxPoolItem *pItem = 0;
 380         SfxItemState nState = aSet.GetItemState( nLangWhichId, TRUE, &pItem );
 381         if (nState > SFX_ITEM_DEFAULT && pItem)
 382         {
 383             // the item is set and can be used
 384             nLang = (dynamic_cast< const SvxLanguageItem* >(pItem))->GetLanguage();
 385         }
 386         else if (nState == SFX_ITEM_DEFAULT)
 387         {
 388             // since the attribute is not set: retrieve the default value
 389             nLang = (dynamic_cast< const SvxLanguageItem& >(aSet.GetPool()->GetDefaultItem( nLangWhichId ))).GetLanguage();
 390         }
 391         else if (nState == SFX_ITEM_DONTCARE)
 392         {
 393             // there is more than one language...
 394             nLang = LANGUAGE_DONTKNOW;
 395         }
 396         DBG_ASSERT( nLang != LANGUAGE_SYSTEM, "failed to get the language?" );
 397
 398         return nLang;
 399     }
 400
 401     /// @returns: the language in use for the selected text.
 402     ///     'In use' means the language(s) matching the script type(s) of the
 403     ///     selected text. Or in other words, the language a spell checker would use.
 404     ///     If there is more than one language LANGUAGE_DONTKNOW will be returned.
 405     LanguageType GetCurrentLanguage( SwWrtShell &rSh )
 406     {
 407         // get all script types used in current selection
 408         const USHORT nScriptType = rSh.GetScriptType();
 409
 410         //set language attribute to use according to the script type
 411         USHORT nLangWhichId = 0;
 412         bool bIsSingleScriptType = true;
 413         switch (nScriptType)
 414         {
 415              case SCRIPTTYPE_LATIN :    nLangWhichId = RES_CHRATR_LANGUAGE; break;
 416              case SCRIPTTYPE_ASIAN :    nLangWhichId = RES_CHRATR_CJK_LANGUAGE; break;
 417              case SCRIPTTYPE_COMPLEX :  nLangWhichId = RES_CHRATR_CTL_LANGUAGE; break;
 418              default: bIsSingleScriptType = false; break;
 419         }
 420
 421         // get language according to the script type(s) in use
 422         LanguageType nCurrentLang = LANGUAGE_SYSTEM;
 423         if (bIsSingleScriptType)
 424             nCurrentLang = GetLanguage( rSh, nLangWhichId );
 425         else
 426         {
 427             // check if all script types are set to LANGUAGE_NONE and return
 428             // that if this is the case. Otherwise, having multiple script types
 429             // in use always means there are several languages in use...
 430             const USHORT aScriptTypes[3] =
 431             {
 432                 RES_CHRATR_LANGUAGE,
 433                 RES_CHRATR_CJK_LANGUAGE,
 434                 RES_CHRATR_CTL_LANGUAGE
 435             };
 436             nCurrentLang = LANGUAGE_NONE;
 437             for (sal_uInt16 i = 0; i < 3; ++i)
 438             {
 439                 LanguageType nTmpLang = GetLanguage( rSh, aScriptTypes[i] );
 440                 if (nTmpLang != LANGUAGE_NONE)
 441                 {
 442                     nCurrentLang = LANGUAGE_DONTKNOW;
 443                     break;
 444                 }
 445             }
 446         }
 447         DBG_ASSERT( nCurrentLang != LANGUAGE_SYSTEM, "failed to get the language?" );
 448
 449         return nCurrentLang;
 450     }
 451
 452     /// @returns: the language in use for the selected text.
 453     ///     'In use' means the language(s) matching the script type(s) of the
 454     ///     selected text. Or in other words, the language a spell checker would use.
 455     ///     If there is more than one language LANGUAGE_DONTKNOW will be returned.
 456     LanguageType GetCurrentLanguage(SfxItemSet aSet,USHORT nScriptType )
 457     {
 458         //set language attribute to use according to the script type
 459         USHORT nLangWhichId = 0;
 460         bool bIsSingleScriptType = true;
 461         switch (nScriptType)
 462         {
 463              case SCRIPTTYPE_LATIN :    nLangWhichId = EE_CHAR_LANGUAGE; break;
 464              case SCRIPTTYPE_ASIAN :    nLangWhichId = EE_CHAR_LANGUAGE_CJK; break;
 465              case SCRIPTTYPE_COMPLEX :  nLangWhichId = EE_CHAR_LANGUAGE_CTL; break;
 466              default: bIsSingleScriptType = false;
 467         }
 468
 469         // get language according to the script type(s) in use
 470         LanguageType nCurrentLang = LANGUAGE_SYSTEM;
 471         if (bIsSingleScriptType)
 472             nCurrentLang = GetLanguage( aSet, nLangWhichId );
 473         else
 474         {
 475             // check if all script types are set to LANGUAGE_NONE and return
 476             // that if this is the case. Otherwise, having multiple script types
 477             // in use always means there are several languages in use...
 478             const USHORT aScriptTypes[3] =
 479             {
 480                 EE_CHAR_LANGUAGE,
 481                 EE_CHAR_LANGUAGE_CJK,
 482                 EE_CHAR_LANGUAGE_CTL
 483             };
 484             nCurrentLang = LANGUAGE_NONE;
 485             for (sal_uInt16 i = 0; i < 3; ++i)
 486             {
 487                 LanguageType nTmpLang = GetLanguage( aSet, aScriptTypes[i] );
 488                 if (nTmpLang != LANGUAGE_NONE)
 489                 {
 490                     nCurrentLang = LANGUAGE_DONTKNOW;
 491                     break;
 492                 }
 493             }
 494         }
 495         DBG_ASSERT( nCurrentLang != LANGUAGE_SYSTEM, "failed to get the language?" );
 496
 497         return nCurrentLang;
 498     }
 499
 500     String GetTextForLanguageGuessing( SwWrtShell &rSh )
 501     {
 502         // string for guessing language
 503         String aText;
 504         SwPaM *pCrsr = rSh.GetCrsr();
 505         SwTxtNode *pNode = pCrsr->GetNode()->GetTxtNode();
 506         if (pNode)
 507         {
 508             aText = pNode->GetTxt();
 509             if (aText.Len() > 0)
 510             {
 511                 xub_StrLen nStt = 0;
 512                 xub_StrLen nEnd = pCrsr->GetPoint()->nContent.GetIndex();
 513                 // at most 100 chars to the left...
 514                 nStt = nEnd > 100 ? nEnd - 100 : 0;
 515                 // ... and 100 to the right of the cursor position
 516                 nEnd = aText.Len() - nEnd > 100 ? nEnd + 100 : aText.Len();
 517                 aText = aText.Copy( nStt, nEnd - nStt );
 518             }
 519         }
 520         return aText;
 521     }
 522
 523     String GetTextForLanguageGuessing(EditEngine* rEditEngine, ESelection aDocSelection )
 524     {
 525         // string for guessing language
 526         String aText;
 527
 528         aText = rEditEngine->GetText(aDocSelection);
 529         if (aText.Len() > 0)
 530         {
 531             xub_StrLen nStt = 0;
 532             xub_StrLen nEnd = aDocSelection.nEndPos;
 533             // at most 100 chars to the left...
 534             nStt = nEnd > 100 ? nEnd - 100 : 0;
 535             // ... and 100 to the right of the cursor position
 536             nEnd = aText.Len() - nEnd > 100 ? nEnd + 100 : aText.Len();
 537             aText = aText.Copy( nStt, nEnd - nStt );
 538         }
 539
 540         return aText;
 541     }
 542
 543
 544     void SelectPara( EditView &rEditView, const ESelection &rCurSel )
 545     {
 546         ESelection aParaSel( rCurSel.nStartPara, 0, rCurSel.nStartPara, USHRT_MAX );
 547         rEditView.SetSelection( aParaSel );
 548     }
 549
 550     void SelectCurrentPara( SwWrtShell &rWrtSh )
 551     {
 552         // select current para
 553         if (!rWrtSh.IsSttPara())
 554             rWrtSh.MovePara( fnParaCurr, fnParaStart );
 555         if (!rWrtSh.HasMark())
 556             rWrtSh.SetMark();
 557         rWrtSh.SwapPam();
 558         if (!rWrtSh.IsEndPara())
 559             rWrtSh.MovePara( fnParaCurr, fnParaEnd );
 560     #if OSL_DEBUG_LEVEL > 1
 561         String aSelTxt;
 562         rWrtSh.GetSelectedText( aSelTxt );
 563         (void) aSelTxt;
 564     #endif
 565     }
 566 }
 567