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