Line data Source code
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 <config_options.h>
21 :
22 : #include "basidesh.hxx"
23 :
24 : #include <tools/diagnose_ex.h>
25 : #include <basic/basmgr.hxx>
26 : #include <basidesh.hrc>
27 : #include "baside2.hxx"
28 : #include "baside3.hxx"
29 : #include <basdoc.hxx>
30 : #include <basicbox.hxx>
31 : #include <editeng/sizeitem.hxx>
32 : #include <objdlg.hxx>
33 : #include <tbxctl.hxx>
34 : #include <iderdll2.hxx>
35 : #include <basidectrlr.hxx>
36 : #include <localizationmgr.hxx>
37 : #include <sfx2/app.hxx>
38 : #include <sfx2/dinfdlg.hxx>
39 : #include <sfx2/dispatch.hxx>
40 : #include <sfx2/infobar.hxx>
41 : #include <sfx2/minfitem.hxx>
42 : #include <sfx2/objface.hxx>
43 : #include <svl/aeitem.hxx>
44 : #include <svl/intitem.hxx>
45 : #include <svl/srchitem.hxx>
46 :
47 : #define basctl_Shell
48 : #define SFX_TYPEMAP
49 : #include <idetemp.hxx>
50 : #include <basslots.hxx>
51 : #include <iderdll.hxx>
52 : #include <svx/pszctrl.hxx>
53 : #include <svx/insctrl.hxx>
54 : #include <svx/srchdlg.hxx>
55 : #include <svx/tbcontrl.hxx>
56 : #include <com/sun/star/script/XLibraryContainerPassword.hpp>
57 : #include <com/sun/star/container/XContainer.hpp>
58 : #include <svx/xmlsecctrl.hxx>
59 : #include <sfx2/viewfac.hxx>
60 : #include <vcl/msgbox.hxx>
61 : #include <vcl/settings.hxx>
62 :
63 : namespace basctl
64 : {
65 :
66 : using namespace ::com::sun::star::uno;
67 : using namespace ::com::sun::star;
68 :
69 : typedef ::cppu::WeakImplHelper1< container::XContainerListener > ContainerListenerBASE;
70 :
71 : class ContainerListenerImpl : public ContainerListenerBASE
72 : {
73 : Shell* mpShell;
74 : public:
75 :
76 0 : ContainerListenerImpl (Shell* pShell) : mpShell(pShell) { }
77 :
78 0 : virtual ~ContainerListenerImpl()
79 0 : { }
80 :
81 0 : void addContainerListener( const ScriptDocument& rScriptDocument, const OUString& aLibName )
82 : {
83 : try
84 : {
85 0 : uno::Reference< container::XContainer > xContainer( rScriptDocument.getLibrary( E_SCRIPTS, aLibName, false ), uno::UNO_QUERY );
86 0 : if ( xContainer.is() )
87 : {
88 0 : uno::Reference< container::XContainerListener > xContainerListener( this );
89 0 : xContainer->addContainerListener( xContainerListener );
90 0 : }
91 : }
92 0 : catch(const uno::Exception& ) {}
93 0 : }
94 0 : void removeContainerListener( const ScriptDocument& rScriptDocument, const OUString& aLibName )
95 : {
96 : try
97 : {
98 0 : uno::Reference< container::XContainer > xContainer( rScriptDocument.getLibrary( E_SCRIPTS, aLibName, false ), uno::UNO_QUERY );
99 0 : if ( xContainer.is() )
100 : {
101 0 : uno::Reference< container::XContainerListener > xContainerListener( this );
102 0 : xContainer->removeContainerListener( xContainerListener );
103 0 : }
104 : }
105 0 : catch(const uno::Exception& ) {}
106 0 : }
107 :
108 : // XEventListener
109 0 : virtual void SAL_CALL disposing( const lang::EventObject& ) throw( uno::RuntimeException, std::exception ) SAL_OVERRIDE {}
110 :
111 : // XContainerListener
112 0 : virtual void SAL_CALL elementInserted( const container::ContainerEvent& Event ) throw( uno::RuntimeException, std::exception ) SAL_OVERRIDE
113 : {
114 0 : OUString sModuleName;
115 0 : if( mpShell && ( Event.Accessor >>= sModuleName ) )
116 0 : mpShell->FindBasWin( mpShell->m_aCurDocument, mpShell->m_aCurLibName, sModuleName, true, false );
117 0 : }
118 0 : virtual void SAL_CALL elementReplaced( const container::ContainerEvent& ) throw( com::sun::star::uno::RuntimeException, std::exception ) SAL_OVERRIDE { }
119 0 : virtual void SAL_CALL elementRemoved( const container::ContainerEvent& Event ) throw( com::sun::star::uno::RuntimeException, std::exception ) SAL_OVERRIDE
120 : {
121 0 : OUString sModuleName;
122 0 : if( mpShell && ( Event.Accessor >>= sModuleName ) )
123 : {
124 0 : ModulWindow* pWin = mpShell->FindBasWin(mpShell->m_aCurDocument, mpShell->m_aCurLibName, sModuleName, false, true);
125 0 : if( pWin )
126 0 : mpShell->RemoveWindow( pWin, true, true );
127 0 : }
128 0 : }
129 :
130 : };
131 :
132 0 : TYPEINIT1( Shell, SfxViewShell );
133 :
134 0 : SFX_IMPL_NAMED_VIEWFACTORY( Shell, "Default" )
135 : {
136 0 : SFX_VIEW_REGISTRATION( DocShell );
137 0 : }
138 :
139 0 : SFX_IMPL_INTERFACE(basctl_Shell, SfxViewShell, IDEResId(RID_STR_IDENAME))
140 :
141 0 : void basctl_Shell::InitInterface_Impl()
142 : {
143 0 : GetStaticInterface()->RegisterChildWindow(SID_SEARCH_DLG);
144 0 : GetStaticInterface()->RegisterChildWindow(SID_SHOW_PROPERTYBROWSER, false, BASICIDE_UI_FEATURE_SHOW_BROWSER);
145 0 : GetStaticInterface()->RegisterChildWindow(SfxInfoBarContainerChild::GetChildWindowId());
146 :
147 0 : GetStaticInterface()->RegisterPopupMenu(IDEResId(RID_POPUP_DLGED));
148 0 : }
149 :
150 : namespace
151 : {
152 :
153 : unsigned const ShellFlags = SFX_VIEW_CAN_PRINT | SFX_VIEW_NO_NEWWINDOW;
154 :
155 : }
156 :
157 : unsigned Shell::nShellCount = 0;
158 :
159 0 : Shell::Shell( SfxViewFrame* pFrame_, SfxViewShell* /* pOldShell */ ) :
160 : SfxViewShell( pFrame_, ShellFlags ),
161 0 : m_aCurDocument( ScriptDocument::getApplicationScriptDocument() ),
162 0 : aHScrollBar( &GetViewFrame()->GetWindow(), WinBits( WB_HSCROLL | WB_DRAG ) ),
163 0 : aVScrollBar( &GetViewFrame()->GetWindow(), WinBits( WB_VSCROLL | WB_DRAG ) ),
164 0 : aScrollBarBox( &GetViewFrame()->GetWindow(), WinBits( WB_SIZEABLE ) ),
165 : pLayout(0),
166 0 : aObjectCatalog(&GetViewFrame()->GetWindow()),
167 : m_bAppBasicModified( false ),
168 0 : m_aNotifier( *this )
169 : {
170 0 : m_xLibListener = new ContainerListenerImpl( this );
171 0 : Init();
172 0 : nShellCount++;
173 0 : }
174 :
175 0 : void Shell::Init()
176 : {
177 0 : TbxControls::RegisterControl( SID_CHOOSE_CONTROLS );
178 0 : SvxPosSizeStatusBarControl::RegisterControl();
179 0 : SvxInsertStatusBarControl::RegisterControl();
180 0 : XmlSecStatusBarControl::RegisterControl( SID_SIGNATURE );
181 0 : SvxSimpleUndoRedoController::RegisterControl( SID_UNDO );
182 0 : SvxSimpleUndoRedoController::RegisterControl( SID_REDO );
183 :
184 0 : SvxSearchDialogWrapper::RegisterChildWindow(false);
185 :
186 0 : GetExtraData()->ShellInCriticalSection() = true;
187 :
188 0 : SetName( OUString( "BasicIDE" ) );
189 0 : SetHelpId( SVX_INTERFACE_BASIDE_VIEWSH );
190 :
191 0 : LibBoxControl::RegisterControl( SID_BASICIDE_LIBSELECTOR );
192 0 : LanguageBoxControl::RegisterControl( SID_BASICIDE_CURRENT_LANG );
193 :
194 0 : GetViewFrame()->GetWindow().SetBackground(
195 0 : GetViewFrame()->GetWindow().GetSettings().GetStyleSettings().GetWindowColor()
196 0 : );
197 :
198 0 : pCurWin = 0;
199 0 : m_aCurDocument = ScriptDocument::getApplicationScriptDocument();
200 0 : bCreatingWindow = false;
201 :
202 0 : pTabBar.reset(new TabBar(&GetViewFrame()->GetWindow()));
203 0 : pTabBar->SetSplitHdl( LINK( this, Shell, TabBarSplitHdl ) );
204 0 : bTabBarSplitted = false;
205 :
206 0 : nCurKey = 100;
207 0 : InitScrollBars();
208 0 : InitTabBar();
209 :
210 0 : SetCurLib( ScriptDocument::getApplicationScriptDocument(), "Standard", false, false );
211 :
212 0 : ShellCreated(this);
213 :
214 0 : GetExtraData()->ShellInCriticalSection() = false;
215 :
216 : // It's enough to create the controller ...
217 : // It will be public by using magic :-)
218 0 : new Controller(this);
219 :
220 : // Force updating the title ! Because it must be set to the controller
221 : // it has to be called directly after creating those controller.
222 0 : SetMDITitle ();
223 :
224 0 : UpdateWindows();
225 0 : }
226 :
227 0 : Shell::~Shell()
228 : {
229 0 : m_aNotifier.dispose();
230 :
231 0 : ShellDestroyed(this);
232 :
233 : // so that on a basic saving error, the shell doesn't pop right up again
234 0 : GetExtraData()->ShellInCriticalSection() = true;
235 :
236 0 : SetWindow( 0 );
237 0 : SetCurWindow( 0 );
238 :
239 0 : for (WindowTableIt it = aWindowTable.begin(); it != aWindowTable.end(); ++it)
240 : {
241 : // no store; does already happen when the BasicManagers are destroyed
242 0 : delete it->second;
243 : }
244 :
245 : // Destroy all ContainerListeners for Basic Container.
246 0 : if (ContainerListenerImpl* pListener = static_cast<ContainerListenerImpl*>(m_xLibListener.get()))
247 0 : pListener->removeContainerListener(m_aCurDocument, m_aCurLibName);
248 :
249 0 : GetExtraData()->ShellInCriticalSection() = false;
250 :
251 0 : nShellCount--;
252 0 : }
253 :
254 0 : void Shell::onDocumentCreated( const ScriptDocument& /*_rDocument*/ )
255 : {
256 0 : if (pCurWin)
257 : {
258 0 : pCurWin->OnNewDocument();
259 :
260 : // for VBA documents, show a warning that we can save them only in ODF
261 0 : if (pCurWin->GetDocument().isInVBAMode())
262 0 : GetViewFrame()->AppendInfoBar("vba_save", IDE_RESSTR(RID_STR_CANNOTSAVEVBA));
263 : }
264 :
265 0 : UpdateWindows();
266 0 : }
267 :
268 0 : void Shell::onDocumentOpened( const ScriptDocument& /*_rDocument*/ )
269 : {
270 0 : if (pCurWin)
271 0 : pCurWin->OnNewDocument();
272 0 : UpdateWindows();
273 0 : }
274 :
275 0 : void Shell::onDocumentSave( const ScriptDocument& /*_rDocument*/ )
276 : {
277 0 : StoreAllWindowData();
278 0 : }
279 :
280 0 : void Shell::onDocumentSaveDone( const ScriptDocument& /*_rDocument*/ )
281 : {
282 : // #i115671: Update SID_SAVEDOC after saving is completed
283 0 : if (SfxBindings* pBindings = GetBindingsPtr())
284 0 : pBindings->Invalidate( SID_SAVEDOC );
285 0 : }
286 :
287 0 : void Shell::onDocumentSaveAs( const ScriptDocument& /*_rDocument*/ )
288 : {
289 0 : StoreAllWindowData();
290 0 : }
291 :
292 0 : void Shell::onDocumentSaveAsDone( const ScriptDocument& /*_rDocument*/ )
293 : {
294 : // not interested in
295 0 : }
296 :
297 0 : void Shell::onDocumentClosed( const ScriptDocument& _rDocument )
298 : {
299 0 : if ( !_rDocument.isValid() )
300 0 : return;
301 :
302 0 : bool bSetCurWindow = false;
303 0 : bool bSetCurLib = ( _rDocument == m_aCurDocument );
304 0 : std::vector<BaseWindow*> aDeleteVec;
305 :
306 : // remove all windows which belong to this document
307 0 : for (WindowTableIt it = aWindowTable.begin(); it != aWindowTable.end(); ++it)
308 : {
309 0 : BaseWindow* pWin = it->second;
310 0 : if ( pWin->IsDocument( _rDocument ) )
311 : {
312 0 : if ( pWin->GetStatus() & (BASWIN_RUNNINGBASIC|BASWIN_INRESCHEDULE) )
313 : {
314 0 : pWin->AddStatus( BASWIN_TOBEKILLED );
315 0 : pWin->Hide();
316 0 : StarBASIC::Stop();
317 : // there's no notify
318 0 : pWin->BasicStopped();
319 : }
320 : else
321 0 : aDeleteVec.push_back( pWin );
322 : }
323 : }
324 : // delete windows outside main loop so we don't invalidate the original iterator
325 0 : for (std::vector<BaseWindow*>::const_iterator it = aDeleteVec.begin(); it != aDeleteVec.end(); ++it)
326 : {
327 0 : BaseWindow* pWin = *it;
328 0 : pWin->StoreData();
329 0 : if ( pWin == pCurWin )
330 0 : bSetCurWindow = true;
331 0 : RemoveWindow( pWin, true, false );
332 : }
333 :
334 : // remove lib info
335 0 : if (ExtraData* pData = GetExtraData())
336 0 : pData->GetLibInfos().RemoveInfoFor( _rDocument );
337 :
338 0 : if ( bSetCurLib )
339 0 : SetCurLib( ScriptDocument::getApplicationScriptDocument(), "Standard", true, false );
340 0 : else if ( bSetCurWindow )
341 0 : SetCurWindow( FindApplicationWindow(), true );
342 : }
343 :
344 0 : void Shell::onDocumentTitleChanged( const ScriptDocument& /*_rDocument*/ )
345 : {
346 0 : if (SfxBindings* pBindings = GetBindingsPtr())
347 0 : pBindings->Invalidate( SID_BASICIDE_LIBSELECTOR, true, false );
348 0 : SetMDITitle();
349 0 : }
350 :
351 0 : void Shell::onDocumentModeChanged( const ScriptDocument& _rDocument )
352 : {
353 0 : for (WindowTableIt it = aWindowTable.begin(); it != aWindowTable.end(); ++it)
354 : {
355 0 : BaseWindow* pWin = it->second;
356 0 : if ( pWin->IsDocument( _rDocument ) && _rDocument.isDocument() )
357 0 : pWin->SetReadOnly( _rDocument.isReadOnly() );
358 : }
359 0 : }
360 :
361 0 : void Shell::StoreAllWindowData( bool bPersistent )
362 : {
363 0 : for (WindowTableIt it = aWindowTable.begin(); it != aWindowTable.end(); ++it)
364 : {
365 0 : BaseWindow* pWin = it->second;
366 : DBG_ASSERT( pWin, "PrepareClose: NULL-Pointer in Table?" );
367 0 : if ( !pWin->IsSuspended() )
368 0 : pWin->StoreData();
369 : }
370 :
371 0 : if ( bPersistent )
372 : {
373 0 : SfxGetpApp()->SaveBasicAndDialogContainer();
374 0 : SetAppBasicModified(false);
375 :
376 0 : if (SfxBindings* pBindings = GetBindingsPtr())
377 : {
378 0 : pBindings->Invalidate( SID_SAVEDOC );
379 0 : pBindings->Update( SID_SAVEDOC );
380 : }
381 : }
382 0 : }
383 :
384 :
385 0 : bool Shell::PrepareClose( bool bUI )
386 : {
387 : // reset here because it's modified after printing etc. (DocInfo)
388 0 : GetViewFrame()->GetObjectShell()->SetModified(false);
389 :
390 0 : if ( StarBASIC::IsRunning() )
391 : {
392 0 : if( bUI )
393 : {
394 0 : vcl::Window *pParent = &GetViewFrame()->GetWindow();
395 0 : InfoBox( pParent, IDE_RESSTR(RID_STR_CANNOTCLOSE)).Execute();
396 : }
397 0 : return false;
398 : }
399 : else
400 : {
401 0 : bool bCanClose = true;
402 0 : for (WindowTableIt it = aWindowTable.begin(); bCanClose && (it != aWindowTable.end()); ++it)
403 : {
404 0 : BaseWindow* pWin = it->second;
405 0 : if ( !pWin->CanClose() )
406 : {
407 0 : if ( !m_aCurLibName.isEmpty() && ( pWin->IsDocument( m_aCurDocument ) || pWin->GetLibName() != m_aCurLibName ) )
408 0 : SetCurLib( ScriptDocument::getApplicationScriptDocument(), OUString(), false );
409 0 : SetCurWindow( pWin, true );
410 0 : bCanClose = false;
411 : }
412 : }
413 :
414 0 : if ( bCanClose )
415 0 : StoreAllWindowData( false ); // don't write on the disk, that will be done later automatically
416 :
417 0 : return bCanClose;
418 : }
419 : }
420 :
421 0 : void Shell::InitScrollBars()
422 : {
423 0 : aVScrollBar.SetLineSize( 300 );
424 0 : aVScrollBar.SetPageSize( 2000 );
425 0 : aHScrollBar.SetLineSize( 300 );
426 0 : aHScrollBar.SetPageSize( 2000 );
427 0 : aHScrollBar.Enable();
428 0 : aVScrollBar.Enable();
429 0 : aVScrollBar.Show();
430 0 : aHScrollBar.Show();
431 0 : aScrollBarBox.Show();
432 0 : }
433 :
434 :
435 :
436 0 : void Shell::InitTabBar()
437 : {
438 0 : pTabBar->Enable();
439 0 : pTabBar->Show();
440 0 : pTabBar->SetSelectHdl( LINK( this, Shell, TabBarHdl ) );
441 0 : }
442 :
443 :
444 :
445 0 : void Shell::OuterResizePixel( const Point &rPos, const Size &rSize )
446 : {
447 0 : AdjustPosSizePixel( rPos, rSize );
448 0 : }
449 :
450 :
451 0 : IMPL_LINK_INLINE_START( Shell, TabBarSplitHdl, TabBar *, pTBar )
452 : {
453 : (void)pTBar;
454 0 : bTabBarSplitted = true;
455 0 : ArrangeTabBar();
456 :
457 0 : return 0;
458 : }
459 0 : IMPL_LINK_INLINE_END( Shell, TabBarSplitHdl, TabBar *, pTBar )
460 :
461 :
462 :
463 0 : IMPL_LINK( Shell, TabBarHdl, TabBar *, pCurTabBar )
464 : {
465 0 : sal_uInt16 nCurId = pCurTabBar->GetCurPageId();
466 0 : BaseWindow* pWin = aWindowTable[ nCurId ];
467 : DBG_ASSERT( pWin, "Eintrag in TabBar passt zu keinem Fenster!" );
468 0 : SetCurWindow( pWin );
469 :
470 0 : return 0;
471 : }
472 :
473 :
474 :
475 0 : bool Shell::NextPage( bool bPrev )
476 : {
477 0 : bool bRet = false;
478 0 : sal_uInt16 nPos = pTabBar->GetPagePos( pTabBar->GetCurPageId() );
479 :
480 0 : if ( bPrev )
481 0 : --nPos;
482 : else
483 0 : ++nPos;
484 :
485 0 : if ( nPos < pTabBar->GetPageCount() )
486 : {
487 0 : BaseWindow* pWin = aWindowTable[ pTabBar->GetPageId( nPos ) ];
488 0 : SetCurWindow( pWin, true );
489 0 : bRet = true;
490 : }
491 :
492 0 : return bRet;
493 : }
494 :
495 :
496 :
497 0 : void Shell::ArrangeTabBar()
498 : {
499 0 : long nBoxPos = aScrollBarBox.GetPosPixel().X() - 1;
500 0 : long nPos = pTabBar->GetSplitSize();
501 0 : if ( nPos <= nBoxPos )
502 : {
503 0 : Point aPnt( pTabBar->GetPosPixel() );
504 0 : long nH = aHScrollBar.GetSizePixel().Height();
505 0 : pTabBar->SetPosSizePixel( aPnt, Size( nPos, nH ) );
506 0 : long nScrlStart = aPnt.X() + nPos;
507 0 : aHScrollBar.SetPosSizePixel( Point( nScrlStart, aPnt.Y() ), Size( nBoxPos - nScrlStart + 2, nH ) );
508 0 : aHScrollBar.Update();
509 : }
510 0 : }
511 :
512 :
513 :
514 0 : ::svl::IUndoManager* Shell::GetUndoManager()
515 : {
516 0 : ::svl::IUndoManager* pMgr = NULL;
517 0 : if( pCurWin )
518 0 : pMgr = pCurWin->GetUndoManager();
519 :
520 0 : return pMgr;
521 : }
522 :
523 :
524 :
525 0 : void Shell::SFX_NOTIFY( SfxBroadcaster& rBC, const TypeId&,
526 : const SfxHint& rHint, const TypeId& )
527 : {
528 0 : if (GetShell())
529 : {
530 0 : if (SfxSimpleHint const* pSimpleHint = dynamic_cast<SfxSimpleHint const*>(&rHint))
531 : {
532 0 : switch (pSimpleHint->GetId())
533 : {
534 : case SFX_HINT_DYING:
535 : {
536 0 : EndListening( rBC, true /* log off all */ );
537 0 : aObjectCatalog.UpdateEntries();
538 : }
539 0 : break;
540 : }
541 :
542 0 : if (SbxHint const* pSbxHint = dynamic_cast<SbxHint const*>(&rHint))
543 : {
544 0 : sal_uLong nHintId = pSbxHint->GetId();
545 0 : if ( ( nHintId == SBX_HINT_BASICSTART ) ||
546 : ( nHintId == SBX_HINT_BASICSTOP ) )
547 : {
548 0 : if (SfxBindings* pBindings = GetBindingsPtr())
549 : {
550 0 : pBindings->Invalidate( SID_BASICRUN );
551 0 : pBindings->Update( SID_BASICRUN );
552 0 : pBindings->Invalidate( SID_BASICCOMPILE );
553 0 : pBindings->Update( SID_BASICCOMPILE );
554 0 : pBindings->Invalidate( SID_BASICSTEPOVER );
555 0 : pBindings->Update( SID_BASICSTEPOVER );
556 0 : pBindings->Invalidate( SID_BASICSTEPINTO );
557 0 : pBindings->Update( SID_BASICSTEPINTO );
558 0 : pBindings->Invalidate( SID_BASICSTEPOUT );
559 0 : pBindings->Update( SID_BASICSTEPOUT );
560 0 : pBindings->Invalidate( SID_BASICSTOP );
561 0 : pBindings->Update( SID_BASICSTOP );
562 0 : pBindings->Invalidate( SID_BASICIDE_TOGGLEBRKPNT );
563 0 : pBindings->Update( SID_BASICIDE_TOGGLEBRKPNT );
564 0 : pBindings->Invalidate( SID_BASICIDE_MANAGEBRKPNTS );
565 0 : pBindings->Update( SID_BASICIDE_MANAGEBRKPNTS );
566 0 : pBindings->Invalidate( SID_BASICIDE_MODULEDLG );
567 0 : pBindings->Update( SID_BASICIDE_MODULEDLG );
568 0 : pBindings->Invalidate( SID_BASICLOAD );
569 0 : pBindings->Update( SID_BASICLOAD );
570 : }
571 :
572 0 : if ( nHintId == SBX_HINT_BASICSTOP )
573 : {
574 : // not only at error/break or explicit stoppage,
575 : // if the update is turned off due to a programming bug
576 0 : BasicStopped();
577 0 : if (pLayout)
578 0 : pLayout->UpdateDebug(true); // clear...
579 0 : if( m_pCurLocalizationMgr )
580 0 : m_pCurLocalizationMgr->handleBasicStopped();
581 : }
582 0 : else if( m_pCurLocalizationMgr )
583 : {
584 0 : m_pCurLocalizationMgr->handleBasicStarted();
585 : }
586 :
587 0 : for (WindowTableIt it = aWindowTable.begin(); it != aWindowTable.end(); ++it)
588 : {
589 0 : BaseWindow* pWin = it->second;
590 0 : if ( nHintId == SBX_HINT_BASICSTART )
591 0 : pWin->BasicStarted();
592 : else
593 0 : pWin->BasicStopped();
594 : }
595 : }
596 : }
597 : }
598 : }
599 0 : }
600 :
601 :
602 :
603 0 : void Shell::CheckWindows()
604 : {
605 0 : bool bSetCurWindow = false;
606 0 : std::vector<BaseWindow*> aDeleteVec;
607 0 : for (WindowTableIt it = aWindowTable.begin(); it != aWindowTable.end(); ++it)
608 : {
609 0 : BaseWindow* pWin = it->second;
610 0 : if ( pWin->GetStatus() & BASWIN_TOBEKILLED )
611 0 : aDeleteVec.push_back( pWin );
612 : }
613 0 : for ( std::vector<BaseWindow*>::const_iterator it = aDeleteVec.begin(); it != aDeleteVec.end(); ++it )
614 : {
615 0 : BaseWindow* pWin = *it;
616 0 : pWin->StoreData();
617 0 : if ( pWin == pCurWin )
618 0 : bSetCurWindow = true;
619 0 : RemoveWindow( pWin, true, false );
620 : }
621 0 : if ( bSetCurWindow )
622 0 : SetCurWindow( FindApplicationWindow(), true );
623 0 : }
624 :
625 :
626 :
627 0 : void Shell::RemoveWindows( const ScriptDocument& rDocument, const OUString& rLibName, bool bDestroy )
628 : {
629 0 : bool bChangeCurWindow = pCurWin ? false : true;
630 0 : std::vector<BaseWindow*> aDeleteVec;
631 0 : for (WindowTableIt it = aWindowTable.begin(); it != aWindowTable.end(); ++it)
632 : {
633 0 : BaseWindow* pWin = it->second;
634 0 : if ( pWin->IsDocument( rDocument ) && pWin->GetLibName() == rLibName )
635 0 : aDeleteVec.push_back( pWin );
636 : }
637 0 : for ( std::vector<BaseWindow*>::const_iterator it = aDeleteVec.begin(); it != aDeleteVec.end(); ++it )
638 : {
639 0 : BaseWindow* pWin = *it;
640 0 : if ( pWin == pCurWin )
641 0 : bChangeCurWindow = true;
642 0 : pWin->StoreData();
643 0 : RemoveWindow( pWin, bDestroy, false );
644 : }
645 0 : if ( bChangeCurWindow )
646 0 : SetCurWindow( FindApplicationWindow(), true );
647 0 : }
648 :
649 :
650 :
651 0 : void Shell::UpdateWindows()
652 : {
653 : // remove all windows that may not be displayed
654 0 : bool bChangeCurWindow = pCurWin ? false : true;
655 0 : if ( !m_aCurLibName.isEmpty() )
656 : {
657 0 : std::vector<BaseWindow*> aDeleteVec;
658 0 : for (WindowTableIt it = aWindowTable.begin(); it != aWindowTable.end(); ++it)
659 : {
660 0 : BaseWindow* pWin = it->second;
661 0 : if ( !pWin->IsDocument( m_aCurDocument ) || pWin->GetLibName() != m_aCurLibName )
662 : {
663 0 : if ( pWin == pCurWin )
664 0 : bChangeCurWindow = true;
665 0 : pWin->StoreData();
666 : // The request of RUNNING prevents the crash when in reschedule.
667 : // Window is frozen at first, later the windows should be changed
668 : // anyway to be marked as hidden instead of being deleted.
669 0 : if ( !(pWin->GetStatus() & ( BASWIN_TOBEKILLED | BASWIN_RUNNINGBASIC | BASWIN_SUSPENDED ) ) )
670 0 : aDeleteVec.push_back( pWin );
671 : }
672 : }
673 0 : for ( std::vector<BaseWindow*>::const_iterator it = aDeleteVec.begin(); it != aDeleteVec.end(); ++it )
674 : {
675 0 : RemoveWindow( *it, false, false );
676 0 : }
677 : }
678 :
679 0 : if ( bCreatingWindow )
680 0 : return;
681 :
682 0 : BaseWindow* pNextActiveWindow = 0;
683 :
684 : // show all windows that are to be shown
685 0 : ScriptDocuments aDocuments( ScriptDocument::getAllScriptDocuments( ScriptDocument::AllWithApplication ) );
686 0 : for ( ScriptDocuments::const_iterator doc = aDocuments.begin();
687 0 : doc != aDocuments.end();
688 : ++doc
689 : )
690 : {
691 0 : StartListening( *doc->getBasicManager(), true /* log on only once */ );
692 :
693 : // libraries
694 0 : Sequence< OUString > aLibNames( doc->getLibraryNames() );
695 0 : sal_Int32 nLibCount = aLibNames.getLength();
696 0 : const OUString* pLibNames = aLibNames.getConstArray();
697 :
698 0 : for ( sal_Int32 i = 0 ; i < nLibCount ; i++ )
699 : {
700 0 : OUString aLibName = pLibNames[ i ];
701 :
702 0 : if ( m_aCurLibName.isEmpty() || ( *doc == m_aCurDocument && aLibName == m_aCurLibName ) )
703 : {
704 : // check, if library is password protected and not verified
705 0 : bool bProtected = false;
706 0 : Reference< script::XLibraryContainer > xModLibContainer( doc->getLibraryContainer( E_SCRIPTS ) );
707 0 : if ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) )
708 : {
709 0 : Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY );
710 0 : if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aLibName ) && !xPasswd->isLibraryPasswordVerified( aLibName ) )
711 : {
712 0 : bProtected = true;
713 0 : }
714 : }
715 :
716 0 : if ( !bProtected )
717 : {
718 0 : LibInfos::Item const* pLibInfoItem = 0;
719 0 : if (ExtraData* pData = GetExtraData())
720 0 : pLibInfoItem = pData->GetLibInfos().GetInfo(*doc, aLibName);
721 :
722 : // modules
723 0 : if ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) )
724 : {
725 0 : StarBASIC* pLib = doc->getBasicManager()->GetLib( aLibName );
726 0 : if ( pLib )
727 0 : ImplStartListening( pLib );
728 :
729 : try
730 : {
731 0 : Sequence< OUString > aModNames( doc->getObjectNames( E_SCRIPTS, aLibName ) );
732 0 : sal_Int32 nModCount = aModNames.getLength();
733 0 : const OUString* pModNames = aModNames.getConstArray();
734 :
735 0 : for ( sal_Int32 j = 0 ; j < nModCount ; j++ )
736 : {
737 0 : OUString aModName = pModNames[ j ];
738 0 : ModulWindow* pWin = FindBasWin( *doc, aLibName, aModName, false );
739 0 : if ( !pWin )
740 0 : pWin = CreateBasWin( *doc, aLibName, aModName );
741 0 : if ( !pNextActiveWindow && pLibInfoItem && pLibInfoItem->GetCurrentName() == aModName &&
742 0 : pLibInfoItem->GetCurrentType() == TYPE_MODULE )
743 : {
744 0 : pNextActiveWindow = (BaseWindow*)pWin;
745 : }
746 0 : }
747 : }
748 0 : catch (const container::NoSuchElementException& )
749 : {
750 : DBG_UNHANDLED_EXCEPTION();
751 : }
752 : }
753 :
754 : // dialogs
755 0 : Reference< script::XLibraryContainer > xDlgLibContainer( doc->getLibraryContainer( E_DIALOGS ) );
756 0 : if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aLibName ) )
757 : {
758 : try
759 : {
760 0 : Sequence< OUString > aDlgNames = doc->getObjectNames( E_DIALOGS, aLibName );
761 0 : sal_Int32 nDlgCount = aDlgNames.getLength();
762 0 : const OUString* pDlgNames = aDlgNames.getConstArray();
763 :
764 0 : for ( sal_Int32 j = 0 ; j < nDlgCount ; j++ )
765 : {
766 0 : OUString aDlgName = pDlgNames[ j ];
767 : // this find only looks for non-suspended windows;
768 : // suspended windows are handled in CreateDlgWin
769 0 : DialogWindow* pWin = FindDlgWin( *doc, aLibName, aDlgName, false );
770 0 : if ( !pWin )
771 0 : pWin = CreateDlgWin( *doc, aLibName, aDlgName );
772 0 : if ( !pNextActiveWindow && pLibInfoItem && pLibInfoItem->GetCurrentName() == aDlgName &&
773 0 : pLibInfoItem->GetCurrentType() == TYPE_DIALOG )
774 : {
775 0 : pNextActiveWindow = (BaseWindow*)pWin;
776 : }
777 0 : }
778 : }
779 0 : catch (const container::NoSuchElementException& )
780 : {
781 : DBG_UNHANDLED_EXCEPTION();
782 : }
783 0 : }
784 0 : }
785 : }
786 0 : }
787 0 : }
788 :
789 0 : if ( bChangeCurWindow )
790 : {
791 0 : if ( !pNextActiveWindow )
792 : {
793 0 : pNextActiveWindow = FindApplicationWindow();
794 : }
795 0 : SetCurWindow( pNextActiveWindow, true );
796 0 : }
797 : }
798 :
799 0 : void Shell::RemoveWindow( BaseWindow* pWindow_, bool bDestroy, bool bAllowChangeCurWindow )
800 : {
801 : DBG_ASSERT( pWindow_, "Kann keinen NULL-Pointer loeschen!" );
802 0 : sal_uLong nKey = GetWindowId( pWindow_ );
803 0 : pTabBar->RemovePage( (sal_uInt16)nKey );
804 0 : aWindowTable.erase( nKey );
805 0 : if ( pWindow_ == pCurWin )
806 : {
807 0 : if ( bAllowChangeCurWindow )
808 : {
809 0 : SetCurWindow( FindApplicationWindow(), true );
810 : }
811 : else
812 : {
813 0 : SetCurWindow( NULL, false );
814 : }
815 : }
816 0 : if ( bDestroy )
817 : {
818 0 : if ( !( pWindow_->GetStatus() & BASWIN_INRESCHEDULE ) )
819 : {
820 0 : delete pWindow_;
821 : }
822 : else
823 : {
824 0 : pWindow_->AddStatus( BASWIN_TOBEKILLED );
825 0 : pWindow_->Hide();
826 : // In normal mode stop basic in windows to be deleted
827 : // In VBA stop basic only if the running script is trying to delete
828 : // its parent module
829 0 : bool bStop = true;
830 0 : if ( pWindow_->GetDocument().isInVBAMode() )
831 : {
832 0 : SbModule* pMod = StarBASIC::GetActiveModule();
833 0 : if ( !pMod || ( pMod && ( !pMod->GetName().equals(pWindow_->GetName()) ) ) )
834 : {
835 0 : bStop = false;
836 : }
837 : }
838 0 : if ( bStop )
839 : {
840 0 : StarBASIC::Stop();
841 : // there will be no notify...
842 0 : pWindow_->BasicStopped();
843 : }
844 0 : aWindowTable[ nKey ] = pWindow_; // jump in again
845 : }
846 : }
847 : else
848 : {
849 0 : pWindow_->AddStatus( BASWIN_SUSPENDED );
850 0 : pWindow_->Deactivating();
851 0 : aWindowTable[ nKey ] = pWindow_; // jump in again
852 : }
853 :
854 0 : }
855 :
856 :
857 :
858 0 : sal_uInt16 Shell::InsertWindowInTable( BaseWindow* pNewWin )
859 : {
860 0 : nCurKey++;
861 0 : aWindowTable[ nCurKey ] = pNewWin;
862 0 : return nCurKey;
863 : }
864 :
865 :
866 :
867 0 : void Shell::InvalidateBasicIDESlots()
868 : {
869 : // only those that have an optic effect...
870 :
871 0 : if (GetShell())
872 : {
873 0 : if (SfxBindings* pBindings = GetBindingsPtr())
874 : {
875 0 : pBindings->Invalidate( SID_COPY );
876 0 : pBindings->Invalidate( SID_CUT );
877 0 : pBindings->Invalidate( SID_PASTE );
878 0 : pBindings->Invalidate( SID_UNDO );
879 0 : pBindings->Invalidate( SID_REDO );
880 0 : pBindings->Invalidate( SID_SAVEDOC );
881 0 : pBindings->Invalidate( SID_SIGNATURE );
882 0 : pBindings->Invalidate( SID_BASICIDE_CHOOSEMACRO );
883 0 : pBindings->Invalidate( SID_BASICIDE_MODULEDLG );
884 0 : pBindings->Invalidate( SID_BASICIDE_OBJCAT );
885 0 : pBindings->Invalidate( SID_BASICSTOP );
886 0 : pBindings->Invalidate( SID_BASICRUN );
887 0 : pBindings->Invalidate( SID_BASICCOMPILE );
888 0 : pBindings->Invalidate( SID_BASICLOAD );
889 0 : pBindings->Invalidate( SID_BASICSAVEAS );
890 0 : pBindings->Invalidate( SID_BASICIDE_MATCHGROUP );
891 0 : pBindings->Invalidate( SID_BASICSTEPINTO );
892 0 : pBindings->Invalidate( SID_BASICSTEPOVER );
893 0 : pBindings->Invalidate( SID_BASICSTEPOUT );
894 0 : pBindings->Invalidate( SID_BASICIDE_TOGGLEBRKPNT );
895 0 : pBindings->Invalidate( SID_BASICIDE_MANAGEBRKPNTS );
896 0 : pBindings->Invalidate( SID_BASICIDE_ADDWATCH );
897 0 : pBindings->Invalidate( SID_BASICIDE_REMOVEWATCH );
898 0 : pBindings->Invalidate( SID_CHOOSE_CONTROLS );
899 0 : pBindings->Invalidate( SID_PRINTDOC );
900 0 : pBindings->Invalidate( SID_PRINTDOCDIRECT );
901 0 : pBindings->Invalidate( SID_SETUPPRINTER );
902 0 : pBindings->Invalidate( SID_DIALOG_TESTMODE );
903 :
904 0 : pBindings->Invalidate( SID_DOC_MODIFIED );
905 0 : pBindings->Invalidate( SID_BASICIDE_STAT_TITLE );
906 0 : pBindings->Invalidate( SID_BASICIDE_STAT_POS );
907 0 : pBindings->Invalidate( SID_ATTR_INSERT );
908 0 : pBindings->Invalidate( SID_ATTR_SIZE );
909 : }
910 : }
911 0 : }
912 :
913 0 : void Shell::EnableScrollbars( bool bEnable )
914 : {
915 0 : aHScrollBar.Enable(bEnable);
916 0 : aVScrollBar.Enable(bEnable);
917 0 : }
918 :
919 0 : void Shell::SetCurLib( const ScriptDocument& rDocument, const OUString& aLibName, bool bUpdateWindows, bool bCheck )
920 : {
921 0 : if ( !bCheck || ( rDocument != m_aCurDocument || aLibName != m_aCurLibName ) )
922 : {
923 0 : ContainerListenerImpl* pListener = static_cast< ContainerListenerImpl* >( m_xLibListener.get() );
924 :
925 0 : m_aCurDocument = rDocument;
926 0 : m_aCurLibName = aLibName;
927 :
928 0 : if ( pListener )
929 : {
930 0 : pListener->removeContainerListener( m_aCurDocument, m_aCurLibName );
931 0 : pListener->addContainerListener( m_aCurDocument, aLibName );
932 : }
933 :
934 0 : if ( bUpdateWindows )
935 0 : UpdateWindows();
936 :
937 0 : SetMDITitle();
938 :
939 0 : SetCurLibForLocalization( rDocument, aLibName );
940 :
941 0 : if (SfxBindings* pBindings = GetBindingsPtr())
942 : {
943 0 : pBindings->Invalidate( SID_BASICIDE_LIBSELECTOR );
944 0 : pBindings->Invalidate( SID_BASICIDE_CURRENT_LANG );
945 0 : pBindings->Invalidate( SID_BASICIDE_MANAGE_LANG );
946 : }
947 : }
948 0 : }
949 :
950 0 : void Shell::SetCurLibForLocalization( const ScriptDocument& rDocument, const OUString& aLibName )
951 : {
952 : // Create LocalizationMgr
953 0 : Reference< resource::XStringResourceManager > xStringResourceManager;
954 : try
955 : {
956 0 : if( !aLibName.isEmpty() )
957 : {
958 0 : Reference< container::XNameContainer > xDialogLib( rDocument.getLibrary( E_DIALOGS, aLibName, true ) );
959 0 : xStringResourceManager = LocalizationMgr::getStringResourceFromDialogLibrary( xDialogLib );
960 : }
961 : }
962 0 : catch (const container::NoSuchElementException& )
963 : {}
964 :
965 0 : m_pCurLocalizationMgr = boost::shared_ptr<LocalizationMgr>(new LocalizationMgr(this, rDocument, aLibName, xStringResourceManager));
966 0 : m_pCurLocalizationMgr->handleTranslationbar();
967 0 : }
968 :
969 0 : void Shell::ImplStartListening( StarBASIC* pBasic )
970 : {
971 0 : StartListening( pBasic->GetBroadcaster(), true /* log on only once */ );
972 0 : }
973 :
974 0 : } // namespace basctl
975 :
976 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
