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