initial import

1 files changed, 515 insertions, 0 deletions

diff --git a/svx/source/dialog/thesdlg.cxx b/svx/source/dialog/thesdlg.cxx
new file mode 100644
index 000000000000..e544757d3ab3
--- /dev/null
+++ b/svx/source/dialog/thesdlg.cxx
@@ -0,0 +1,515 @@
+/*************************************************************************
+ *
+ *  $RCSfile: thesdlg.cxx,v $
+ *
+ *  $Revision: 1.1.1.1 $
+ *
+ *  last change: $Author: hr $ $Date: 2000-09-18 17:01:12 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (the "License"); You may not use this file
+ *  except in compliance with the License. You may obtain a copy of the
+ *  License at http://www.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+#pragma hdrstop
+// include ---------------------------------------------------------------
+
+#ifndef _SHL_HXX
+#include <tools/shl.hxx>
+#endif
+#ifndef _SV_WRKWIN_HXX
+#include <vcl/wrkwin.hxx>
+#endif
+#ifndef _MSGBOX_HXX //autogen
+#include <vcl/msgbox.hxx>
+#endif
+#ifndef _APP_HXX //autogen
+#include <vcl/svapp.hxx>
+#endif
+
+#ifndef _COM_SUN_STAR_LINGUISTIC_XMEANING_HPP_
+#include <com/sun/star/linguistic/XMeaning.hpp>
+#endif
+
+
+#define _SVX_THESDLG_CXX
+
+#include "thesdlg.hxx"
+#include "dlgutil.hxx"
+#include "dialmgr.hxx"
+#include "svxerr.hxx"
+
+#include "dialogs.hrc"
+#include "thesdlg.hrc"
+#ifndef _UNO_LINGU_HXX
+#include <unolingu.hxx>
+#endif
+
+using namespace ::rtl;
+using namespace ::com::sun::star;
+using namespace ::com::sun::star::uno;
+using namespace ::com::sun::star::beans;
+using namespace ::com::sun::star::linguistic;
+
+#define S2U(s)                      StringToOUString(s, CHARSET_SYSTEM)
+#define U2S(s)                      OUStringToString(s, CHARSET_SYSTEM)
+// struct ThesDlg_Impl ---------------------------------------------------
+
+struct ThesDlg_Impl
+{
+    Reference< linguistic::XThesaurus >         xThesaurus;
+    OUString                aLookUpText;
+    sal_Int16               nLookUpLanguage;
+
+    ThesDlg_Impl(Reference< linguistic::XThesaurus >  xThes);
+    SfxErrorContext*    pErrContext;    // ErrorContext,
+                                        // w"ahrend der Dialog oben ist
+};
+
+ThesDlg_Impl::ThesDlg_Impl(Reference< linguistic::XThesaurus >  xThes) :
+    xThesaurus  (xThes)
+{
+    pErrContext = NULL;
+    nLookUpLanguage = LANGUAGE_NONE;
+}
+
+
+// class SvxThesaurusLanguageDlg_Impl ------------------------------------
+
+class SvxThesaurusLanguageDlg_Impl : public ModalDialog
+{
+private:
+    ListBox         aLangLB;
+    GroupBox        aLangBox;
+    OKButton        aOKBtn;
+    CancelButton    aCancelBtn;
+    HelpButton      aHelpBtn;
+
+    Reference< linguistic::XThesaurus >         xThesaurus;
+    uno::Sequence< lang::Locale >   aSuppLang;      // supported languages
+
+    DECL_LINK( DoubleClickHdl_Impl, ListBox * );
+
+public:
+    SvxThesaurusLanguageDlg_Impl( Window* pParent );
+
+    sal_uInt16          GetLanguage() const;
+    void            SetLanguage( sal_uInt16 nLang );
+};
+
+// -----------------------------------------------------------------------
+
+
+SvxThesaurusLanguageDlg_Impl::SvxThesaurusLanguageDlg_Impl( Window* pParent ) :
+
+    ModalDialog( pParent, SVX_RES( RID_SVXDLG_THES_LANGUAGE ) ),
+
+    aLangLB     ( this, ResId( LB_THES_LANGUAGE ) ),
+    aLangBox    ( this, ResId( GB_THES_LANGUAGE ) ),
+    aOKBtn      ( this, ResId( BTN_LANG_OK ) ),
+    aCancelBtn  ( this, ResId( BTN_LANG_CANCEL ) ),
+    aHelpBtn    ( this, ResId( BTN_LANG_HELP ) )
+{
+    FreeResource();
+
+    aLangLB.SetDoubleClickHdl(
+        LINK( this, SvxThesaurusLanguageDlg_Impl, DoubleClickHdl_Impl ) );
+
+    // Sprachen-Box initialisieren
+    SvxThesaurusDialog *pMyParentDlg = (SvxThesaurusDialog *) pParent;
+    xThesaurus = pMyParentDlg->pImpl->xThesaurus;
+    if (xThesaurus.is())
+        aSuppLang  = xThesaurus->getLocales();
+
+    const sal_Int32 nLangCount  = aSuppLang.getLength();
+    const lang::Locale    *pLocale  = aSuppLang.getConstArray();
+    for ( sal_Int32 i = 0; i < nLangCount; ++i )
+    {
+        sal_Int16 nLang = SvxLocaleToLanguage( pLocale[i] );
+        if (nLang != LANGUAGE_NONE)
+        {
+            sal_uInt16 nPos = aLangLB.InsertEntry( ::GetLanguageString( nLang ) );
+            aLangLB.SetEntryData( nPos, (void*)(sal_uInt32)i );
+        }
+    }
+}
+
+
+// -----------------------------------------------------------------------
+
+sal_uInt16 SvxThesaurusLanguageDlg_Impl::GetLanguage() const
+{
+    sal_uInt16 nLPos = aLangLB.GetSelectEntryPos();
+    sal_uInt16 nLang = (sal_uInt16)(sal_uInt32)aLangLB.GetEntryData(nLPos);
+
+    DBG_ASSERT(nLang < (sal_uInt16) aSuppLang.getLength(), "index out of range");
+    return SvxLocaleToLanguage( aSuppLang.getConstArray()[ nLang ] );
+}
+
+// -----------------------------------------------------------------------
+
+void SvxThesaurusLanguageDlg_Impl::SetLanguage( sal_uInt16 nLang )
+{
+
+    sal_uInt16 nPos = -1;
+    const lang::Locale *pLocale = aSuppLang.getConstArray();
+    sal_Int32 nLocaleCount = aSuppLang.getLength();
+    for (sal_Int32 i = 0;  i < nLocaleCount;  i++)
+    {
+        if (SvxLocaleToLanguage( pLocale[i] ) == nLang)
+            break;
+    }
+    DBG_ASSERT(nPos != -1, "Sprache nicht gefunden");
+    nPos = i;
+
+    for (i = 0; i < aLangLB.GetEntryCount(); ++i )
+    {
+        if ( (sal_uInt16)(sal_uInt32)aLangLB.GetEntryData(i) == nPos )
+        {
+            aLangLB.SelectEntryPos(i);
+            break;
+        }
+    }
+
+}
+
+// -----------------------------------------------------------------------
+
+IMPL_LINK_INLINE_START( SvxThesaurusLanguageDlg_Impl, DoubleClickHdl_Impl, ListBox *, EMPTYARG )
+{
+    EndDialog( RET_OK );
+    return 0;
+}
+IMPL_LINK_INLINE_END( SvxThesaurusLanguageDlg_Impl, DoubleClickHdl_Impl, ListBox *, EMPTYARG )
+
+// class SvxThesaurusDialog ----------------------------------------------
+
+
+// -----------------------------------------------------------------------
+
+
+SvxThesaurusDialog::SvxThesaurusDialog( Window* pParent, Reference< linguistic::XThesaurus >  xThes,
+                                        const String &rWord, sal_Int16 nLanguage) :
+
+    SvxStandardDialog( pParent, SVX_RES( RID_SVXDLG_THESAURUS ) ),
+
+    aWordText   ( this, ResId( FT_WORD ) ),
+    aWordLB     ( this, ResId( LB_WORD ) ),
+    aReplaceText( this, ResId( FT_REPL ) ),
+    aReplaceEdit( this, ResId( ED_REPL ) ),
+    aMeanText   ( this, ResId( FT_MEAN ) ),
+    aMeanLB     ( this, ResId( LB_MEAN ) ),
+    aSynonymText( this, ResId( FT_SYNON ) ),
+    aSynonymLB  ( this, ResId( LB_SYNON ) ),
+    aVarBox     ( this, ResId( GB_VAR ) ),
+    aOkBtn      ( this, ResId( BTN_THES_OK ) ),
+    aCancelBtn  ( this, ResId( BTN_THES_CANCEL ) ),
+    aLookUpBtn  ( this, ResId( BTN_LOOKUP ) ),
+    aLangBtn    ( this, ResId( BTN_LANGUAGE ) ),
+    aHelpBtn    ( this, ResId( BTN_THES_HELP ) ),
+    aErrStr     (       ResId( STR_ERR_WORDNOTFOUND ) )
+{
+    pImpl = new ThesDlg_Impl( xThes );
+    pImpl->aLookUpText = ::rtl::OUString( rWord );
+    pImpl->nLookUpLanguage = nLanguage;
+    pImpl->pErrContext =
+        new SfxErrorContext( ERRCTX_SVX_LINGU_THESAURUS, String(), this,
+                             RID_SVXERRCTX, DIALOG_MGR() );
+
+    aLangBtn.SetClickHdl( LINK( this, SvxThesaurusDialog, LanguageHdl_Impl ) );
+    aLookUpBtn.SetClickHdl( LINK( this, SvxThesaurusDialog, LookUpHdl_Impl ) );
+    aMeanLB.SetSelectHdl( LINK( this, SvxThesaurusDialog, EntryHdl_Impl ) );
+    aSynonymLB.SetSelectHdl( LINK( this, SvxThesaurusDialog, SynonymHdl_Impl ) );
+    Link aLink = LINK( this, SvxThesaurusDialog, SelectHdl_Impl );
+    aMeanLB.SetDoubleClickHdl( aLink );
+    aSynonymLB.SetDoubleClickHdl( aLink );
+    aWordLB.SetSelectHdl( aLink );
+
+    FreeResource();
+
+    aReplaceEdit.SetText( rWord );
+    aWordLB.InsertEntry( rWord );
+    aWordLB.SelectEntry( rWord );
+
+    Init_Impl( nLanguage );
+
+    // disable controls if service is missing
+    if (!pImpl->xThesaurus.is())
+        Enable( sal_False );
+}
+
+
+// -----------------------------------------------------------------------
+
+SvxThesaurusDialog::~SvxThesaurusDialog()
+{
+    delete pImpl->pErrContext;
+    delete pImpl;
+}
+
+// -----------------------------------------------------------------------
+
+sal_uInt16 SvxThesaurusDialog::GetLanguage() const
+{
+    return pImpl->nLookUpLanguage;
+}
+
+// -----------------------------------------------------------------------
+
+void SvxThesaurusDialog::UpdateMeaningBox_Impl( uno::Sequence< Reference< linguistic::XMeaning >  > *pMeaningSeq )
+{
+    // create temporary meaning list if not supplied from somewhere else
+    sal_Bool bTmpSeq = sal_False;
+    if (!pMeaningSeq  &&  pImpl->xThesaurus.is())
+    {
+        bTmpSeq = sal_True;
+        lang::Locale aLocale( SvxCreateLocale( pImpl->nLookUpLanguage ) );
+        uno::Sequence< Reference< XMeaning > > aTmpMean = pImpl->xThesaurus
+                                    ->queryMeanings( pImpl->aLookUpText, aLocale );
+
+
+        pMeaningSeq = new Sequence< Reference< XMeaning >  > ( aTmpMean );
+    }
+
+    sal_Int32 nMeaningCount = pMeaningSeq ? pMeaningSeq->getLength() : 0;
+    const Reference< linguistic::XMeaning >  *pMeaning = pMeaningSeq ? pMeaningSeq->getConstArray() : NULL;
+    aMeanLB.Clear();
+    for ( sal_Int32 i = 0;  i < nMeaningCount;  ++i )
+        aMeanLB.InsertEntry( pMeaning[i]->getMeaning() );
+
+    // remove temporary meaning list
+    if (bTmpSeq)
+        delete pMeaningSeq;
+
+    if (aMeanLB.GetEntryCount() > 0)
+        aMeanLB.SelectEntryPos(0);
+    UpdateSynonymBox_Impl();
+}
+
+
+// -----------------------------------------------------------------------
+void SvxThesaurusDialog::UpdateSynonymBox_Impl()
+{
+
+    aSynonymLB.Clear();
+
+    sal_uInt16 nPos = aMeanLB.GetSelectEntryPos();  // active meaning pos
+    if (nPos != LISTBOX_ENTRY_NOTFOUND  &&  pImpl->xThesaurus.is())
+    {
+        // get Reference< linguistic::XMeaning >  for selected meaning
+        lang::Locale aLocale( SvxCreateLocale( pImpl->nLookUpLanguage ) );
+        Reference< linguistic::XMeaning >  xMeaning =
+            pImpl->xThesaurus->queryMeanings(pImpl->aLookUpText, aLocale )
+                 .getConstArray()[ nPos ];
+
+        uno::Sequence< OUString >   aSynonyms;
+        if (xMeaning.is())
+            aSynonyms = xMeaning->querySynonyms();
+
+        sal_Int32 nSynonymCount = aSynonyms.getLength();
+        const OUString *pSynonym = aSynonyms.getConstArray();
+        for ( sal_Int32 i=0;  i < nSynonymCount;  ++i )
+            aSynonymLB.InsertEntry( pSynonym[i] );
+    }
+
+}
+
+// -----------------------------------------------------------------------
+
+void SvxThesaurusDialog::Apply()
+{
+}
+
+// -----------------------------------------------------------------------
+void SvxThesaurusDialog::Init_Impl(sal_Int16 nLanguage)
+{
+    // Sprache anpassen
+    String aStr( GetText() );
+    aStr.Erase( aStr.Search( sal_Unicode( '(' ) ) - 1 );
+    aStr.Append( UniString::CreateFromAscii( RTL_CONSTASCII_STRINGPARAM( " (" ) ) );
+    //aStr += GetLanguageString( (LanguageType)pImpl->pThesaurus->GetLanguage() );
+    aStr += GetLanguageString( (LanguageType) nLanguage );
+    aStr.Append( sal_Unicode( ')' ) );
+    SetText( aStr );    // Text der Window-Leiste setzen (Wort + Sprache)
+
+    // adapt meanings according to (new) language
+    UpdateMeaningBox_Impl();
+}
+
+// -----------------------------------------------------------------------
+
+IMPL_LINK( SvxThesaurusDialog, LookUpHdl_Impl, Button *, pBtn )
+{
+
+    EnterWait();
+
+    String aText( aReplaceEdit.GetText() );
+
+    OUString aOldLookUpText = pImpl->aLookUpText;
+    pImpl->aLookUpText = ::rtl::OUString( aText );
+
+    uno::Sequence< Reference< linguistic::XMeaning >  > aMeanings;
+    if (pImpl->xThesaurus.is())
+        aMeanings = pImpl->xThesaurus->queryMeanings(
+                            pImpl->aLookUpText,
+                            SvxCreateLocale( pImpl->nLookUpLanguage ) );
+
+    LeaveWait();
+    if ( aMeanings.getLength() == 0 )
+    {
+        if( pBtn == &aCancelBtn ) // called via double click
+        {
+            pImpl->aLookUpText = aOldLookUpText;
+        }
+        else
+        {
+            UpdateMeaningBox_Impl( &aMeanings );
+            if( pBtn == &aLookUpBtn )
+                InfoBox( this, aErrStr ).Execute();
+        }
+        return 0;
+    }
+
+    UpdateMeaningBox_Impl( &aMeanings );
+
+    if ( aWordLB.GetEntryPos( aText ) == LISTBOX_ENTRY_NOTFOUND )
+        aWordLB.InsertEntry( aText );
+
+    aWordLB.SelectEntry( aText );
+    aMeanLB.SelectEntryPos( 0 );
+
+    String aStr( aMeanLB.GetSelectEntry() );
+    aStr = aStr.Erase( 0, aStr.Search( sal_Unicode( '*' ) ) );  // '*' follows an IPR synonym
+                                                // that has crossreferences
+    aStr = aStr.Erase( 0, aStr.Search( sal_Unicode( '(' ) ) );
+    aReplaceEdit.SetText( aStr );
+    aSynonymLB.SetNoSelection();
+
+    return 0;
+}
+
+// -----------------------------------------------------------------------
+
+IMPL_LINK( SvxThesaurusDialog, LanguageHdl_Impl, Button *, EMPTYARG )
+{
+    if (!pImpl->xThesaurus.is())
+        return 0;
+
+    SvxThesaurusLanguageDlg_Impl aDlg( this );
+    sal_uInt16 nLang = pImpl->nLookUpLanguage;
+    aDlg.SetLanguage( nLang );
+
+    if ( aDlg.Execute() == RET_OK )
+    {
+        nLang = aDlg.GetLanguage();
+        if (pImpl->xThesaurus->hasLocale( SvxCreateLocale( nLang ) ))
+            pImpl->nLookUpLanguage = nLang;
+        UpdateMeaningBox_Impl();
+        Init_Impl( nLang );
+    }
+
+    return 0;
+}
+
+// -----------------------------------------------------------------------
+
+IMPL_LINK( SvxThesaurusDialog, SynonymHdl_Impl, ListBox *, EMPTYARG )
+{
+    if ( aSynonymLB.GetSelectEntryPos() != LISTBOX_ENTRY_NOTFOUND )
+    {
+        String aStr( aSynonymLB.GetSelectEntry() );
+        aStr = aStr.Erase( 0, aStr.Search( sal_Unicode( '*' ) ) );
+        aStr = aStr.Erase( 0, aStr.Search( sal_Unicode( '(' ) ) );
+        aReplaceEdit.SetText( aStr );
+    }
+    return 0;
+}
+
+// -----------------------------------------------------------------------
+
+IMPL_LINK( SvxThesaurusDialog, SelectHdl_Impl, ListBox *, pBox )
+{
+    String aStr( pBox->GetSelectEntry() );
+    //aStr = aStr.Cut( 0, aStr.Search( '*' ) );
+    //aStr = aStr.Cut( 0, aStr.Search( '(' ) );
+    aReplaceEdit.SetText( aStr );
+
+    //! 'aCancelBtn' is used to indicate that the handler is called as result
+    //! of a double click action.
+    LookUpHdl_Impl( &aCancelBtn /* ??? &aLookUpBtn */ );
+
+    return 0;
+}
+
+// -----------------------------------------------------------------------
+
+IMPL_LINK( SvxThesaurusDialog, EntryHdl_Impl, ListBox *, EMPTYARG )
+{
+
+    UpdateSynonymBox_Impl();
+
+    return 0;
+}
+
+// -----------------------------------------------------------------------
+
+IMPL_LINK( SvxThesaurusDialog, SpellErrorHdl_Impl, void *, pError )
+{
+    // Der "ubergebene Pointer pError ist die falsche Sprachen-Nummer
+    LanguageType eLang = (LanguageType)(sal_uInt32)pError;
+    String aErr( ::GetLanguageString( eLang ) );
+    // Fehlermeldung ausgeben
+    ErrorHandler::HandleError(
+        *new StringErrorInfo( ERRCODE_SVX_LINGU_LANGUAGENOTEXISTS, aErr ) );
+    return 0;
+}
+
+