basctl/source/basicide/basicbox.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include <basidesh.hrc>
  21 #include <basidesh.hxx>
  22
  23 #include <basicbox.hxx>
  24 #include <iderdll.hxx>
  25
  26 #include "localizationmgr.hxx"
  27 #include "managelang.hxx"
  28 #include "dlgresid.hrc"
  29
  30 #include <sfx2/dispatch.hxx>
  31 #include <svtools/langtab.hxx>
  32
  33 namespace basctl
  34 {
  35
  36 using namespace ::com::sun::star;
  37 using namespace ::com::sun::star::lang;
  38 using namespace ::com::sun::star::uno;
  39
  40 SFX_IMPL_TOOLBOX_CONTROL( LibBoxControl, SfxStringItem );
  41
  42 LibBoxControl::LibBoxControl( sal_uInt16 nSlotId, sal_uInt16 nId, ToolBox& rTbx )
  43     : SfxToolBoxControl( nSlotId, nId, rTbx )
  44 {
  45 }
  46
  47
  48
  49 void LibBoxControl::StateChanged( sal_uInt16, SfxItemState eState, const SfxPoolItem* pState )
  50 {
  51     LibBox* pBox = static_cast<LibBox*>(GetToolBox().GetItemWindow(GetId()));
  52
  53     DBG_ASSERT( pBox, "Box not found" );
  54     if ( !pBox )
  55         return;
  56
  57     if ( eState != SfxItemState::DEFAULT )
  58         pBox->Disable();
  59     else
  60     {
  61         pBox->Enable();
  62         pBox->Update(dynamic_cast<SfxStringItem const*>(pState));
  63     }
  64 }
  65
  66
  67
  68 VclPtr<vcl::Window> LibBoxControl::CreateItemWindow( vcl::Window *pParent )
  69 {
  70     return VclPtr<LibBox>::Create( pParent, m_xFrame );
  71 }
  72
  73
  74 DocListenerBox::DocListenerBox( vcl::Window* pParent )
  75     :ListBox( pParent, WinBits( WB_BORDER | WB_DROPDOWN ) )
  76     ,m_aNotifier( *this )
  77 {
  78 }
  79
  80 DocListenerBox::~DocListenerBox()
  81 {
  82     disposeOnce();
  83 }
  84
  85 void DocListenerBox::dispose()
  86 {
  87     m_aNotifier.dispose();
  88     ListBox::dispose();
  89 }
  90
  91 void DocListenerBox::onDocumentCreated( const ScriptDocument& /*_rDocument*/ )
  92 {
  93     FillBox();
  94 }
  95
  96 void DocListenerBox::onDocumentOpened( const ScriptDocument& /*_rDocument*/ )
  97 {
  98     FillBox();
  99 }
 100
 101 void DocListenerBox::onDocumentSave( const ScriptDocument& /*_rDocument*/ )
 102 {
 103     // not interested in
 104 }
 105
 106 void DocListenerBox::onDocumentSaveDone( const ScriptDocument& /*_rDocument*/ )
 107 {
 108     // not interested in
 109 }
 110
 111 void DocListenerBox::onDocumentSaveAs( const ScriptDocument& /*_rDocument*/ )
 112 {
 113     // not interested in
 114 }
 115
 116 void DocListenerBox::onDocumentSaveAsDone( const ScriptDocument& /*_rDocument*/ )
 117 {
 118     FillBox();
 119 }
 120
 121 void DocListenerBox::onDocumentClosed( const ScriptDocument& /*_rDocument*/ )
 122 {
 123     FillBox();
 124 }
 125
 126 void DocListenerBox::onDocumentTitleChanged( const ScriptDocument& /*_rDocument*/ )
 127 {
 128     // not interested in
 129 }
 130
 131 void DocListenerBox::onDocumentModeChanged( const ScriptDocument& /*_rDocument*/ )
 132 {
 133     // not interested in
 134 }
 135
 136 LibBox::LibBox( vcl::Window* pParent, const uno::Reference< frame::XFrame >& rFrame ) :
 137     DocListenerBox( pParent ),
 138     m_xFrame( rFrame )
 139 {
 140     FillBox();
 141     bIgnoreSelect = true;   // do not yet transfer select of 0
 142     bFillBox = true;
 143     SelectEntryPos( 0 );
 144     aCurText = GetEntry( 0 );
 145     SetSizePixel( Size( 250, 200 ) );
 146     bIgnoreSelect = false;
 147 }
 148
 149
 150
 151 LibBox::~LibBox()
 152 {
 153     disposeOnce();
 154 }
 155
 156 void LibBox::dispose()
 157 {
 158     ClearBox();
 159     DocListenerBox::dispose();
 160 }
 161
 162 void LibBox::Update( const SfxStringItem* pItem )
 163 {
 164
 165 //  if ( !pItem  || !pItem->GetValue().Len() )
 166         FillBox();
 167
 168     if ( pItem )
 169     {
 170         aCurText = pItem->GetValue();
 171         if ( aCurText.isEmpty() )
 172             aCurText = OUString( IDEResId( RID_STR_ALL ) );
 173     }
 174
 175     if ( GetSelectEntry() != aCurText )
 176         SelectEntry( aCurText );
 177 }
 178
 179 void LibBox::ReleaseFocus()
 180 {
 181     SfxViewShell* pCurSh = SfxViewShell::Current();
 182     DBG_ASSERT( pCurSh, "Current ViewShell not found!" );
 183
 184     if ( pCurSh )
 185     {
 186         vcl::Window* pShellWin = pCurSh->GetWindow();
 187         if ( !pShellWin )
 188             pShellWin = Application::GetDefDialogParent();
 189
 190         pShellWin->GrabFocus();
 191     }
 192 }
 193
 194 void LibBox::FillBox()
 195 {
 196     SetUpdateMode(false);
 197     bIgnoreSelect = true;
 198
 199     aCurText = GetSelectEntry();
 200
 201     SelectEntryPos( 0 );
 202     ClearBox();
 203
 204     // create list box entries
 205     sal_Int32 nPos = InsertEntry( OUString( IDEResId( RID_STR_ALL ) ), LISTBOX_APPEND );
 206     SetEntryData( nPos, new LibEntry( ScriptDocument::getApplicationScriptDocument(), LIBRARY_LOCATION_UNKNOWN, OUString() ) );
 207     InsertEntries( ScriptDocument::getApplicationScriptDocument(), LIBRARY_LOCATION_USER );
 208     InsertEntries( ScriptDocument::getApplicationScriptDocument(), LIBRARY_LOCATION_SHARE );
 209
 210     ScriptDocuments aDocuments( ScriptDocument::getAllScriptDocuments( ScriptDocument::DocumentsSorted ) );
 211     for (   ScriptDocuments::const_iterator doc = aDocuments.begin();
 212             doc != aDocuments.end();
 213             ++doc
 214         )
 215     {
 216         InsertEntries( *doc, LIBRARY_LOCATION_DOCUMENT );
 217     }
 218
 219     SetUpdateMode(true);
 220
 221     SelectEntry( aCurText );
 222     if ( !GetSelectEntryCount() )
 223     {
 224         SelectEntryPos( GetEntryCount() );
 225         aCurText = GetSelectEntry();
 226     }
 227     bIgnoreSelect = false;
 228 }
 229
 230 void LibBox::InsertEntries( const ScriptDocument& rDocument, LibraryLocation eLocation )
 231 {
 232     // get a sorted list of library names
 233     Sequence< OUString > aLibNames = rDocument.getLibraryNames();
 234     sal_Int32 nLibCount = aLibNames.getLength();
 235     const OUString* pLibNames = aLibNames.getConstArray();
 236
 237     for ( sal_Int32 i = 0 ; i < nLibCount ; ++i )
 238     {
 239         OUString aLibName = pLibNames[ i ];
 240         if ( eLocation == rDocument.getLibraryLocation( aLibName ) )
 241         {
 242             OUString aName( rDocument.getTitle( eLocation ) );
 243             OUString aEntryText( CreateMgrAndLibStr( aName, aLibName ) );
 244             sal_Int32 nPos = InsertEntry( aEntryText, LISTBOX_APPEND );
 245             SetEntryData( nPos, new LibEntry( rDocument, eLocation, aLibName ) );
 246         }
 247     }
 248 }
 249
 250 bool LibBox::PreNotify( NotifyEvent& rNEvt )
 251 {
 252     bool nDone = false;
 253     if( rNEvt.GetType() == MouseNotifyEvent::KEYINPUT )
 254     {
 255         KeyEvent aKeyEvt = *rNEvt.GetKeyEvent();
 256         sal_uInt16 nKeyCode = aKeyEvt.GetKeyCode().GetCode();
 257         switch( nKeyCode )
 258         {
 259             case KEY_RETURN:
 260             {
 261                 NotifyIDE();
 262                 nDone = true;
 263             }
 264             break;
 265
 266             case KEY_ESCAPE:
 267             {
 268                 SelectEntry( aCurText );
 269                 ReleaseFocus();
 270                 nDone = true;
 271             }
 272             break;
 273         }
 274     }
 275     else if( rNEvt.GetType() == MouseNotifyEvent::GETFOCUS )
 276     {
 277         if ( bFillBox )
 278         {
 279             FillBox();
 280             bFillBox = false;
 281         }
 282     }
 283     else if( rNEvt.GetType() == MouseNotifyEvent::LOSEFOCUS )
 284     {
 285         if ( !HasChildPathFocus(true) )
 286         {
 287             bIgnoreSelect = true;
 288             bFillBox = true;
 289         }
 290     }
 291
 292     return nDone || ListBox::PreNotify( rNEvt );
 293 }
 294
 295 void LibBox::Select()
 296 {
 297     if ( !IsTravelSelect() )
 298     {
 299         if ( !bIgnoreSelect )
 300             NotifyIDE();
 301         else
 302             SelectEntry( aCurText );    // since 306... (Select after Escape)
 303     }
 304 }
 305
 306 void LibBox::NotifyIDE()
 307 {
 308     sal_Int32 nSelPos = GetSelectEntryPos();
 309     if (LibEntry* pEntry = static_cast<LibEntry*>(GetEntryData(nSelPos)))
 310     {
 311         ScriptDocument aDocument( pEntry->GetDocument() );
 312         SfxUsrAnyItem aDocumentItem( SID_BASICIDE_ARG_DOCUMENT_MODEL, uno::makeAny( aDocument.getDocumentOrNull() ) );
 313         OUString aLibName = pEntry->GetLibName();
 314         SfxStringItem aLibNameItem( SID_BASICIDE_ARG_LIBNAME, aLibName );
 315         if (SfxDispatcher* pDispatcher = GetDispatcher())
 316             pDispatcher->Execute(
 317                 SID_BASICIDE_LIBSELECTED,
 318                 SfxCallMode::SYNCHRON, &aDocumentItem, &aLibNameItem, 0L
 319             );
 320     }
 321     ReleaseFocus();
 322 }
 323
 324 void LibBox::ClearBox()
 325 {
 326     sal_Int32 nCount = GetEntryCount();
 327     for ( sal_Int32 i = 0; i < nCount; ++i )
 328     {
 329         LibEntry* pEntry = static_cast<LibEntry*>(GetEntryData( i ));
 330         delete pEntry;
 331     }
 332     ListBox::Clear();
 333 }
 334
 335 // class LanguageBoxControl ----------------------------------------------
 336
 337 SFX_IMPL_TOOLBOX_CONTROL( LanguageBoxControl, SfxStringItem );
 338
 339 LanguageBoxControl::LanguageBoxControl( sal_uInt16 nSlotId, sal_uInt16 nId, ToolBox& rTbx )
 340     : SfxToolBoxControl( nSlotId, nId, rTbx )
 341 {
 342 }
 343
 344 void LanguageBoxControl::StateChanged( sal_uInt16 nID, SfxItemState eState, const SfxPoolItem* pItem )
 345 {
 346     (void)nID;
 347     if (LanguageBox* pBox = static_cast<LanguageBox*>(GetToolBox().GetItemWindow(GetId())))
 348     {
 349         if (eState != SfxItemState::DEFAULT)
 350             pBox->Disable();
 351         else
 352         {
 353             pBox->Enable();
 354             pBox->Update(dynamic_cast<SfxStringItem const*>(pItem));
 355         }
 356     }
 357 }
 358
 359 VclPtr<vcl::Window> LanguageBoxControl::CreateItemWindow( vcl::Window *pParent )
 360 {
 361     return VclPtr<LanguageBox>::Create( pParent );
 362 }
 363
 364 // class basctl::LanguageBox -----------------------------------------------
 365
 366 LanguageBox::LanguageBox( vcl::Window* pParent ) :
 367
 368     DocListenerBox( pParent ),
 369
 370     m_sNotLocalizedStr( IDEResId( RID_STR_TRANSLATION_NOTLOCALIZED ) ),
 371     m_sDefaultLanguageStr( IDEResId( RID_STR_TRANSLATION_DEFAULT ) ),
 372
 373     m_bIgnoreSelect( false )
 374
 375 {
 376     SetSizePixel( Size( 210, 200 ) );
 377
 378     FillBox();
 379 }
 380
 381 LanguageBox::~LanguageBox()
 382 {
 383     disposeOnce();
 384 }
 385
 386 void LanguageBox::dispose()
 387 {
 388     ClearBox();
 389     DocListenerBox::dispose();
 390 }
 391
 392 void LanguageBox::FillBox()
 393 {
 394     SetUpdateMode(false);
 395     m_bIgnoreSelect = true;
 396     m_sCurrentText = GetSelectEntry();
 397     ClearBox();
 398
 399     boost::shared_ptr<LocalizationMgr> pCurMgr(GetShell()->GetCurLocalizationMgr());
 400     if ( pCurMgr->isLibraryLocalized() )
 401     {
 402         Enable();
 403         Locale aDefaultLocale = pCurMgr->getStringResourceManager()->getDefaultLocale();
 404         Locale aCurrentLocale = pCurMgr->getStringResourceManager()->getCurrentLocale();
 405         Sequence< Locale > aLocaleSeq = pCurMgr->getStringResourceManager()->getLocales();
 406         const Locale* pLocale = aLocaleSeq.getConstArray();
 407         sal_Int32 i, nCount = aLocaleSeq.getLength();
 408         sal_Int32 nSelPos = LISTBOX_ENTRY_NOTFOUND;
 409         for ( i = 0;  i < nCount;  ++i )
 410         {
 411             bool bIsDefault = localesAreEqual( aDefaultLocale, pLocale[i] );
 412             bool bIsCurrent = localesAreEqual( aCurrentLocale, pLocale[i] );
 413             LanguageType eLangType = LanguageTag::convertToLanguageType( pLocale[i] );
 414             OUString sLanguage = SvtLanguageTable::GetLanguageString( eLangType );
 415             if ( bIsDefault )
 416             {
 417                 sLanguage += " ";
 418                 sLanguage += m_sDefaultLanguageStr;
 419             }
 420             sal_Int32 nPos = InsertEntry( sLanguage );
 421             SetEntryData( nPos, new LanguageEntry( sLanguage, pLocale[i], bIsDefault ) );
 422
 423             if ( bIsCurrent )
 424                 nSelPos = nPos;
 425         }
 426
 427         if ( nSelPos != LISTBOX_ENTRY_NOTFOUND )
 428         {
 429             SelectEntryPos( nSelPos );
 430             m_sCurrentText = GetSelectEntry();
 431         }
 432     }
 433     else
 434     {
 435         InsertEntry( m_sNotLocalizedStr );
 436         SelectEntryPos(0);
 437         Disable();
 438     }
 439
 440     SetUpdateMode(true);
 441     m_bIgnoreSelect = false;
 442 }
 443
 444 void LanguageBox::ClearBox()
 445 {
 446     sal_Int32 nCount = GetEntryCount();
 447     for ( sal_Int32 i = 0; i < nCount; ++i )
 448     {
 449         LanguageEntry* pEntry = static_cast<LanguageEntry*>(GetEntryData(i));
 450         delete pEntry;
 451     }
 452     ListBox::Clear();
 453 }
 454
 455 void LanguageBox::SetLanguage()
 456 {
 457     LanguageEntry* pEntry = static_cast<LanguageEntry*>(GetSelectEntryData());
 458     if ( pEntry )
 459         GetShell()->GetCurLocalizationMgr()->handleSetCurrentLocale( pEntry->m_aLocale );
 460 }
 461
 462 void LanguageBox::Select()
 463 {
 464     if ( !m_bIgnoreSelect )
 465         SetLanguage();
 466     else
 467         SelectEntry( m_sCurrentText );  // Select after Escape
 468 }
 469
 470 bool LanguageBox::PreNotify( NotifyEvent& rNEvt )
 471 {
 472     bool nDone = false;
 473     if( rNEvt.GetType() == MouseNotifyEvent::KEYINPUT )
 474     {
 475         sal_uInt16 nKeyCode = rNEvt.GetKeyEvent()->GetKeyCode().GetCode();
 476         switch( nKeyCode )
 477         {
 478             case KEY_RETURN:
 479             {
 480                 SetLanguage();
 481                 nDone = true;
 482             }
 483             break;
 484
 485             case KEY_ESCAPE:
 486             {
 487                 SelectEntry( m_sCurrentText );
 488                 nDone = true;
 489             }
 490             break;
 491         }
 492     }
 493     else if( rNEvt.GetType() == MouseNotifyEvent::GETFOCUS )
 494     {
 495     }
 496     else if( rNEvt.GetType() == MouseNotifyEvent::LOSEFOCUS )
 497     {
 498     }
 499
 500     return nDone || ListBox::PreNotify( rNEvt );
 501 }
 502
 503 void LanguageBox::Update( const SfxStringItem* pItem )
 504 {
 505     FillBox();
 506
 507     if ( pItem && !pItem->GetValue().isEmpty() )
 508     {
 509         m_sCurrentText = pItem->GetValue();
 510         if ( GetSelectEntry() != m_sCurrentText )
 511             SelectEntry( m_sCurrentText );
 512     }
 513 }
 514
 515
 516 } // namespace basctl
 517
 518 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */