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