sw/source/ui/lingu/olmenu.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: olmenu.cxx,v $
  10  * $Revision: 1.41 $
  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 <hintids.hxx>
  35
  36 #ifndef _SVSTDARR_HXX
  37 #define _SVSTDARR_STRINGSDTOR
  38 #include <svtools/svstdarr.hxx>
  39 #endif
  40 #include <svtools/lingucfg.hxx>
  41 #include <svtools/linguprops.hxx>
  42 #include <svtools/filter.hxx>
  43 #include <svx/impgrf.hxx>
  44 #include <svx/svxacorr.hxx>
  45 #include <sfx2/dispatch.hxx>
  46 #include <sfx2/imagemgr.hxx>
  47 #include <osl/file.hxx>
  48 #include <rtl/string.hxx>
  49
  50 #include <i18npool/mslangid.hxx>
  51 #include <linguistic/lngprops.hxx>
  52 #include <linguistic/misc.hxx>
  53 #include <comphelper/processfactory.hxx>
  54 #include <svx/unolingu.hxx>
  55 #include <com/sun/star/uno/Any.hxx>
  56 #include <com/sun/star/frame/XStorable.hpp>
  57 #include <com/sun/star/linguistic2/XSpellChecker1.hpp>
  58 #include <com/sun/star/linguistic2/XLanguageGuessing.hpp>
  59 #include <com/sun/star/linguistic2/SingleProofreadingError.hpp>
  60 #include <com/sun/star/lang/XServiceInfo.hpp>
  61 #include <com/sun/star/container/XIndexAccess.hpp>
  62 #include <com/sun/star/container/XNameAccess.hpp>
  63 #include <com/sun/star/frame/XModuleManager.hpp>
  64 #include <com/sun/star/lang/XMultiServiceFactory.hpp>
  65 #include <com/sun/star/i18n/ScriptType.hpp>
  66 #include <svx/dlgutil.hxx>
  67 #include <svtools/itemset.hxx>
  68 #include <svx/langitem.hxx>
  69 #include <svx/splwrap.hxx>
  70 #include <vcl/svapp.hxx>
  71 #include <vcl/settings.hxx>
  72 #include <svtools/lingucfg.hxx>
  73 #include <svx/acorrcfg.hxx>
  74 #include <swmodule.hxx>
  75 #include <cmdid.h>
  76 #include <helpid.h>
  77 #include <swtypes.hxx>
  78 #include <wrtsh.hxx>
  79 #include <view.hxx>
  80 #include <docsh.hxx>            //CheckSpellChanges
  81 #include <olmenu.hxx>
  82 #include <swundo.hxx>
  83 #include <crsskip.hxx>
  84 #include <ndtxt.hxx>
  85 #include <olmenu.hrc>
  86 #include <doc.hxx>
  87
  88 // -> #111827#
  89 #include <SwRewriter.hxx>
  90 #include <comcore.hrc>
  91 #include <undobj.hxx>
  92 // <- #111827#
  93
  94 #include <unomid.h>
  95 #include <svtools/languageoptions.hxx>
  96 #include <map>
  97 #include <svtools/langtab.hxx>
  98 #include <com/sun/star/document/XDocumentLanguages.hpp>
  99 #include <edtwin.hxx>
 100 #include <sfx2/sfxdlg.hxx>
 101 #include "swabstdlg.hxx"
 102 #include "chrdlg.hrc"
 103 #include <svx/brshitem.hxx>
 104 #include <svtools/stritem.hxx>
 105 #include <viewopt.hxx>
 106 #include <uitool.hxx>
 107
 108 #include <wview.hxx>
 109 #include <sfx2/request.hxx>
 110
 111 #include <vcl/msgbox.hxx>
 112
 113 #include <langhelper.hxx>
 114
 115 using namespace ::com::sun::star;
 116 using ::rtl::OUString;
 117
 118 extern void lcl_CharDialog( SwWrtShell &rWrtSh, BOOL bUseDialog, USHORT nSlot,const SfxItemSet *pArgs, SfxRequest *pReq );
 119
 120
 121 /*--------------------------------------------------------------------------
 122
 123 ---------------------------------------------------------------------------*/
 124
 125 // tries to determine the language of 'rText'
 126 //
 127 LanguageType lcl_CheckLanguage(
 128     const OUString &rText,
 129     uno::Reference< linguistic2::XSpellChecker1 > xSpell,
 130     uno::Reference< linguistic2::XLanguageGuessing > xLangGuess,
 131     sal_Bool bIsParaText )
 132 {
 133     LanguageType  nLang = LANGUAGE_NONE;
 134     if (bIsParaText)    // check longer texts with language-guessing...
 135     {
 136         if (!xLangGuess.is())
 137             return nLang;
 138
 139         lang::Locale aLocale( xLangGuess->guessPrimaryLanguage( rText, 0, rText.getLength()) );
 140
 141         // get language as from "Tools/Options - Language Settings - Languages: Locale setting"
 142         LanguageType nTmpLang = Application::GetSettings().GetLanguage();
 143
 144         // if the result from language guessing does not provide a 'Country' part
 145         // try to get it by looking up the locale setting of the office.
 146         if (aLocale.Country.getLength() == 0)
 147         {
 148             lang::Locale aTmpLocale = SvxCreateLocale( nTmpLang );
 149             if (aTmpLocale.Language == aLocale.Language)
 150                 nLang = nTmpLang;
 151         }
 152         if (nLang == LANGUAGE_NONE) // language not found by looking up the system language...
 153             nLang = MsLangId::convertLocaleToLanguageWithFallback( aLocale );
 154         if (nLang == LANGUAGE_SYSTEM)
 155             nLang = nTmpLang;
 156         if (nLang == LANGUAGE_DONTKNOW)
 157             nLang = LANGUAGE_NONE;
 158     }
 159     else        // check single word
 160     {
 161             if (!xSpell.is())
 162             return nLang;
 163
 164         //
 165         // build list of languages to check
 166         //
 167         LanguageType aLangList[4];
 168         const AllSettings& rSettings  = Application::GetSettings();
 169         SvtLinguOptions aLinguOpt;
 170         SvtLinguConfig().GetOptions( aLinguOpt );
 171         // The default document language from "Tools/Options - Language Settings - Languages: Western"
 172         aLangList[0] = MsLangId::resolveSystemLanguageByScriptType(aLinguOpt.nDefaultLanguage, ::com::sun::star::i18n::ScriptType::LATIN);
 173         // The one from "Tools/Options - Language Settings - Languages: User interface"
 174         aLangList[1] = rSettings.GetUILanguage();
 175         // The one from "Tools/Options - Language Settings - Languages: Locale setting"
 176         aLangList[2] = rSettings.GetLanguage();
 177         // en-US
 178         aLangList[3] = LANGUAGE_ENGLISH_US;
 179 #ifdef DEBUG
 180         lang::Locale a0( SvxCreateLocale( aLangList[0] ) );
 181         lang::Locale a1( SvxCreateLocale( aLangList[1] ) );
 182         lang::Locale a2( SvxCreateLocale( aLangList[2] ) );
 183         lang::Locale a3( SvxCreateLocale( aLangList[3] ) );
 184 #endif
 185
 186         INT32   nCount = sizeof(aLangList) / sizeof(aLangList[0]);
 187         for (INT32 i = 0;  i < nCount;  i++)
 188         {
 189             INT16 nTmpLang = aLangList[i];
 190             if (nTmpLang != LANGUAGE_NONE  &&  nTmpLang != LANGUAGE_DONTKNOW)
 191             {
 192                 if (xSpell->hasLanguage( nTmpLang ) &&
 193                     xSpell->isValid( rText, nTmpLang, uno::Sequence< beans::PropertyValue >() ))
 194                 {
 195                     nLang = nTmpLang;
 196                     break;
 197                 }
 198             }
 199         }
 200     }
 201
 202     return nLang;
 203 }
 204
 205
 206 /// @returns : the language for the selected text that is set for the
 207 ///     specified attribute (script type).
 208 ///     If there are more than one languages used LANGUAGE_DONTKNOW will be returned.
 209 /// @param nLangWhichId : one of
 210 ///     RES_CHRATR_LANGUAGE, RES_CHRATR_CJK_LANGUAGE, RES_CHRATR_CTL_LANGUAGE,
 211 /// @returns: the language in use for the selected text.
 212 ///     'In use' means the language(s) matching the script type(s) of the
 213 ///     selected text. Or in other words, the language a spell checker would use.
 214 ///     If there is more than one language LANGUAGE_DONTKNOW will be returned.
 215 // check if nScriptType includes the script type associated to nLang
 216 inline bool lcl_checkScriptType( sal_Int16 nScriptType, LanguageType nLang )
 217 {
 218     return 0 != (nScriptType & SvtLanguageOptions::GetScriptTypeOfLanguage( nLang ));
 219 }
 220
 221 USHORT SwSpellPopup::fillLangPopupMenu(
 222     PopupMenu *pPopupMenu,
 223     USHORT Lang_Start,
 224     uno::Sequence< ::rtl::OUString > aSeq,
 225     SwWrtShell* pWrtSh,
 226     USHORT nLangTable )
 227 {
 228     if (!pPopupMenu)
 229         return 0;
 230
 231     //Reference< awt::XMenuExtended > m_xMenuExtended( m_xPopupMenu, UNO_QUERY );
 232     std::map< ::rtl::OUString, ::rtl::OUString > LangItems;
 233
 234     SvtLanguageTable    aLanguageTable;
 235     USHORT nItemId              = Lang_Start;
 236     rtl::OUString curLang       = aSeq[0];
 237     USHORT nScriptType          = static_cast< sal_Int16 >(aSeq[1].toInt32());
 238     rtl::OUString keyboardLang  = aSeq[2];
 239     rtl::OUString guessLang     = aSeq[3];
 240
 241     //1--add current language
 242     if(curLang!=OUString::createFromAscii(""))
 243     {
 244         LangItems[curLang]=curLang;
 245     }
 246
 247     SvtLanguageTable aLangTable;
 248     //2--System
 249     const AllSettings& rAllSettings=Application::GetSettings();
 250     LanguageType rSystemLanguage = rAllSettings.GetLanguage();
 251     if(rSystemLanguage!=LANGUAGE_DONTKNOW)
 252     {
 253         if (lcl_checkScriptType(nScriptType,rSystemLanguage ))
 254             LangItems[OUString(aLangTable.GetString(rSystemLanguage))]=OUString(aLangTable.GetString(rSystemLanguage));
 255     }
 256
 257     //3--UI
 258     LanguageType rUILanguage = rAllSettings.GetUILanguage();
 259     if(rUILanguage!=LANGUAGE_DONTKNOW)
 260     {
 261         if (lcl_checkScriptType(nScriptType, rUILanguage ))
 262             LangItems[OUString(aLangTable.GetString(rUILanguage))]=OUString(aLangTable.GetString(rUILanguage));
 263     }
 264
 265     //4--guessed language
 266     if(guessLang!=OUString::createFromAscii(""))
 267     {
 268         if (lcl_checkScriptType(nScriptType, aLanguageTable.GetType(guessLang)))
 269             LangItems[guessLang]=guessLang;
 270     }
 271
 272
 273     //5--keyboard language
 274     if(keyboardLang!=OUString::createFromAscii(""))
 275     {
 276         if (lcl_checkScriptType(nScriptType, aLanguageTable.GetType(keyboardLang)))
 277             LangItems[keyboardLang]=keyboardLang;
 278     }
 279
 280     //6--all languages used in current document
 281     uno::Reference< com::sun::star::frame::XModel > xModel;
 282     uno::Reference< com::sun::star::frame::XController > xController( pWrtSh->GetView().GetViewFrame()->GetFrame()->GetFrameInterface()->getController(), uno::UNO_QUERY );
 283     if ( xController.is() )
 284         xModel = xController->getModel();
 285
 286     uno::Reference< document::XDocumentLanguages > xDocumentLanguages( xModel, uno::UNO_QUERY );
 287     /*the description of nScriptType
 288       LATIN : 1
 289       ASIAN : 2
 290       COMPLEX:4
 291       LATIN  + ASIAN : 3
 292       LATIN  + COMPLEX : 5
 293       ASIAN + COMPLEX : 6
 294       LATIN + ASIAN + COMPLEX : 7
 295     */
 296
 297     sal_Int16 nCount=7;
 298     if(xDocumentLanguages.is())
 299     {
 300         uno::Sequence< lang::Locale > rLocales(xDocumentLanguages->getDocumentLanguages(nScriptType,nCount));
 301         if(rLocales.getLength()>0)
 302         {
 303             for(USHORT i = 0; i<rLocales.getLength();++i)
 304             {
 305                 if (LangItems.size()==7)
 306                     break;
 307                 const lang::Locale& rLocale=rLocales[i];
 308                 if(lcl_checkScriptType(nScriptType, aLanguageTable.GetType(rLocale.Language)))
 309                     LangItems[ rtl::OUString(rLocale.Language)]=OUString(rLocale.Language);
 310             }
 311         }
 312     }
 313
 314     for (std::map< rtl::OUString, rtl::OUString >::const_iterator it = LangItems.begin(); it != LangItems.end(); ++it)
 315     {
 316         rtl::OUString aEntryTxt( it->first );
 317         if (aEntryTxt != rtl::OUString( aLangTable.GetString( LANGUAGE_NONE ) )&&
 318             aEntryTxt != rtl::OUString::createFromAscii("*") &&
 319             aEntryTxt.getLength() > 0)
 320         {
 321             ++nItemId;
 322             if (nLangTable == 0)        // language for selection
 323                 aLangTable_Text[nItemId]      = aEntryTxt;
 324             else if (nLangTable == 1)   // language for paragraph
 325                 aLangTable_Paragraph[nItemId] = aEntryTxt;
 326             else if (nLangTable == 2)   // language for document
 327                 aLangTable_Document[nItemId]  = aEntryTxt;
 328
 329             pPopupMenu->InsertItem( nItemId, aEntryTxt, MIB_RADIOCHECK );
 330             if (aEntryTxt == curLang)
 331             {
 332                 //make a check mark for the current language
 333                 pPopupMenu->CheckItem( nItemId, TRUE );
 334             }
 335         }
 336     }
 337
 338     //7--none
 339     nItemId++;
 340     pPopupMenu->InsertItem( nItemId, String(SW_RES( STR_LANGSTATUS_NONE )), MIB_RADIOCHECK );
 341
 342     //More...
 343     nItemId++;
 344     pPopupMenu->InsertItem( nItemId, String(SW_RES( STR_LANGSTATUS_MORE )), MIB_RADIOCHECK );
 345
 346     return nItemId - Lang_Start;        // return number of inserted entries
 347 }
 348
 349
 350 static Image lcl_GetImageFromPngUrl( const OUString &rFileUrl )
 351 {
 352     Image aRes;
 353     OUString aTmp;
 354     osl::FileBase::getSystemPathFromFileURL( rFileUrl, aTmp );
 355 //    ::rtl::OString aPath = OString( aTmp.getStr(), aTmp.getLength(), osl_getThreadTextEncoding() );
 356 #if defined(WNT)
 357 //    aTmp = lcl_Win_GetShortPathName( aTmp );
 358 #endif
 359     Graphic aGraphic;
 360     const String aFilterName( RTL_CONSTASCII_USTRINGPARAM( IMP_PNG ) );
 361     if( GRFILTER_OK == LoadGraphic( aTmp, aFilterName, aGraphic ) )
 362     {
 363         aRes = Image( aGraphic.GetBitmapEx() );
 364     }
 365     return aRes;
 366 }
 367
 368
 369 ::rtl::OUString RetrieveLabelFromCommand( const ::rtl::OUString& aCmdURL )
 370 {
 371     ::rtl::OUString aLabel;
 372     if ( aCmdURL.getLength() )
 373     {
 374         try
 375         {
 376             uno::Reference< container::XNameAccess > xNameAccess( ::comphelper::getProcessServiceFactory()->createInstance( rtl::OUString::createFromAscii("com.sun.star.frame.UICommandDescription") ), uno::UNO_QUERY );
 377             if ( xNameAccess.is() )
 378             {
 379                 uno::Reference< container::XNameAccess > xUICommandLabels;
 380                 const ::rtl::OUString aModule( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.text.TextDocument" ) );
 381                 uno::Any a = xNameAccess->getByName( aModule );
 382                 uno::Reference< container::XNameAccess > xUICommands;
 383                 a >>= xUICommandLabels;
 384                 rtl::OUString aStr;
 385                 uno::Sequence< beans::PropertyValue > aPropSeq;
 386                 a = xUICommandLabels->getByName( aCmdURL );
 387                 if ( a >>= aPropSeq )
 388                 {
 389                     for ( sal_Int32 i = 0; i < aPropSeq.getLength(); i++ )
 390                     {
 391                         if ( aPropSeq[i].Name.equalsAscii( "Name" ))
 392                         {
 393                             aPropSeq[i].Value >>= aStr;
 394                             break;
 395                         }
 396                     }
 397                 }
 398                 aLabel = aStr;
 399             }
 400         }
 401         catch ( uno::Exception& )
 402         {
 403         }
 404     }
 405
 406     return aLabel;
 407 }
 408
 409
 410 SwSpellPopup::SwSpellPopup(
 411         SwWrtShell* pWrtSh,
 412         const uno::Reference< linguistic2::XSpellAlternatives >  &xAlt,
 413         const String &rParaText ) :
 414 PopupMenu( SW_RES(MN_SPELL_POPUP) ),
 415 pSh( pWrtSh ),
 416 xSpellAlt(xAlt),
 417 bGrammarResults(false)
 418 {
 419     DBG_ASSERT(xSpellAlt.is(), "no spelling alternatives available");
 420
 421     CreateAutoMnemonics();
 422     nCheckedLanguage = LANGUAGE_NONE;
 423     if (xSpellAlt.is())
 424     {
 425         nCheckedLanguage = SvxLocaleToLanguage( xSpellAlt->getLocale() );
 426         aSuggestions = xSpellAlt->getAlternatives();
 427     }
 428     sal_Int16 nStringCount = static_cast< sal_Int16 >( aSuggestions.getLength() );
 429
 430     SvtLinguConfig aCfg;
 431     const bool bIsDark = Application::GetSettings().GetStyleSettings().GetWindowColor().IsDark();
 432
 433     PopupMenu *pMenu = GetPopupMenu(MN_AUTOCORR);
 434     pMenu->SetMenuFlags(MENU_FLAG_NOAUTOMNEMONICS);
 435     sal_Bool bEnable = sal_False;
 436     if( nStringCount )
 437     {
 438         Image aImage;
 439         OUString aSuggestionImageUrl;
 440         uno::Reference< container::XNamed > xNamed( xSpellAlt, uno::UNO_QUERY );
 441         if (xNamed.is())
 442         {
 443             aSuggestionImageUrl = aCfg.GetSpellAndGrammarContextSuggestionImage( xNamed->getName(), bIsDark );
 444             aImage = Image( lcl_GetImageFromPngUrl( aSuggestionImageUrl ) );
 445         }
 446
 447         InsertSeparator(0);
 448         bEnable = sal_True;
 449         for( sal_uInt16 i = 0, nPos = 1, nId = MN_AUTOCORR_START + 1;
 450             i < nStringCount; ++i, ++nPos, ++nId )
 451         {
 452             const String aEntry = aSuggestions[ i ];
 453             InsertItem( nPos, aEntry, 0, i );
 454             SetHelpId( nPos, HID_LINGU_REPLACE);
 455
 456             if (aSuggestionImageUrl.getLength() > 0)
 457                 SetItemImage( nPos, aImage );
 458
 459             pMenu->InsertItem( nId, aEntry );
 460             pMenu->SetHelpId( nPos, HID_LINGU_AUTOCORR);
 461         }
 462     }
 463
 464     OUString aIgnoreSelection( String( SW_RES( STR_IGNORE_SELECTION ) ) );
 465     OUString aSpellingAndGrammar = RetrieveLabelFromCommand( C2U(".uno:SpellingAndGrammarDialog") );
 466     SetItemText( MN_SPELLING, aSpellingAndGrammar );
 467     USHORT nItemPos = GetItemPos( MN_IGNORE );
 468     InsertItem( MN_IGNORE_SELECTION, aIgnoreSelection, 0, nItemPos );
 469     SetHelpId( MN_IGNORE_SELECTION, HID_LINGU_IGNORE_SELECTION);
 470
 471     EnableItem( MN_AUTOCORR, bEnable );
 472
 473     uno::Reference< linguistic2::XLanguageGuessing > xLG = SW_MOD()->GetLanguageGuesser();
 474     nGuessLangWord = LANGUAGE_NONE;
 475     nGuessLangPara = LANGUAGE_NONE;
 476     if (xSpellAlt.is() && xLG.is())
 477     {
 478         nGuessLangWord = lcl_CheckLanguage( xSpellAlt->getWord(), ::GetSpellChecker(), xLG, sal_False );
 479         nGuessLangPara = lcl_CheckLanguage( rParaText, ::GetSpellChecker(), xLG, sal_True );
 480     }
 481     if (nGuessLangWord != LANGUAGE_NONE || nGuessLangPara != LANGUAGE_NONE)
 482     {
 483         // make sure LANGUAGE_NONE gets not used as menu entry
 484         if (nGuessLangWord == LANGUAGE_NONE)
 485             nGuessLangWord = nGuessLangPara;
 486         if (nGuessLangPara == LANGUAGE_NONE)
 487             nGuessLangPara = nGuessLangWord;
 488     }
 489
 490     pMenu = GetPopupMenu(MN_INSERT);
 491
 492     bEnable = FALSE;    // enable MN_INSERT?
 493
 494     pMenu->CreateAutoMnemonics();
 495     uno::Reference< linguistic2::XDictionaryList >    xDicList( SvxGetDictionaryList() );
 496     if (xDicList.is())
 497     {
 498         // add the default positive dictionary to dic-list (if not already done).
 499         // This is to ensure that there is at least one dictionary to which
 500         // words could be added.
 501         uno::Reference< linguistic2::XDictionary >  xDic( SvxGetOrCreatePosDic( xDicList ) );
 502         if (xDic.is())
 503             xDic->setActive( sal_True );
 504
 505         aDics = xDicList->getDictionaries();
 506         const uno::Reference< linguistic2::XDictionary >  *pDic = aDics.getConstArray();
 507         USHORT nDicCount = static_cast< USHORT >(aDics.getLength());
 508
 509         for( USHORT i = 0; i < nDicCount; i++ )
 510         {
 511             uno::Reference< linguistic2::XDictionary >  xDicTmp( pDic[i], uno::UNO_QUERY );
 512             if (!xDicTmp.is() || SvxGetIgnoreAllList() == xDicTmp)
 513                 continue;
 514
 515             uno::Reference< frame::XStorable > xStor( xDicTmp, uno::UNO_QUERY );
 516             LanguageType nActLanguage = SvxLocaleToLanguage( xDicTmp->getLocale() );
 517             if( xDicTmp->isActive()
 518                 &&  xDicTmp->getDictionaryType() != linguistic2::DictionaryType_NEGATIVE
 519                 && (nCheckedLanguage == nActLanguage || LANGUAGE_NONE == nActLanguage )
 520                 && (!xStor.is() || !xStor->isReadonly()) )
 521             {
 522                 // the extra 1 is because of the (possible) external
 523                 // linguistic entry above
 524                 USHORT nPos = MN_INSERT_START + i + 1;
 525                 pMenu->InsertItem( nPos, xDicTmp->getName() );
 526                 bEnable = sal_True;
 527
 528                 uno::Reference< lang::XServiceInfo > xSvcInfo( xDicTmp, uno::UNO_QUERY );
 529                 if (xSvcInfo.is())
 530                 {
 531                     OUString aDictionaryImageUrl( aCfg.GetSpellAndGrammarContextDictionaryImage(
 532                             xSvcInfo->getImplementationName(), bIsDark) );
 533                     if (aDictionaryImageUrl.getLength() > 0)
 534                     {
 535                         Image aImage( lcl_GetImageFromPngUrl( aDictionaryImageUrl ) );
 536                         pMenu->SetItemImage( nPos, aImage );
 537                     }
 538                 }
 539             }
 540         }
 541     }
 542     EnableItem( MN_INSERT, bEnable );
 543
 544     //ADD NEW LANGUAGE MENU ITEM
 545     ///////////////////////////////////////////////////////////////////////////
 546     String aScriptTypesInUse( String::CreateFromInt32( pWrtSh->GetScriptType() ) );
 547     SvtLanguageTable aLangTable;
 548
 549     // get keyboard language
 550     String aKeyboardLang;
 551     LanguageType nLang = LANGUAGE_DONTKNOW;
 552     SwEditWin& rEditWin = pWrtSh->GetView().GetEditWin();
 553     nLang = rEditWin.GetInputLanguage();
 554     if (nLang != LANGUAGE_DONTKNOW && nLang != LANGUAGE_SYSTEM)
 555         aKeyboardLang = aLangTable.GetString( nLang );
 556
 557     // get the language that is in use
 558     const String aMultipleLanguages = String::CreateFromAscii("*");
 559     String aCurrentLang = aMultipleLanguages;
 560     nLang = SwLangHelper::GetCurrentLanguage( *pWrtSh );
 561     if (nLang != LANGUAGE_DONTKNOW)
 562         aCurrentLang = aLangTable.GetString( nLang );
 563
 564     // build sequence for status value
 565     uno::Sequence< ::rtl::OUString > aSeq( 4 );
 566     aSeq[0] = aCurrentLang;
 567     aSeq[1] = aScriptTypesInUse;
 568     aSeq[2] = aKeyboardLang;
 569     aSeq[3] = aLangTable.GetString(nGuessLangWord);
 570
 571     pMenu = GetPopupMenu(MN_LANGUAGE_SELECTION);
 572     nNumLanguageTextEntries = fillLangPopupMenu( pMenu, MN_LANGUAGE_SELECTION_START, aSeq, pWrtSh, 0 );
 573     EnableItem( MN_LANGUAGE_SELECTION, true );
 574
 575     pMenu = GetPopupMenu(MN_LANGUAGE_PARAGRAPH);
 576     nNumLanguageParaEntries = fillLangPopupMenu( pMenu, MN_LANGUAGE_PARAGRAPH_START, aSeq, pWrtSh, 1 );
 577     EnableItem( MN_LANGUAGE_PARAGRAPH, true );
 578 /*
 579     pMenu = GetPopupMenu(MN_LANGUAGE_ALL_TEXT);
 580     nNumLanguageDocEntries = fillLangPopupMenu( pMenu, MN_LANGUAGE_ALL_TEXT_START, aSeq, pWrtSh, 2 );
 581     EnableItem( MN_LANGUAGE_ALL_TEXT, true );
 582 */
 583     uno::Reference< frame::XFrame > xFrame = pWrtSh->GetView().GetViewFrame()->GetFrame()->GetFrameInterface();
 584     Image rImg = ::GetImage( xFrame,
 585             ::rtl::OUString::createFromAscii(".uno:SpellingAndGrammarDialog"), sal_False,
 586             Application::GetSettings().GetStyleSettings().GetWindowColor().IsDark() );
 587     SetItemImage( MN_SPELLING, rImg );
 588     //////////////////////////////////////////////////////////////////////////////////
 589
 590     RemoveDisabledEntries( TRUE, TRUE );
 591     SetMenuFlags(MENU_FLAG_NOAUTOMNEMONICS);
 592 }
 593
 594 /*--------------------------------------------------------------------------
 595
 596 ---------------------------------------------------------------------------*/
 597
 598 SwSpellPopup::SwSpellPopup(
 599     SwWrtShell *pWrtSh,
 600     const linguistic2::ProofreadingResult &rResult,
 601     sal_Int32 nErrorInResult,
 602     const uno::Sequence< rtl::OUString > &rSuggestions,
 603     const String &rParaText ) :
 604 PopupMenu( SW_RES(MN_SPELL_POPUP) ),
 605 pSh( pWrtSh ),
 606 aSuggestions( rSuggestions ),
 607 bGrammarResults( true ),
 608 aInfo16( SW_RES(IMG_INFO_16) )
 609 {
 610     nCheckedLanguage = SvxLocaleToLanguage( rResult.aLocale );
 611
 612     sal_Int16 nItemId = 1;
 613     sal_Int16 nPos    = 0;
 614     OUString aMessageText( rResult.aErrors[ nErrorInResult ].aShortComment );
 615     InsertSeparator( nPos++ );
 616     InsertItem( nItemId, aMessageText, MIB_NOSELECT, nPos++ );
 617     SetItemImage( nItemId, aInfo16 );
 618     ++nItemId;
 619
 620     CreateAutoMnemonics();
 621
 622     InsertSeparator( nPos++ );
 623     sal_Int32 nStringCount = aSuggestions.getLength();
 624     if ( nStringCount )     // suggestions available...
 625     {
 626         Image aImage;
 627         OUString aSuggestionImageUrl;
 628         uno::Reference< lang::XServiceInfo > xInfo( rResult.xProofreader, uno::UNO_QUERY );
 629         if (xInfo.is())
 630         {
 631             aSuggestionImageUrl = SvtLinguConfig().GetSpellAndGrammarContextSuggestionImage( xInfo->getImplementationName() );
 632             aImage = Image( lcl_GetImageFromPngUrl( aSuggestionImageUrl ) );
 633         }
 634
 635         for (sal_uInt16 i = 0;  i < nStringCount;  ++i)
 636         {
 637             const String aEntry = aSuggestions[ i ];
 638             InsertItem( nItemId, aEntry, 0, nPos++ );
 639             SetHelpId( nItemId, HID_LINGU_REPLACE );
 640
 641             if (aSuggestionImageUrl.getLength() > 0)
 642                 SetItemImage( nItemId, aImage );
 643
 644             ++nItemId;
 645         }
 646         InsertSeparator( nPos++ );
 647     }
 648
 649     OUString aIgnoreSelection( String( SW_RES( STR_IGNORE_SELECTION ) ) );
 650     OUString aSpellingAndGrammar = RetrieveLabelFromCommand( C2U(".uno:SpellingAndGrammarDialog") );
 651     SetItemText( MN_SPELLING, aSpellingAndGrammar );
 652     USHORT nItemPos = GetItemPos( MN_IGNORE );
 653     InsertItem( MN_IGNORE_SELECTION, aIgnoreSelection, 0, nItemPos );
 654     SetHelpId( MN_IGNORE_SELECTION, HID_LINGU_IGNORE_SELECTION);
 655
 656     EnableItem( MN_AUTOCORR, false );
 657
 658     uno::Reference< linguistic2::XLanguageGuessing > xLG = SW_MOD()->GetLanguageGuesser();
 659     nGuessLangWord = LANGUAGE_NONE;
 660     nGuessLangPara = LANGUAGE_NONE;
 661     if (xLG.is())
 662     {
 663 //        nGuessLangWord = lcl_CheckLanguage( xSpellAlt->getWord(), ::GetSpellChecker(), xLG, sal_False );
 664         nGuessLangPara = lcl_CheckLanguage( rParaText, ::GetSpellChecker(), xLG, sal_True );
 665     }
 666     if (nGuessLangWord != LANGUAGE_NONE || nGuessLangPara != LANGUAGE_NONE)
 667     {
 668         // make sure LANGUAGE_NONE gets not used as menu entry
 669         if (nGuessLangWord == LANGUAGE_NONE)
 670             nGuessLangWord = nGuessLangPara;
 671         if (nGuessLangPara == LANGUAGE_NONE)
 672             nGuessLangPara = nGuessLangWord;
 673     }
 674
 675     EnableItem( MN_IGNORE, false );
 676     EnableItem( MN_INSERT, false );
 677
 678     //ADD NEW LANGUAGE MENU ITEM
 679     ///////////////////////////////////////////////////////////////////////////
 680     String aScriptTypesInUse( String::CreateFromInt32( pWrtSh->GetScriptType() ) );
 681     SvtLanguageTable aLangTable;
 682
 683     // get keyboard language
 684     String aKeyboardLang;
 685     LanguageType nLang = LANGUAGE_DONTKNOW;
 686     SwEditWin& rEditWin = pWrtSh->GetView().GetEditWin();
 687     nLang = rEditWin.GetInputLanguage();
 688     if (nLang != LANGUAGE_DONTKNOW && nLang != LANGUAGE_SYSTEM)
 689         aKeyboardLang = aLangTable.GetString( nLang );
 690
 691     // get the language that is in use
 692     const String aMultipleLanguages = String::CreateFromAscii("*");
 693     String aCurrentLang = aMultipleLanguages;
 694     nLang = SwLangHelper::GetCurrentLanguage( *pWrtSh );
 695     if (nLang != LANGUAGE_DONTKNOW)
 696         aCurrentLang = aLangTable.GetString( nLang );
 697
 698     // build sequence for status value
 699     uno::Sequence< ::rtl::OUString > aSeq( 4 );
 700     aSeq[0] = aCurrentLang;
 701     aSeq[1] = aScriptTypesInUse;
 702     aSeq[2] = aKeyboardLang;
 703     aSeq[3] = aLangTable.GetString(nGuessLangWord);
 704
 705     PopupMenu *pMenu = GetPopupMenu(MN_LANGUAGE_SELECTION);
 706     nNumLanguageTextEntries = fillLangPopupMenu( pMenu, MN_LANGUAGE_SELECTION_START, aSeq, pWrtSh, 0 );
 707     EnableItem( MN_LANGUAGE_SELECTION, true );
 708
 709     pMenu = GetPopupMenu(MN_LANGUAGE_PARAGRAPH);
 710     nNumLanguageParaEntries = fillLangPopupMenu( pMenu, MN_LANGUAGE_PARAGRAPH_START, aSeq, pWrtSh, 1 );
 711     EnableItem( MN_LANGUAGE_PARAGRAPH, true );
 712 /*
 713     pMenu = GetPopupMenu(MN_LANGUAGE_ALL_TEXT);
 714     nNumLanguageDocEntries = fillLangPopupMenu( pMenu, MN_LANGUAGE_ALL_TEXT_START, aSeq, pWrtSh, 2 );
 715     EnableItem( MN_LANGUAGE_ALL_TEXT, true );
 716 */
 717     uno::Reference< frame::XFrame > xFrame = pWrtSh->GetView().GetViewFrame()->GetFrame()->GetFrameInterface();
 718     Image rImg = ::GetImage( xFrame,
 719             ::rtl::OUString::createFromAscii(".uno:SpellingAndGrammarDialog"), sal_False,
 720             Application::GetSettings().GetStyleSettings().GetWindowColor().IsDark() );
 721     SetItemImage( MN_SPELLING, rImg );
 722
 723     //////////////////////////////////////////////////////////////////////////////////
 724
 725     RemoveDisabledEntries( TRUE, TRUE );
 726     SetMenuFlags(MENU_FLAG_NOAUTOMNEMONICS);
 727 }
 728
 729 /*--------------------------------------------------------------------------
 730
 731 ---------------------------------------------------------------------------*/
 732 sal_uInt16  SwSpellPopup::Execute( const Rectangle& rWordPos, Window* pWin )
 733 {
 734 //    SetMenuFlags(MENU_FLAG_NOAUTOMNEMONICS);
 735     sal_uInt16 nRet = PopupMenu::Execute(pWin, pWin->LogicToPixel(rWordPos));
 736     Execute( nRet );
 737     return nRet;
 738 }
 739 /*-- 19.01.2006 08:15:48---------------------------------------------------
 740
 741   -----------------------------------------------------------------------*/
 742 void SwSpellPopup::Execute( USHORT nId )
 743 {
 744     if (bGrammarResults && nId == 1)
 745         return;         // nothing to do since it is the error message (short comment)
 746
 747     sal_Bool bAutoCorr = sal_False;
 748     if( nId > MN_AUTOCORR_START && nId < MN_LANGUAGE_SELECTION_START && nId != USHRT_MAX )
 749     {
 750         nId -= MN_AUTOCORR_START;
 751         bAutoCorr = sal_True;
 752     }
 753
 754     if( nId && nId != USHRT_MAX)
 755     {
 756         int nAltIdx = bGrammarResults ? nId - 2 : nId - 1;
 757         if ( nAltIdx >= 0 && nAltIdx < aSuggestions.getLength() && (bGrammarResults || xSpellAlt.is()) )
 758         {
 759             sal_Bool bOldIns = pSh->IsInsMode();
 760             pSh->SetInsMode( sal_True );
 761
 762             DBG_ASSERT( 0 <= nAltIdx && nAltIdx <= aSuggestions.getLength(), "index out of range");
 763             String aTmp( aSuggestions[ nAltIdx ] );
 764             String aOrig( bGrammarResults ? OUString() : xSpellAlt->getWord() );
 765
 766             // if orginal word has a trailing . (likely the end of a sentence)
 767             // and the replacement text hasn't, then add it to the replacement
 768             if (aTmp.Len() && aOrig.Len() &&
 769                 '.' == aOrig.GetChar( aOrig.Len() - 1) && /* !IsAlphaNumeric ??*/
 770                 '.' != aTmp.GetChar( aTmp.Len() - 1))
 771             {
 772                 aTmp += '.';
 773             }
 774
 775             // #111827#
 776             SwRewriter aRewriter;
 777
 778             aRewriter.AddRule(UNDO_ARG1, pSh->GetCrsrDescr());
 779             aRewriter.AddRule(UNDO_ARG2, String(SW_RES(STR_YIELDS)));
 780
 781             {
 782                 String aTmpStr;
 783
 784                 aTmpStr += String(SW_RES(STR_START_QUOTE));
 785                 aTmpStr += aTmp;
 786                 aTmpStr += String(SW_RES(STR_END_QUOTE));
 787                 aRewriter.AddRule(UNDO_ARG3, aTmpStr);
 788             }
 789
 790             pSh->StartUndo(UNDO_UI_REPLACE, &aRewriter);
 791             pSh->StartAction();
 792             pSh->DelLeft();
 793
 794             pSh->Insert( aTmp );
 795             /* #102505# EndAction/EndUndo moved down since insertion
 796                of temporary auto correction is now undoable two and
 797                must reside in the same undo group.*/
 798
 799
 800             // nur aufnehmen, wenn es NICHT schon in der Autokorrektur vorhanden ist
 801             SvxAutoCorrect* pACorr = SvxAutoCorrCfg::Get()->GetAutoCorrect();
 802
 803             String aOrigWord( bGrammarResults ? OUString() : xSpellAlt->getWord() ) ;
 804             String aNewWord;
 805             if( nId )
 806                 aNewWord = aSuggestions[ nAltIdx ];
 807             else
 808                 aNewWord = aOrigWord;
 809             SvxPrepareAutoCorrect( aOrigWord, aNewWord );
 810
 811             if( bAutoCorr )
 812             {
 813                 pACorr->PutText( aOrigWord, aNewWord, nCheckedLanguage );
 814             }
 815
 816             /* #102505# EndAction/EndUndo moved down since insertion
 817                of temporary auto correction is now undoable two and
 818                must reside in the same undo group.*/
 819             pSh->EndAction();
 820             pSh->EndUndo(UNDO_UI_REPLACE);
 821
 822             pSh->SetInsMode( bOldIns );
 823         }
 824         else
 825         {
 826             if (nId < MN_LANGUAGE_SELECTION_START)
 827             {
 828                 switch( nId )
 829                 {
 830                     case MN_SPELLING:
 831                     {
 832                         if (bGrammarResults)
 833                         {
 834                             SvtLinguConfig().SetProperty( A2OU( UPN_IS_GRAMMAR_INTERACTIVE ), uno::makeAny( sal_True ));
 835                         }
 836                         pSh->Left(CRSR_SKIP_CHARS, FALSE, 1, FALSE );
 837                         {
 838                             uno::Reference<linguistic2::XDictionaryList> xDictionaryList( SvxGetDictionaryList() );
 839                             SvxDicListChgClamp aClamp( xDictionaryList );
 840                             pSh->GetView().GetViewFrame()->GetDispatcher()->
 841                                 Execute( FN_SPELL_GRAMMAR_DIALOG, SFX_CALLMODE_ASYNCHRON );
 842                         }
 843                     }
 844                     break;
 845                     case MN_IGNORE_SELECTION :
 846                     {
 847                         SwPaM *pPaM = pSh->GetCrsr();
 848                         if (pPaM)
 849                             pSh->IgnoreGrammarErrorAt( *pPaM );
 850                     }
 851                     break;
 852                     case MN_IGNORE :
 853                     {
 854                         uno::Reference< linguistic2::XDictionary > xDictionary( SvxGetIgnoreAllList(), uno::UNO_QUERY );
 855                         linguistic::AddEntryToDic(
 856                                 xDictionary,
 857                                 xSpellAlt->getWord(), sal_False,
 858                                 aEmptyStr, LANGUAGE_NONE );
 859                     }
 860                     break;
 861                     case MN_INSERT:
 862                         DBG_ERROR("geht noch nicht!");
 863                     break;
 864                     case MN_LANGUAGE_WORD:
 865                     case MN_LANGUAGE_PARA:
 866                     {
 867                         pSh->StartAction();
 868
 869                         if( MN_LANGUAGE_PARA == nId )
 870                         {
 871                             if( !pSh->IsSttPara() )
 872                                 pSh->MovePara( fnParaCurr, fnParaStart );
 873                             pSh->SwapPam();
 874                             if( !pSh->IsEndPara() )
 875                                 pSh->MovePara( fnParaCurr,  fnParaEnd );
 876                         }
 877
 878                         LanguageType nLangToUse = (MN_LANGUAGE_PARA == nId) ? nGuessLangPara : nGuessLangWord;
 879                         sal_uInt16 nScriptType = SvtLanguageOptions::GetScriptTypeOfLanguage( nLangToUse );
 880                         USHORT nResId = 0;
 881                         switch (nScriptType)
 882                         {
 883                             case SCRIPTTYPE_COMPLEX             : nResId = RES_CHRATR_CTL_LANGUAGE; break;
 884                             case SCRIPTTYPE_ASIAN               : nResId = RES_CHRATR_CJK_LANGUAGE; break;
 885                             default /*SCRIPTTYPE_LATIN*/: nResId = RES_CHRATR_LANGUAGE; break;
 886                         }
 887                         SfxItemSet aSet(pSh->GetAttrPool(), nResId, nResId );
 888                         aSet.Put( SvxLanguageItem( nLangToUse, nResId ) );
 889                         pSh->SetAttr( aSet );
 890
 891                         pSh->EndAction();
 892                     }
 893                     break;
 894                     default:
 895                         if(nId >= MN_INSERT_START )
 896                         {
 897                             OUString aWord( xSpellAlt->getWord() );
 898                             INT32 nDicIdx = nId - MN_INSERT_START - 1;
 899                             DBG_ASSERT( nDicIdx < aDics.getLength(),
 900                                         "dictionary index out of range" );
 901                             uno::Reference< linguistic2::XDictionary > xDic =
 902                                 aDics.getConstArray()[nDicIdx];
 903                             INT16 nAddRes = linguistic::AddEntryToDic( xDic,
 904                                 aWord, FALSE, aEmptyStr, LANGUAGE_NONE );
 905                             // save modified user-dictionary if it is persistent
 906                             uno::Reference< frame::XStorable >  xSavDic( xDic, uno::UNO_QUERY );
 907                             if (xSavDic.is())
 908                                 xSavDic->store();
 909
 910                             if (DIC_ERR_NONE != nAddRes
 911                                 && !xDic->getEntry( aWord ).is())
 912                             {
 913                                 SvxDicError(
 914                                     &pSh->GetView().GetViewFrame()->GetWindow(),
 915                                     nAddRes );
 916                             }
 917                         }
 918                 }
 919             }
 920             else
 921             {
 922                 SfxItemSet aCoreSet( pSh->GetView().GetPool(),
 923                             RES_CHRATR_LANGUAGE,        RES_CHRATR_LANGUAGE,
 924                             RES_CHRATR_CJK_LANGUAGE,    RES_CHRATR_CJK_LANGUAGE,
 925                             RES_CHRATR_CTL_LANGUAGE,    RES_CHRATR_CTL_LANGUAGE,
 926                             0 );
 927                 String aNewLangTxt;
 928
 929 //                              pSh->StartAction();
 930
 931                 if (nId >= MN_LANGUAGE_SELECTION_START && nId < MN_LANGUAGE_SELECTION_START + nNumLanguageTextEntries - 1)
 932                 {
 933                     //Set language for current selection
 934                     aNewLangTxt=aLangTable_Text[nId];
 935                     SwLangHelper::SetLanguage( *pSh, aNewLangTxt, true, aCoreSet );
 936                 }
 937                 else if (nId == MN_LANGUAGE_SELECTION_START + nNumLanguageTextEntries - 1)
 938                 {
 939                     //Set Language_None for current selection
 940                     SwLangHelper::SetLanguage_None( *pSh, true, aCoreSet );
 941                 }
 942                 else if (nId == MN_LANGUAGE_SELECTION_START + nNumLanguageTextEntries)
 943                 {
 944                     //Open Format/Character Dialog
 945                     lcl_CharDialog( *pSh, true, nId, 0, 0 );
 946                 }
 947                 else if (nId >= MN_LANGUAGE_PARAGRAPH_START && nId < MN_LANGUAGE_PARAGRAPH_START + nNumLanguageParaEntries - 1)
 948                 {
 949                     //Set language for current paragraph
 950                     aNewLangTxt=aLangTable_Paragraph[nId];
 951                     pSh->Push();        // save cursor
 952                     SwLangHelper::SelectCurrentPara( *pSh );
 953                     SwLangHelper::SetLanguage( *pSh, aNewLangTxt, true, aCoreSet );
 954                     pSh->Pop( FALSE );  // restore cursor
 955                 }
 956                 else if (nId == MN_LANGUAGE_PARAGRAPH_START + nNumLanguageParaEntries - 1)
 957                 {
 958                     //Set Language_None for current paragraph
 959                     pSh->Push();        // save cursor
 960                     SwLangHelper::SelectCurrentPara( *pSh );
 961                     SwLangHelper::SetLanguage_None( *pSh, true, aCoreSet );
 962                     pSh->Pop( FALSE );  // restore cursor
 963                 }
 964                 else if (nId == MN_LANGUAGE_PARAGRAPH_START + nNumLanguageParaEntries)
 965                 {
 966                     pSh->Push();        // save cursor
 967                     SwLangHelper::SelectCurrentPara( *pSh );
 968                     //Open Format/Character Dialog
 969                     lcl_CharDialog( *pSh, true, nId, 0, 0 );
 970                     pSh->Pop( FALSE );  // restore cursor
 971                 }
 972                 else if (nId >= MN_LANGUAGE_ALL_TEXT_START && nId < MN_LANGUAGE_ALL_TEXT_START + nNumLanguageDocEntries - 1)
 973                 {
 974                     //Set selected language as the default language
 975                     aNewLangTxt=aLangTable_Document[nId];
 976                     SwLangHelper::SetLanguage( *pSh, aNewLangTxt, false, aCoreSet );
 977                 }
 978                 else if (nId == MN_LANGUAGE_ALL_TEXT_START + nNumLanguageDocEntries - 1)
 979                 {
 980                     //Set Language_None as the default language
 981                     SwLangHelper::SetLanguage_None( *pSh, false, aCoreSet );
 982                 }
 983                 else if (nId == MN_LANGUAGE_ALL_TEXT_START + nNumLanguageDocEntries)
 984                 {
 985                     // open the dialog "Tools/Options/Language Settings - Language"
 986                     SfxAbstractDialogFactory* pFact = SfxAbstractDialogFactory::Create();
 987                     if (pFact)
 988                     {
 989                         VclAbstractDialog* pDlg = pFact->CreateVclDialog( pSh->GetView().GetWindow(), SID_LANGUAGE_OPTIONS );
 990                         pDlg->Execute();
 991                         delete pDlg;
 992                     }
 993                 }
 994
 995 //                              pSh->EndAction();
 996             }
 997         }
 998     }
 999
1000     pSh->EnterStdMode();
1001 }