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 "basidesh.hrc"
21 : #include "helpid.hrc"
22 :
23 : #include "baside2.hxx"
24 : #include "baside3.hxx"
25 : #include "basobj.hxx"
26 : #include "docsignature.hxx"
27 : #include "iderdll.hxx"
28 : #include "iderdll2.hxx"
29 : #include "localizationmgr.hxx"
30 : #include "managelang.hxx"
31 :
32 : #include <basic/basmgr.hxx>
33 : #include <basic/sbmeth.hxx>
34 : #include <boost/scoped_ptr.hpp>
35 : #include <com/sun/star/frame/XLayoutManager.hpp>
36 : #include <com/sun/star/script/XLibraryContainerPassword.hpp>
37 : #include <com/sun/star/task/XStatusIndicatorFactory.hpp>
38 : #include <sfx2/childwin.hxx>
39 : #include <sfx2/docfac.hxx>
40 : #include <sfx2/dinfdlg.hxx>
41 : #include <sfx2/dispatch.hxx>
42 : #include <sfx2/minfitem.hxx>
43 : #include <sfx2/objface.hxx>
44 : #include <sfx2/printer.hxx>
45 : #include <sfx2/request.hxx>
46 : #include <svl/aeitem.hxx>
47 : #include <svl/intitem.hxx>
48 : #include <svl/srchitem.hxx>
49 : #include <svl/visitem.hxx>
50 : #include <svl/whiter.hxx>
51 : #include <vcl/xtextedt.hxx>
52 : #include <vcl/msgbox.hxx>
53 :
54 : namespace basctl
55 : {
56 :
57 : using namespace ::com::sun::star;
58 : using namespace ::com::sun::star::uno;
59 : using namespace ::com::sun::star::frame;
60 :
61 0 : void Shell::ExecuteCurrent( SfxRequest& rReq )
62 : {
63 0 : if ( !pCurWin )
64 0 : return;
65 :
66 0 : switch ( rReq.GetSlot() )
67 : {
68 : case SID_BASICIDE_HIDECURPAGE:
69 : {
70 0 : pCurWin->StoreData();
71 0 : RemoveWindow( pCurWin, false );
72 : }
73 0 : break;
74 : case SID_BASICIDE_RENAMECURRENT:
75 : {
76 0 : pTabBar->StartEditMode( pTabBar->GetCurPageId() );
77 : }
78 0 : break;
79 : case FID_SEARCH_NOW:
80 : {
81 0 : if (!pCurWin->HasActiveEditor())
82 0 : break;
83 : DBG_ASSERT( rReq.GetArgs(), "arguments expected" );
84 0 : SfxItemSet const& rArgs = *rReq.GetArgs();
85 : // unfortunately I don't know the ID:
86 0 : sal_uInt16 nWhich = rArgs.GetWhichByPos( 0 );
87 : DBG_ASSERT( nWhich, "Wich fuer SearchItem ?" );
88 0 : SfxPoolItem const& rItem = rArgs.Get(nWhich);
89 : DBG_ASSERT(dynamic_cast<SvxSearchItem const*>(&rItem), "no searchitem!");
90 0 : SvxSearchItem const& rSearchItem = static_cast<SvxSearchItem const&>(rItem);
91 : // memorize item because of the adjustments...
92 0 : GetExtraData()->SetSearchItem(rSearchItem);
93 0 : sal_Int32 nFound = 0;
94 0 : bool bCanceled = false;
95 0 : if (rSearchItem.GetCommand() == SVX_SEARCHCMD_REPLACE_ALL)
96 : {
97 0 : sal_uInt16 nActModWindows = 0;
98 0 : for (WindowTableIt it = aWindowTable.begin(); it != aWindowTable.end(); ++it)
99 : {
100 0 : BaseWindow* pWin = it->second;
101 0 : if (pWin->HasActiveEditor())
102 0 : nActModWindows++;
103 : }
104 :
105 0 : if ( nActModWindows <= 1 || ( !rSearchItem.GetSelection() && QueryBox( pCurWin, WB_YES_NO|WB_DEF_YES, IDEResId(RID_STR_SEARCHALLMODULES).toString() ).Execute() == RET_YES ) )
106 : {
107 0 : for (WindowTableIt it = aWindowTable.begin(); it != aWindowTable.end(); ++it)
108 : {
109 0 : BaseWindow* pWin = it->second;
110 0 : nFound += pWin->StartSearchAndReplace(rSearchItem);
111 : }
112 : }
113 : else
114 0 : nFound = pCurWin->StartSearchAndReplace(rSearchItem);
115 :
116 0 : OUString aReplStr(IDE_RESSTR(RID_STR_SEARCHREPLACES));
117 0 : aReplStr = aReplStr.replaceAll("XX", OUString::number(nFound));
118 0 : InfoBox( pCurWin, aReplStr ).Execute();
119 : }
120 : else
121 : {
122 0 : nFound = pCurWin->StartSearchAndReplace(rSearchItem);
123 0 : if ( !nFound && !rSearchItem.GetSelection() )
124 : {
125 : // search other modules...
126 0 : bool bChangeCurWindow = false;
127 0 : WindowTableIt it;
128 0 : for (it = aWindowTable.begin(); it != aWindowTable.end(); ++it)
129 0 : if (it->second == pCurWin)
130 0 : break;
131 0 : if (it != aWindowTable.end())
132 0 : ++it;
133 0 : BaseWindow* pWin = it != aWindowTable.end() ? it->second : 0;
134 :
135 0 : bool bSearchedFromStart = false;
136 0 : while ( !nFound && !bCanceled && ( pWin || !bSearchedFromStart ) )
137 : {
138 0 : if ( !pWin )
139 : {
140 0 : SfxViewFrame* pViewFrame = GetViewFrame();
141 0 : SfxChildWindow* pChildWin = pViewFrame ? pViewFrame->GetChildWindow( SID_SEARCH_DLG ) : NULL;
142 0 : vcl::Window* pParent = pChildWin ? pChildWin->GetWindow() : NULL;
143 0 : QueryBox aQuery(pParent, WB_YES_NO|WB_DEF_YES, IDE_RESSTR(RID_STR_SEARCHFROMSTART));
144 0 : if ( aQuery.Execute() == RET_YES )
145 : {
146 0 : it = aWindowTable.begin();
147 0 : if ( it != aWindowTable.end() )
148 0 : pWin = it->second;
149 0 : bSearchedFromStart = true;
150 : }
151 : else
152 0 : bCanceled = true;
153 : }
154 :
155 0 : if (pWin && pWin->HasActiveEditor())
156 : {
157 0 : if ( pWin != pCurWin )
158 : {
159 0 : if ( pCurWin )
160 0 : pWin->SetSizePixel( pCurWin->GetSizePixel() );
161 0 : nFound = pWin->StartSearchAndReplace(rSearchItem, true);
162 : }
163 0 : if ( nFound )
164 : {
165 0 : bChangeCurWindow = true;
166 0 : break;
167 : }
168 : }
169 0 : if ( pWin && ( pWin != pCurWin ) )
170 : {
171 0 : if ( it != aWindowTable.end() )
172 0 : ++it;
173 0 : pWin = it != aWindowTable.end() ? it->second : 0;
174 : }
175 : else
176 0 : pWin = 0;
177 : }
178 0 : if ( !nFound && bSearchedFromStart )
179 0 : nFound = pCurWin->StartSearchAndReplace(rSearchItem, true);
180 0 : if ( bChangeCurWindow )
181 0 : SetCurWindow( pWin, true );
182 : }
183 0 : if ( !nFound && !bCanceled )
184 0 : InfoBox( pCurWin, IDEResId(RID_STR_SEARCHNOTFOUND).toString() ).Execute();
185 : }
186 :
187 0 : rReq.Done();
188 : }
189 0 : break;
190 : case SID_UNDO:
191 : case SID_REDO:
192 0 : if ( GetUndoManager() && pCurWin->AllowUndo() )
193 0 : GetViewFrame()->ExecuteSlot( rReq );
194 0 : break;
195 : default:
196 0 : pCurWin->ExecuteCommand( rReq );
197 : }
198 : }
199 :
200 : // no matter who's at the top, influence on the shell:
201 0 : void Shell::ExecuteGlobal( SfxRequest& rReq )
202 : {
203 0 : sal_uInt16 nSlot = rReq.GetSlot();
204 0 : switch ( nSlot )
205 : {
206 : case SID_BASICSTOP:
207 : {
208 : // maybe do not simply stop if on breakpoint!
209 0 : if (ModulWindow* pMCurWin = dynamic_cast<ModulWindow*>(pCurWin))
210 0 : pMCurWin->BasicStop();
211 0 : StopBasic();
212 : }
213 0 : break;
214 :
215 : case SID_SAVEDOC:
216 : {
217 0 : if ( pCurWin )
218 : {
219 : // rewrite date into the BASIC
220 0 : StoreAllWindowData();
221 :
222 : // document basic
223 0 : ScriptDocument aDocument( pCurWin->GetDocument() );
224 0 : if ( aDocument.isDocument() )
225 : {
226 0 : uno::Reference< task::XStatusIndicator > xStatusIndicator;
227 :
228 0 : SFX_REQUEST_ARG( rReq, pStatusIndicatorItem, SfxUnoAnyItem,
229 : SID_PROGRESS_STATUSBAR_CONTROL, false );
230 0 : if ( pStatusIndicatorItem )
231 0 : OSL_VERIFY( pStatusIndicatorItem->GetValue() >>= xStatusIndicator );
232 : else
233 : {
234 : // get statusindicator
235 0 : SfxViewFrame *pFrame_ = GetFrame();
236 0 : if ( pFrame_ )
237 : {
238 : uno::Reference< task::XStatusIndicatorFactory > xStatFactory(
239 0 : pFrame_->GetFrame().GetFrameInterface(),
240 0 : uno::UNO_QUERY );
241 0 : if( xStatFactory.is() )
242 0 : xStatusIndicator = xStatFactory->createStatusIndicator();
243 : }
244 :
245 0 : if ( xStatusIndicator.is() )
246 0 : rReq.AppendItem( SfxUnoAnyItem( SID_PROGRESS_STATUSBAR_CONTROL, uno::makeAny( xStatusIndicator ) ) );
247 : }
248 :
249 0 : aDocument.saveDocument( xStatusIndicator );
250 : }
251 :
252 0 : if (SfxBindings* pBindings = GetBindingsPtr())
253 : {
254 0 : pBindings->Invalidate( SID_DOC_MODIFIED );
255 0 : pBindings->Invalidate( SID_SAVEDOC );
256 0 : pBindings->Invalidate( SID_SIGNATURE );
257 0 : }
258 : }
259 : }
260 0 : break;
261 : case SID_BASICIDE_MODULEDLG:
262 : {
263 0 : if ( rReq.GetArgs() )
264 : {
265 0 : const SfxUInt16Item &rTabId = static_cast<const SfxUInt16Item&>(rReq.GetArgs()->Get(SID_BASICIDE_ARG_TABID ));
266 0 : Organize( rTabId.GetValue() );
267 : }
268 : else
269 0 : Organize( 0 );
270 : }
271 0 : break;
272 : case SID_BASICIDE_CHOOSEMACRO:
273 : {
274 0 : ChooseMacro( NULL, false, OUString() );
275 : }
276 0 : break;
277 : case SID_BASICIDE_CREATEMACRO:
278 : case SID_BASICIDE_EDITMACRO:
279 : {
280 : DBG_ASSERT( rReq.GetArgs(), "arguments expected" );
281 0 : const SfxMacroInfoItem& rInfo = static_cast<const SfxMacroInfoItem&>(rReq.GetArgs()->Get(SID_BASICIDE_ARG_MACROINFO ));
282 0 : BasicManager* pBasMgr = (BasicManager*)rInfo.GetBasicManager();
283 : DBG_ASSERT( pBasMgr, "Nichts selektiert im Basic-Baum ?" );
284 :
285 0 : ScriptDocument aDocument( ScriptDocument::getDocumentForBasicManager( pBasMgr ) );
286 :
287 0 : StartListening( *pBasMgr, true /* log on only once */ );
288 0 : OUString aLibName( rInfo.GetLib() );
289 0 : if ( aLibName.isEmpty() )
290 0 : aLibName = "Standard" ;
291 0 : StarBASIC* pBasic = pBasMgr->GetLib( aLibName );
292 0 : if ( !pBasic )
293 : {
294 : // load module and dialog library (if not loaded)
295 0 : aDocument.loadLibraryIfExists( E_SCRIPTS, aLibName );
296 0 : aDocument.loadLibraryIfExists( E_DIALOGS, aLibName );
297 :
298 : // get Basic
299 0 : pBasic = pBasMgr->GetLib( aLibName );
300 : }
301 : DBG_ASSERT( pBasic, "No Basic!" );
302 :
303 0 : SetCurLib( aDocument, aLibName );
304 :
305 0 : if ( pBasic && rReq.GetSlot() == SID_BASICIDE_CREATEMACRO )
306 : {
307 0 : SbModule* pModule = pBasic->FindModule( rInfo.GetModule() );
308 0 : if ( !pModule )
309 : {
310 0 : if ( !rInfo.GetModule().isEmpty() || !pBasic->GetModules()->Count() )
311 : {
312 0 : OUString aModName = rInfo.GetModule();
313 :
314 0 : OUString sModuleCode;
315 0 : if ( aDocument.createModule( aLibName, aModName, false, sModuleCode ) )
316 0 : pModule = pBasic->FindModule( aModName );
317 : }
318 : else
319 0 : pModule = static_cast<SbModule*>( pBasic->GetModules()->Get(0) );
320 : }
321 : DBG_ASSERT( pModule, "Kein Modul!" );
322 0 : if ( pModule && !pModule->GetMethods()->Find( rInfo.GetMethod(), SbxCLASS_METHOD ) )
323 0 : CreateMacro( pModule, rInfo.GetMethod() );
324 : }
325 0 : SfxViewFrame* pViewFrame = GetViewFrame();
326 0 : if ( pViewFrame )
327 0 : pViewFrame->ToTop();
328 0 : ModulWindow* pWin = FindBasWin( aDocument, aLibName, rInfo.GetModule(), true );
329 : DBG_ASSERT( pWin, "Edit/Create Macro: Fenster wurde nicht erzeugt/gefunden!" );
330 0 : SetCurWindow( pWin, true );
331 0 : pWin->EditMacro( rInfo.GetMethod() );
332 : }
333 0 : break;
334 :
335 : case SID_BASICIDE_OBJCAT:
336 : // toggling object catalog
337 0 : aObjectCatalog.Show(!aObjectCatalog.IsVisible());
338 0 : if (pLayout)
339 0 : pLayout->ArrangeWindows();
340 : // refresh the button state
341 0 : if (SfxBindings* pBindings = GetBindingsPtr())
342 0 : pBindings->Invalidate(SID_BASICIDE_OBJCAT);
343 0 : break;
344 :
345 : case SID_BASICIDE_NAMECHANGEDONTAB:
346 : {
347 : DBG_ASSERT( rReq.GetArgs(), "arguments expected" );
348 0 : const SfxUInt16Item &rTabId = static_cast<const SfxUInt16Item&>(rReq.GetArgs()->Get(SID_BASICIDE_ARG_TABID ));
349 0 : const SfxStringItem &rModName = static_cast<const SfxStringItem&>(rReq.GetArgs()->Get(SID_BASICIDE_ARG_MODULENAME ));
350 0 : if ( aWindowTable.find( rTabId.GetValue() ) != aWindowTable.end() )
351 : {
352 0 : BaseWindow* pWin = aWindowTable[ rTabId.GetValue() ];
353 0 : OUString aNewName( rModName.GetValue() );
354 0 : OUString aOldName( pWin->GetName() );
355 0 : if ( aNewName != aOldName )
356 : {
357 0 : bool bRenameOk = false;
358 0 : if (ModulWindow* pModWin = dynamic_cast<ModulWindow*>(pWin))
359 : {
360 0 : OUString aLibName = pModWin->GetLibName();
361 0 : ScriptDocument aDocument( pWin->GetDocument() );
362 :
363 0 : if (RenameModule(pModWin, aDocument, aLibName, aOldName, aNewName))
364 : {
365 0 : bRenameOk = true;
366 : // Because we listen for container events for script
367 : // modules, rename will delete the 'old' window
368 : // pWin has been invalidated, restore now
369 0 : pWin = FindBasWin( aDocument, aLibName, aNewName, true );
370 0 : }
371 :
372 : }
373 0 : else if (DialogWindow* pDlgWin = dynamic_cast<DialogWindow*>(pWin))
374 : {
375 0 : bRenameOk = pDlgWin->RenameDialog( aNewName );
376 : }
377 0 : if ( bRenameOk )
378 : {
379 0 : MarkDocumentModified( pWin->GetDocument() );
380 : }
381 : else
382 : {
383 : // set old name in TabWriter
384 0 : sal_uInt16 nId = GetWindowId( pWin );
385 : DBG_ASSERT( nId, "No entry in Tabbar!" );
386 0 : if ( nId )
387 0 : pTabBar->SetPageText( nId, aOldName );
388 : }
389 : }
390 :
391 : // set focus to current window
392 0 : pWin->GrabFocus();
393 : }
394 : }
395 0 : break;
396 : case SID_BASICIDE_STOREMODULESOURCE:
397 : case SID_BASICIDE_UPDATEMODULESOURCE:
398 : {
399 : DBG_ASSERT( rReq.GetArgs(), "arguments expected" );
400 0 : const SfxMacroInfoItem& rInfo = static_cast<const SfxMacroInfoItem&>(rReq.GetArgs()->Get(SID_BASICIDE_ARG_MACROINFO ));
401 0 : BasicManager* pBasMgr = (BasicManager*)rInfo.GetBasicManager();
402 : DBG_ASSERT( pBasMgr, "Store source: Kein BasMgr?" );
403 0 : ScriptDocument aDocument( ScriptDocument::getDocumentForBasicManager( pBasMgr ) );
404 0 : ModulWindow* pWin = FindBasWin( aDocument, rInfo.GetLib(), rInfo.GetModule(), false, true );
405 0 : if ( pWin )
406 : {
407 0 : if ( rReq.GetSlot() == SID_BASICIDE_STOREMODULESOURCE )
408 0 : pWin->StoreData();
409 : else
410 0 : pWin->UpdateData();
411 0 : }
412 : }
413 0 : break;
414 : case SID_BASICIDE_STOREALLMODULESOURCES:
415 : case SID_BASICIDE_UPDATEALLMODULESOURCES:
416 : {
417 0 : for (WindowTableIt it = aWindowTable.begin(); it != aWindowTable.end(); ++it)
418 : {
419 0 : BaseWindow* pWin = it->second;
420 0 : if (!pWin->IsSuspended() && dynamic_cast<ModulWindow*>(pWin))
421 : {
422 0 : if ( rReq.GetSlot() == SID_BASICIDE_STOREALLMODULESOURCES )
423 0 : pWin->StoreData();
424 : else
425 0 : pWin->UpdateData();
426 : }
427 : }
428 : }
429 0 : break;
430 : case SID_BASICIDE_LIBSELECTED:
431 : case SID_BASICIDE_LIBREMOVED:
432 : case SID_BASICIDE_LIBLOADED:
433 : {
434 : DBG_ASSERT( rReq.GetArgs(), "arguments expected" );
435 0 : const SfxUsrAnyItem& rShellItem = static_cast<const SfxUsrAnyItem&>(rReq.GetArgs()->Get( SID_BASICIDE_ARG_DOCUMENT_MODEL ));
436 0 : uno::Reference< frame::XModel > xModel( rShellItem.GetValue(), UNO_QUERY );
437 0 : ScriptDocument aDocument( xModel.is() ? ScriptDocument( xModel ) : ScriptDocument::getApplicationScriptDocument() );
438 0 : const SfxStringItem& rLibNameItem = static_cast<const SfxStringItem&>(rReq.GetArgs()->Get( SID_BASICIDE_ARG_LIBNAME ));
439 0 : OUString aLibName( rLibNameItem.GetValue() );
440 :
441 0 : if ( nSlot == SID_BASICIDE_LIBSELECTED )
442 : {
443 : // load module and dialog library (if not loaded)
444 0 : aDocument.loadLibraryIfExists( E_SCRIPTS, aLibName );
445 0 : aDocument.loadLibraryIfExists( E_DIALOGS, aLibName );
446 :
447 : // check password, if library is password protected and not verified
448 0 : bool bOK = true;
449 0 : Reference< script::XLibraryContainer > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ) );
450 0 : if ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) )
451 : {
452 0 : Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY );
453 0 : if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aLibName ) && !xPasswd->isLibraryPasswordVerified( aLibName ) )
454 : {
455 0 : OUString aPassword;
456 0 : bOK = QueryPassword( xModLibContainer, aLibName, aPassword );
457 0 : }
458 : }
459 :
460 0 : if ( bOK )
461 : {
462 0 : SetCurLib( aDocument, aLibName, true, false );
463 : }
464 : else
465 : {
466 : // adjust old value...
467 0 : if (SfxBindings* pBindings = GetBindingsPtr())
468 0 : pBindings->Invalidate(SID_BASICIDE_LIBSELECTOR, true, false);
469 0 : }
470 : }
471 0 : else if ( nSlot == SID_BASICIDE_LIBREMOVED )
472 : {
473 0 : if ( m_aCurLibName.isEmpty() || ( aDocument == m_aCurDocument && aLibName == m_aCurLibName ) )
474 : {
475 0 : RemoveWindows( aDocument, aLibName, true );
476 0 : if ( aDocument == m_aCurDocument && aLibName == m_aCurLibName )
477 : {
478 0 : m_aCurDocument = ScriptDocument::getApplicationScriptDocument();
479 0 : m_aCurLibName = "";
480 : // no UpdateWindows!
481 0 : if (SfxBindings* pBindings = GetBindingsPtr())
482 0 : pBindings->Invalidate( SID_BASICIDE_LIBSELECTOR );
483 : }
484 : }
485 : }
486 : else // Loaded...
487 0 : UpdateWindows();
488 : }
489 0 : break;
490 : case SID_BASICIDE_NEWMODULE:
491 : {
492 0 : ModulWindow* pWin = CreateBasWin( m_aCurDocument, m_aCurLibName, OUString() );
493 : DBG_ASSERT( pWin, "New Module: Konnte Fenster nicht erzeugen!" );
494 0 : SetCurWindow( pWin, true );
495 : }
496 0 : break;
497 : case SID_BASICIDE_NEWDIALOG:
498 : {
499 0 : DialogWindow* pWin = CreateDlgWin( m_aCurDocument, m_aCurLibName, OUString() );
500 : DBG_ASSERT( pWin, "New Module: Konnte Fenster nicht erzeugen!" );
501 0 : SetCurWindow( pWin, true );
502 : }
503 0 : break;
504 : case SID_BASICIDE_SBXRENAMED:
505 : {
506 : DBG_ASSERT( rReq.GetArgs(), "arguments expected" );
507 : }
508 0 : break;
509 : case SID_BASICIDE_SBXINSERTED:
510 : {
511 : DBG_ASSERT( rReq.GetArgs(), "arguments expected" );
512 0 : const SbxItem& rSbxItem = static_cast<const SbxItem&>(rReq.GetArgs()->Get(SID_BASICIDE_ARG_SBX ));
513 0 : ScriptDocument aDocument( rSbxItem.GetDocument() );
514 0 : OUString aLibName( rSbxItem.GetLibName() );
515 0 : OUString aName( rSbxItem.GetName() );
516 0 : if ( m_aCurLibName.isEmpty() || ( aDocument == m_aCurDocument && aLibName == m_aCurLibName ) )
517 : {
518 0 : if ( rSbxItem.GetType() == TYPE_MODULE )
519 0 : FindBasWin( aDocument, aLibName, aName, true );
520 0 : else if ( rSbxItem.GetType() == TYPE_DIALOG )
521 0 : FindDlgWin( aDocument, aLibName, aName, true );
522 0 : }
523 : }
524 0 : break;
525 : case SID_BASICIDE_SBXDELETED:
526 : {
527 : DBG_ASSERT( rReq.GetArgs(), "arguments expected" );
528 0 : const SbxItem& rSbxItem = static_cast<const SbxItem&>(rReq.GetArgs()->Get(SID_BASICIDE_ARG_SBX ));
529 0 : ScriptDocument aDocument( rSbxItem.GetDocument() );
530 0 : BaseWindow* pWin = FindWindow( aDocument, rSbxItem.GetLibName(), rSbxItem.GetName(), rSbxItem.GetType(), true );
531 0 : if ( pWin )
532 0 : RemoveWindow( pWin, true );
533 : }
534 0 : break;
535 : case SID_BASICIDE_SHOWSBX:
536 : {
537 : DBG_ASSERT( rReq.GetArgs(), "arguments expected" );
538 0 : const SbxItem& rSbxItem = static_cast<const SbxItem&>(rReq.GetArgs()->Get(SID_BASICIDE_ARG_SBX ));
539 0 : ScriptDocument aDocument( rSbxItem.GetDocument() );
540 0 : OUString aLibName( rSbxItem.GetLibName() );
541 0 : OUString aName( rSbxItem.GetName() );
542 0 : SetCurLib( aDocument, aLibName );
543 0 : BaseWindow* pWin = 0;
544 0 : if ( rSbxItem.GetType() == TYPE_DIALOG )
545 : {
546 0 : pWin = FindDlgWin( aDocument, aLibName, aName, true );
547 : }
548 0 : else if ( rSbxItem.GetType() == TYPE_MODULE )
549 : {
550 0 : pWin = FindBasWin( aDocument, aLibName, aName, true );
551 : }
552 0 : else if ( rSbxItem.GetType() == TYPE_METHOD )
553 : {
554 0 : pWin = FindBasWin( aDocument, aLibName, aName, true );
555 0 : static_cast<ModulWindow*>(pWin)->EditMacro( rSbxItem.GetMethodName() );
556 : }
557 : DBG_ASSERT( pWin, "Fenster wurde nicht erzeugt!" );
558 0 : SetCurWindow( pWin, true );
559 0 : pTabBar->MakeVisible( pTabBar->GetCurPageId() );
560 : }
561 0 : break;
562 : case SID_BASICIDE_SHOWWINDOW:
563 : {
564 0 : boost::scoped_ptr< ScriptDocument > pDocument;
565 :
566 0 : SFX_REQUEST_ARG( rReq, pDocumentItem, SfxStringItem, SID_BASICIDE_ARG_DOCUMENT, false );
567 0 : if ( pDocumentItem )
568 : {
569 0 : OUString sDocumentCaption = pDocumentItem->GetValue();
570 0 : if ( !sDocumentCaption.isEmpty() )
571 0 : pDocument.reset( new ScriptDocument( ScriptDocument::getDocumentWithURLOrCaption( sDocumentCaption ) ) );
572 : }
573 :
574 0 : SFX_REQUEST_ARG( rReq, pDocModelItem, SfxUsrAnyItem, SID_BASICIDE_ARG_DOCUMENT_MODEL, false );
575 0 : if ( !pDocument.get() && pDocModelItem )
576 : {
577 0 : uno::Reference< frame::XModel > xModel( pDocModelItem->GetValue(), UNO_QUERY );
578 0 : if ( xModel.is() )
579 0 : pDocument.reset( new ScriptDocument( xModel ) );
580 : }
581 :
582 0 : if ( !pDocument.get() )
583 0 : break;
584 :
585 0 : SFX_REQUEST_ARG( rReq, pLibNameItem, SfxStringItem, SID_BASICIDE_ARG_LIBNAME, false );
586 0 : if ( !pLibNameItem )
587 0 : break;
588 :
589 0 : OUString aLibName( pLibNameItem->GetValue() );
590 0 : pDocument->loadLibraryIfExists( E_SCRIPTS, aLibName );
591 0 : SetCurLib( *pDocument, aLibName );
592 0 : SFX_REQUEST_ARG( rReq, pNameItem, SfxStringItem, SID_BASICIDE_ARG_NAME, false );
593 0 : if ( pNameItem )
594 : {
595 0 : OUString aName( pNameItem->GetValue() );
596 0 : OUString aModType( "Module" );
597 0 : OUString aDlgType( "Dialog" );
598 0 : OUString aType( aModType );
599 0 : SFX_REQUEST_ARG( rReq, pTypeItem, SfxStringItem, SID_BASICIDE_ARG_TYPE, false );
600 0 : if ( pTypeItem )
601 0 : aType = pTypeItem->GetValue();
602 :
603 0 : BaseWindow* pWin = 0;
604 0 : if ( aType == aModType )
605 0 : pWin = FindBasWin( *pDocument, aLibName, aName, false );
606 0 : else if ( aType == aDlgType )
607 0 : pWin = FindDlgWin( *pDocument, aLibName, aName, false );
608 :
609 0 : if ( pWin )
610 : {
611 0 : SetCurWindow( pWin, true );
612 0 : if ( pTabBar )
613 0 : pTabBar->MakeVisible( pTabBar->GetCurPageId() );
614 :
615 0 : if (ModulWindow* pModWin = dynamic_cast<ModulWindow*>(pWin))
616 : {
617 0 : SFX_REQUEST_ARG( rReq, pLineItem, SfxUInt32Item, SID_BASICIDE_ARG_LINE, false );
618 0 : if ( pLineItem )
619 : {
620 0 : pModWin->AssertValidEditEngine();
621 0 : TextView* pTextView = pModWin->GetEditView();
622 0 : if ( pTextView )
623 : {
624 0 : TextEngine* pTextEngine = pTextView->GetTextEngine();
625 0 : if ( pTextEngine )
626 : {
627 0 : sal_uInt32 nLine = pLineItem->GetValue();
628 0 : sal_uInt32 nLineCount = 0;
629 0 : for ( sal_uInt32 i = 0, nCount = pTextEngine->GetParagraphCount(); i < nCount; ++i )
630 0 : nLineCount += pTextEngine->GetLineCount( i );
631 0 : if ( nLine > nLineCount )
632 0 : nLine = nLineCount;
633 0 : if ( nLine > 0 )
634 0 : --nLine;
635 :
636 : // scroll window and set selection
637 0 : long nVisHeight = pModWin->GetOutputSizePixel().Height();
638 0 : long nTextHeight = pTextEngine->GetTextHeight();
639 0 : if ( nTextHeight > nVisHeight )
640 : {
641 0 : long nMaxY = nTextHeight - nVisHeight;
642 0 : long nOldY = pTextView->GetStartDocPos().Y();
643 0 : long nNewY = nLine * pTextEngine->GetCharHeight() - nVisHeight / 2;
644 0 : nNewY = ::std::min( nNewY, nMaxY );
645 0 : pTextView->Scroll( 0, -( nNewY - nOldY ) );
646 0 : pTextView->ShowCursor( false, true );
647 0 : pModWin->GetEditVScrollBar().SetThumbPos( pTextView->GetStartDocPos().Y() );
648 : }
649 0 : sal_uInt16 nCol1 = 0, nCol2 = 0;
650 0 : SFX_REQUEST_ARG( rReq, pCol1Item, SfxUInt16Item, SID_BASICIDE_ARG_COLUMN1, false );
651 0 : if ( pCol1Item )
652 : {
653 0 : nCol1 = pCol1Item->GetValue();
654 0 : if ( nCol1 > 0 )
655 0 : --nCol1;
656 0 : nCol2 = nCol1;
657 : }
658 0 : SFX_REQUEST_ARG( rReq, pCol2Item, SfxUInt16Item, SID_BASICIDE_ARG_COLUMN2, false );
659 0 : if ( pCol2Item )
660 : {
661 0 : nCol2 = pCol2Item->GetValue();
662 0 : if ( nCol2 > 0 )
663 0 : --nCol2;
664 : }
665 0 : TextSelection aSel( TextPaM( nLine, nCol1 ), TextPaM( nLine, nCol2 ) );
666 0 : pTextView->SetSelection( aSel );
667 0 : pTextView->ShowCursor();
668 0 : vcl::Window* pWindow_ = pTextView->GetWindow();
669 0 : if ( pWindow_ )
670 0 : pWindow_->GrabFocus();
671 : }
672 : }
673 : }
674 : }
675 0 : }
676 : }
677 0 : rReq.Done();
678 : }
679 0 : break;
680 :
681 : case SID_BASICIDE_MANAGE_LANG:
682 : {
683 0 : ManageLanguageDialog aDlg(pCurWin, m_pCurLocalizationMgr);
684 0 : aDlg.Execute();
685 0 : rReq.Done();
686 : }
687 0 : break;
688 :
689 : default:
690 0 : if (pLayout)
691 0 : pLayout->ExecuteGlobal(rReq);
692 0 : if (pCurWin)
693 0 : pCurWin->ExecuteGlobal(rReq);
694 0 : break;
695 : }
696 0 : }
697 :
698 0 : void Shell::GetState(SfxItemSet &rSet)
699 : {
700 0 : SfxWhichIter aIter(rSet);
701 0 : for ( sal_uInt16 nWh = aIter.FirstWhich(); 0 != nWh; nWh = aIter.NextWhich() )
702 : {
703 0 : switch ( nWh )
704 : {
705 : case SID_DOCINFO:
706 : {
707 0 : rSet.DisableItem( nWh );
708 : }
709 0 : break;
710 : case SID_SAVEDOC:
711 : {
712 0 : bool bDisable = false;
713 :
714 0 : if ( pCurWin )
715 : {
716 0 : if ( !pCurWin->IsModified() )
717 : {
718 0 : ScriptDocument aDocument( pCurWin->GetDocument() );
719 0 : bDisable = ( !aDocument.isAlive() )
720 0 : || ( aDocument.isDocument() ? !aDocument.isDocumentModified() : !IsAppBasicModified() );
721 : }
722 : }
723 : else
724 : {
725 0 : bDisable = true;
726 : }
727 :
728 0 : if ( bDisable )
729 0 : rSet.DisableItem( nWh );
730 : }
731 0 : break;
732 : case SID_NEWWINDOW:
733 : case SID_SAVEASDOC:
734 : {
735 0 : rSet.DisableItem( nWh );
736 : }
737 0 : break;
738 : case SID_SIGNATURE:
739 : {
740 0 : sal_uInt16 nState = 0;
741 0 : if ( pCurWin )
742 : {
743 0 : DocumentSignature aSignature( pCurWin->GetDocument() );
744 0 : nState = aSignature.getScriptingSignatureState();
745 : }
746 0 : rSet.Put( SfxUInt16Item( SID_SIGNATURE, nState ) );
747 : }
748 0 : break;
749 : case SID_BASICIDE_MODULEDLG:
750 : {
751 0 : if ( StarBASIC::IsRunning() )
752 0 : rSet.DisableItem( nWh );
753 : }
754 0 : break;
755 : case SID_BASICIDE_OBJCAT:
756 0 : if (pLayout)
757 0 : rSet.Put(SfxBoolItem(nWh, aObjectCatalog.IsVisible()));
758 : else
759 0 : rSet.Put(SfxVisibilityItem(nWh, false));
760 0 : break;
761 : case SID_BASICIDE_SHOWSBX:
762 : case SID_BASICIDE_CREATEMACRO:
763 : case SID_BASICIDE_EDITMACRO:
764 : case SID_BASICIDE_NAMECHANGEDONTAB:
765 : {
766 : ;
767 : }
768 0 : break;
769 :
770 : case SID_BASICIDE_ADDWATCH:
771 : case SID_BASICIDE_REMOVEWATCH:
772 : case SID_BASICLOAD:
773 : case SID_BASICSAVEAS:
774 : case SID_BASICIDE_MATCHGROUP:
775 : {
776 0 : if (!dynamic_cast<ModulWindow*>(pCurWin))
777 0 : rSet.DisableItem( nWh );
778 0 : else if ( ( nWh == SID_BASICLOAD ) && ( StarBASIC::IsRunning() || ( pCurWin && pCurWin->IsReadOnly() ) ) )
779 0 : rSet.DisableItem( nWh );
780 : }
781 0 : break;
782 : case SID_BASICRUN:
783 : case SID_BASICSTEPINTO:
784 : case SID_BASICSTEPOVER:
785 : case SID_BASICSTEPOUT:
786 : case SID_BASICIDE_TOGGLEBRKPNT:
787 : case SID_BASICIDE_MANAGEBRKPNTS:
788 : {
789 0 : if (ModulWindow* pMCurWin = dynamic_cast<ModulWindow*>(pCurWin))
790 : {
791 0 : if (StarBASIC::IsRunning() && !pMCurWin->GetBasicStatus().bIsInReschedule)
792 0 : rSet.DisableItem(nWh);
793 : }
794 : else
795 0 : rSet.DisableItem( nWh );
796 : }
797 0 : break;
798 : case SID_BASICCOMPILE:
799 : {
800 0 : if (StarBASIC::IsRunning() || !dynamic_cast<ModulWindow*>(pCurWin))
801 0 : rSet.DisableItem( nWh );
802 : }
803 0 : break;
804 : case SID_BASICSTOP:
805 : {
806 : // stop is always possible when some Basic is running...
807 0 : if (!StarBASIC::IsRunning())
808 0 : rSet.DisableItem( nWh );
809 : }
810 0 : break;
811 : case SID_CHOOSE_CONTROLS:
812 : case SID_DIALOG_TESTMODE:
813 : case SID_INSERT_FORM_RADIO:
814 : case SID_INSERT_FORM_CHECK:
815 : case SID_INSERT_FORM_LIST:
816 : case SID_INSERT_FORM_COMBO:
817 : case SID_INSERT_FORM_VSCROLL:
818 : case SID_INSERT_FORM_HSCROLL:
819 : case SID_INSERT_FORM_SPIN:
820 : {
821 0 : if (!dynamic_cast<DialogWindow*>(pCurWin))
822 0 : rSet.DisableItem( nWh );
823 : }
824 0 : break;
825 : case SID_SHOW_FORMS:
826 : case SID_SHOW_HIDDEN:
827 : {
828 0 : rSet.DisableItem( nWh );
829 : }
830 0 : break;
831 : case SID_SEARCH_OPTIONS:
832 : {
833 0 : sal_uInt16 nOptions = 0;
834 0 : if( pCurWin )
835 0 : nOptions = pCurWin->GetSearchOptions();
836 0 : rSet.Put( SfxUInt16Item( SID_SEARCH_OPTIONS, nOptions ) );
837 : }
838 0 : break;
839 : case SID_BASICIDE_LIBSELECTOR:
840 : {
841 0 : OUString aName;
842 0 : if ( !m_aCurLibName.isEmpty() )
843 : {
844 0 : LibraryLocation eLocation = m_aCurDocument.getLibraryLocation( m_aCurLibName );
845 0 : aName = CreateMgrAndLibStr( m_aCurDocument.getTitle( eLocation ), m_aCurLibName );
846 : }
847 0 : SfxStringItem aItem( SID_BASICIDE_LIBSELECTOR, aName );
848 0 : rSet.Put( aItem );
849 : }
850 0 : break;
851 : case SID_SEARCH_ITEM:
852 : {
853 0 : OUString aSelected = GetSelectionText(true);
854 0 : SvxSearchItem& rItem = GetExtraData()->GetSearchItem();
855 0 : rItem.SetSearchString( aSelected );
856 0 : rSet.Put( rItem );
857 : }
858 0 : break;
859 : case SID_BASICIDE_STAT_DATE:
860 : {
861 0 : OUString aDate( "Datum?!" );
862 0 : SfxStringItem aItem( SID_BASICIDE_STAT_DATE, aDate );
863 0 : rSet.Put( aItem );
864 : }
865 0 : break;
866 : case SID_DOC_MODIFIED:
867 : {
868 0 : bool bModified = false;
869 :
870 0 : if ( pCurWin )
871 : {
872 0 : if ( pCurWin->IsModified() )
873 0 : bModified = true;
874 : else
875 : {
876 0 : ScriptDocument aDocument( pCurWin->GetDocument() );
877 0 : bModified = aDocument.isDocument() ? aDocument.isDocumentModified() : IsAppBasicModified();
878 : }
879 : }
880 :
881 0 : SfxBoolItem aItem(SID_DOC_MODIFIED, bModified);
882 0 : rSet.Put( aItem );
883 : }
884 0 : break;
885 : case SID_BASICIDE_STAT_TITLE:
886 : {
887 0 : if ( pCurWin )
888 : {
889 0 : OUString aTitle = pCurWin->CreateQualifiedName();
890 0 : SfxStringItem aItem( SID_BASICIDE_STAT_TITLE, aTitle );
891 0 : rSet.Put( aItem );
892 : }
893 : }
894 0 : break;
895 : // are interpreted by the controller:
896 : case SID_ATTR_SIZE:
897 : case SID_ATTR_INSERT:
898 0 : break;
899 : case SID_UNDO:
900 : case SID_REDO:
901 : {
902 0 : if( GetUndoManager() ) // recursive GetState else
903 0 : GetViewFrame()->GetSlotState( nWh, NULL, &rSet );
904 : }
905 0 : break;
906 : case SID_BASICIDE_CURRENT_LANG:
907 : {
908 0 : if( (pCurWin && pCurWin->IsReadOnly()) || GetCurLibName().isEmpty() )
909 0 : rSet.DisableItem( nWh );
910 : else
911 : {
912 0 : OUString aItemStr;
913 0 : boost::shared_ptr<LocalizationMgr> pCurMgr(GetCurLocalizationMgr());
914 0 : if ( pCurMgr->isLibraryLocalized() )
915 : {
916 0 : Sequence< lang::Locale > aLocaleSeq = pCurMgr->getStringResourceManager()->getLocales();
917 0 : const lang::Locale* pLocale = aLocaleSeq.getConstArray();
918 0 : sal_Int32 i, nCount = aLocaleSeq.getLength();
919 :
920 : // Force different results for any combination of locales and default locale
921 0 : OUString aLangStr;
922 0 : for ( i = 0; i <= nCount; ++i )
923 : {
924 0 : lang::Locale aLocale;
925 0 : if( i < nCount )
926 0 : aLocale = pLocale[i];
927 : else
928 0 : aLocale = pCurMgr->getStringResourceManager()->getDefaultLocale();
929 :
930 0 : aLangStr += aLocale.Language;
931 0 : aLangStr += aLocale.Country;
932 0 : aLangStr += aLocale.Variant;
933 0 : }
934 0 : aItemStr = aLangStr;
935 : }
936 0 : rSet.Put( SfxStringItem( nWh, aItemStr ) );
937 : }
938 : }
939 0 : break;
940 :
941 : case SID_BASICIDE_MANAGE_LANG:
942 : {
943 0 : if( (pCurWin && pCurWin->IsReadOnly()) || GetCurLibName().isEmpty() )
944 0 : rSet.DisableItem( nWh );
945 : }
946 0 : break;
947 : case SID_GOTOLINE:
948 : {
949 : // if this is not a module window hide the
950 : // setting, doesn't make sense for example if the
951 : // dialog editor is open
952 0 : if (pCurWin && !dynamic_cast<ModulWindow*>(pCurWin))
953 : {
954 0 : rSet.DisableItem( nWh );
955 0 : rSet.Put(SfxVisibilityItem(nWh, false));
956 : }
957 0 : break;
958 : }
959 : default:
960 0 : if (pLayout)
961 0 : pLayout->GetState(rSet, nWh);
962 : }
963 : }
964 0 : if ( pCurWin )
965 0 : pCurWin->GetState( rSet );
966 0 : }
967 :
968 0 : bool Shell::HasUIFeature( sal_uInt32 nFeature )
969 : {
970 0 : bool bResult = false;
971 :
972 0 : if ( (nFeature & BASICIDE_UI_FEATURE_SHOW_BROWSER) == BASICIDE_UI_FEATURE_SHOW_BROWSER )
973 : {
974 : // fade out (in) property browser in module (dialog) windows
975 0 : if (dynamic_cast<DialogWindow*>(pCurWin) && !pCurWin->IsReadOnly())
976 0 : bResult = true;
977 : }
978 :
979 0 : return bResult;
980 : }
981 :
982 0 : void Shell::SetCurWindow( BaseWindow* pNewWin, bool bUpdateTabBar, bool bRememberAsCurrent )
983 : {
984 0 : if ( pNewWin != pCurWin )
985 : {
986 0 : pCurWin = pNewWin;
987 0 : if (pLayout)
988 0 : pLayout->Deactivating();
989 0 : if (pCurWin)
990 : {
991 0 : if (pCurWin->GetType() == TYPE_MODULE)
992 0 : pLayout = pModulLayout.get();
993 : else
994 0 : pLayout = pDialogLayout.get();
995 0 : AdjustPosSizePixel(Point(0, 0), GetViewFrame()->GetWindow().GetOutputSizePixel());
996 0 : pLayout->Activating(*pCurWin);
997 0 : GetViewFrame()->GetWindow().SetHelpId(pCurWin->GetHid());
998 0 : if (bRememberAsCurrent)
999 0 : pCurWin->InsertLibInfo();
1000 0 : if (GetViewFrame()->GetWindow().IsVisible()) // SFX will do it later otherwise
1001 0 : pCurWin->Show();
1002 0 : pCurWin->Init();
1003 0 : if (!GetExtraData()->ShellInCriticalSection())
1004 : {
1005 0 : vcl::Window* pFrameWindow = &GetViewFrame()->GetWindow();
1006 0 : vcl::Window* pFocusWindow = Application::GetFocusWindow();
1007 0 : while ( pFocusWindow && ( pFocusWindow != pFrameWindow ) )
1008 0 : pFocusWindow = pFocusWindow->GetParent();
1009 0 : if ( pFocusWindow ) // Focus in BasicIDE
1010 0 : pNewWin->GrabFocus();
1011 : }
1012 : }
1013 : else
1014 : {
1015 0 : SetWindow(pLayout);
1016 0 : pLayout = 0;
1017 : }
1018 0 : if ( bUpdateTabBar )
1019 : {
1020 0 : sal_uLong nKey = GetWindowId( pCurWin );
1021 0 : if ( pCurWin && ( pTabBar->GetPagePos( (sal_uInt16)nKey ) == TAB_PAGE_NOTFOUND ) )
1022 0 : pTabBar->InsertPage( (sal_uInt16)nKey, pCurWin->GetTitle() ); // has just been faded in
1023 0 : pTabBar->SetCurPageId( (sal_uInt16)nKey );
1024 : }
1025 0 : if ( pCurWin && pCurWin->IsSuspended() ) // if the window is shown in the case of an error...
1026 0 : pCurWin->SetStatus( pCurWin->GetStatus() & ~BASWIN_SUSPENDED );
1027 0 : if ( pCurWin )
1028 : {
1029 0 : SetWindow( pCurWin );
1030 0 : if ( pCurWin->GetDocument().isDocument() )
1031 0 : SfxObjectShell::SetCurrentComponent( pCurWin->GetDocument().getDocument() );
1032 : }
1033 0 : else if (pLayout)
1034 : {
1035 0 : SetWindow(pLayout);
1036 0 : GetViewFrame()->GetWindow().SetHelpId( HID_BASICIDE_MODULWINDOW );
1037 0 : SfxObjectShell::SetCurrentComponent(0);
1038 : }
1039 0 : aObjectCatalog.SetCurrentEntry(pCurWin);
1040 0 : SetUndoManager( pCurWin ? pCurWin->GetUndoManager() : 0 );
1041 0 : InvalidateBasicIDESlots();
1042 0 : EnableScrollbars(pCurWin != 0);
1043 :
1044 0 : if ( m_pCurLocalizationMgr )
1045 0 : m_pCurLocalizationMgr->handleTranslationbar();
1046 :
1047 0 : ManageToolbars();
1048 :
1049 : // fade out (in) property browser in module (dialog) windows
1050 0 : UIFeatureChanged();
1051 : }
1052 0 : }
1053 :
1054 0 : void Shell::ManageToolbars()
1055 : {
1056 0 : static OUString aLayoutManagerName( "LayoutManager" );
1057 0 : static OUString aMacroBarResName( "private:resource/toolbar/macrobar" );
1058 0 : static OUString aDialogBarResName( "private:resource/toolbar/dialogbar" );
1059 0 : static OUString aInsertControlsBarResName( "private:resource/toolbar/insertcontrolsbar" );
1060 0 : static OUString aFormControlsBarResName( "private:resource/toolbar/formcontrolsbar" );
1061 : (void)aInsertControlsBarResName;
1062 :
1063 0 : if( !pCurWin )
1064 0 : return;
1065 :
1066 : Reference< beans::XPropertySet > xFrameProps
1067 0 : ( GetViewFrame()->GetFrame().GetFrameInterface(), uno::UNO_QUERY );
1068 0 : if ( xFrameProps.is() )
1069 : {
1070 0 : Reference< ::com::sun::star::frame::XLayoutManager > xLayoutManager;
1071 0 : uno::Any a = xFrameProps->getPropertyValue( aLayoutManagerName );
1072 0 : a >>= xLayoutManager;
1073 0 : if ( xLayoutManager.is() )
1074 : {
1075 0 : xLayoutManager->lock();
1076 0 : if (dynamic_cast<DialogWindow*>(pCurWin))
1077 : {
1078 0 : xLayoutManager->destroyElement( aMacroBarResName );
1079 :
1080 0 : xLayoutManager->requestElement( aDialogBarResName );
1081 0 : xLayoutManager->requestElement( aInsertControlsBarResName );
1082 0 : xLayoutManager->requestElement( aFormControlsBarResName );
1083 : }
1084 : else
1085 : {
1086 0 : xLayoutManager->destroyElement( aDialogBarResName );
1087 0 : xLayoutManager->destroyElement( aInsertControlsBarResName );
1088 0 : xLayoutManager->destroyElement( aFormControlsBarResName );
1089 :
1090 0 : xLayoutManager->requestElement( aMacroBarResName );
1091 : }
1092 0 : xLayoutManager->unlock();
1093 0 : }
1094 0 : }
1095 : }
1096 :
1097 0 : BaseWindow* Shell::FindApplicationWindow()
1098 : {
1099 0 : return FindWindow( ScriptDocument::getApplicationScriptDocument() );
1100 : }
1101 :
1102 0 : BaseWindow* Shell::FindWindow(
1103 : ScriptDocument const& rDocument,
1104 : OUString const& rLibName, OUString const& rName,
1105 : ItemType eType, bool bFindSuspended
1106 : )
1107 : {
1108 0 : for (WindowTableIt it = aWindowTable.begin(); it != aWindowTable.end(); ++it)
1109 : {
1110 0 : BaseWindow* const pWin = it->second;
1111 0 : if (pWin->Is(rDocument, rLibName, rName, eType, bFindSuspended))
1112 0 : return pWin;
1113 : }
1114 0 : return 0;
1115 : }
1116 :
1117 0 : bool Shell::CallBasicErrorHdl( StarBASIC* pBasic )
1118 : {
1119 0 : bool nRet = false;
1120 0 : ModulWindow* pModWin = ShowActiveModuleWindow( pBasic );
1121 0 : if ( pModWin )
1122 0 : nRet = pModWin->BasicErrorHdl( pBasic );
1123 0 : return nRet;
1124 : }
1125 :
1126 0 : long Shell::CallBasicBreakHdl( StarBASIC* pBasic )
1127 : {
1128 0 : long nRet = 0;
1129 0 : ModulWindow* pModWin = ShowActiveModuleWindow( pBasic );
1130 0 : if ( pModWin )
1131 : {
1132 : bool bAppWindowDisabled, bDispatcherLocked;
1133 : sal_uInt16 nWaitCount;
1134 : SfxUInt16Item *pSWActionCount, *pSWLockViewCount;
1135 : BasicStopped( &bAppWindowDisabled, &bDispatcherLocked,
1136 0 : &nWaitCount, &pSWActionCount, &pSWLockViewCount );
1137 :
1138 0 : nRet = pModWin->BasicBreakHdl( pBasic );
1139 :
1140 0 : if ( StarBASIC::IsRunning() ) // if cancelled...
1141 : {
1142 0 : if ( bAppWindowDisabled )
1143 0 : Application::GetDefDialogParent()->Enable(false);
1144 :
1145 0 : if ( nWaitCount )
1146 : {
1147 0 : Shell* pShell = GetShell();
1148 0 : for ( sal_uInt16 n = 0; n < nWaitCount; n++ )
1149 0 : pShell->GetViewFrame()->GetWindow().EnterWait();
1150 : }
1151 : }
1152 : }
1153 0 : return nRet;
1154 : }
1155 :
1156 0 : ModulWindow* Shell::ShowActiveModuleWindow( StarBASIC* pBasic )
1157 : {
1158 0 : SetCurLib( ScriptDocument::getApplicationScriptDocument(), OUString(), false );
1159 :
1160 0 : SbModule* pActiveModule = StarBASIC::GetActiveModule();
1161 0 : if (SbClassModuleObject* pCMO = dynamic_cast<SbClassModuleObject*>(pActiveModule))
1162 0 : pActiveModule = pCMO->getClassModule();
1163 :
1164 : DBG_ASSERT( pActiveModule, "Kein aktives Modul im ErrorHdl?!" );
1165 0 : if ( pActiveModule )
1166 : {
1167 0 : ModulWindow* pWin = 0;
1168 0 : SbxObject* pParent = pActiveModule->GetParent();
1169 0 : if (StarBASIC* pLib = dynamic_cast<StarBASIC*>(pParent))
1170 : {
1171 0 : if (BasicManager* pBasMgr = FindBasicManager(pLib))
1172 : {
1173 0 : ScriptDocument aDocument( ScriptDocument::getDocumentForBasicManager( pBasMgr ) );
1174 0 : OUString aLibName = pLib->GetName();
1175 0 : pWin = FindBasWin( aDocument, aLibName, pActiveModule->GetName(), true );
1176 : DBG_ASSERT( pWin, "Error/Step-Hdl: Fenster wurde nicht erzeugt/gefunden!" );
1177 0 : SetCurLib( aDocument, aLibName );
1178 0 : SetCurWindow( pWin, true );
1179 : }
1180 : }
1181 : else
1182 : DBG_ASSERT(false, "No BASIC!");
1183 0 : if (BasicManager* pBasicMgr = FindBasicManager(pBasic))
1184 0 : StartListening( *pBasicMgr, true /* log on only once */ );
1185 0 : return pWin;
1186 : }
1187 0 : return 0;
1188 : }
1189 :
1190 0 : void Shell::AdjustPosSizePixel( const Point &rPos, const Size &rSize )
1191 : {
1192 : // not if iconified because the whole text would be displaced then at restore
1193 0 : if ( GetViewFrame()->GetWindow().GetOutputSizePixel().Height() == 0 )
1194 0 : return;
1195 :
1196 0 : Size aSz( rSize );
1197 0 : Size aScrollBarBoxSz( aScrollBarBox.GetSizePixel() );
1198 0 : aSz.Height() -= aScrollBarBoxSz.Height();
1199 :
1200 0 : Size aOutSz( aSz );
1201 0 : aSz.Width() -= aScrollBarBoxSz.Width();
1202 0 : aScrollBarBox.SetPosPixel( Point( rSize.Width() - aScrollBarBoxSz.Width(), rSize.Height() - aScrollBarBoxSz.Height() ) );
1203 0 : aVScrollBar.SetPosSizePixel( Point( rPos.X()+aSz.Width(), rPos.Y() ), Size( aScrollBarBoxSz.Width(), aSz.Height() ) );
1204 0 : if ( bTabBarSplitted )
1205 : {
1206 : // SplitSize is 0 at a resize!
1207 0 : long nSplitPos = pTabBar->GetSizePixel().Width();
1208 0 : if ( nSplitPos > aSz.Width() )
1209 0 : nSplitPos = aSz.Width();
1210 0 : pTabBar->SetPosSizePixel( Point( rPos.X(), rPos.Y()+aSz.Height() ), Size( nSplitPos, aScrollBarBoxSz.Height() ) );
1211 0 : long nScrlStart = rPos.X() + nSplitPos;
1212 0 : aHScrollBar.SetPosSizePixel( Point( nScrlStart, rPos.Y()+aSz.Height() ), Size( aSz.Width() - nScrlStart + 1, aScrollBarBoxSz.Height() ) );
1213 0 : aHScrollBar.Update();
1214 : }
1215 : else
1216 : {
1217 0 : aHScrollBar.SetPosSizePixel( Point( rPos.X()+ aSz.Width()/2 - 1, rPos.Y()+aSz.Height() ), Size( aSz.Width()/2 + 2, aScrollBarBoxSz.Height() ) );
1218 0 : pTabBar->SetPosSizePixel( Point( rPos.X(), rPos.Y()+aSz.Height() ), Size( aSz.Width()/2, aScrollBarBoxSz.Height() ) );
1219 : }
1220 :
1221 0 : if (pLayout)
1222 0 : pLayout->SetPosSizePixel(rPos, dynamic_cast<DialogWindow*>(pCurWin) ? aSz : aOutSz);
1223 : }
1224 :
1225 0 : Reference< XModel > Shell::GetCurrentDocument() const
1226 : {
1227 0 : Reference< XModel > xDocument;
1228 0 : if ( pCurWin && pCurWin->GetDocument().isDocument() )
1229 0 : xDocument = pCurWin->GetDocument().getDocument();
1230 0 : return xDocument;
1231 : }
1232 :
1233 0 : void Shell::Activate( bool bMDI )
1234 : {
1235 0 : SfxViewShell::Activate( bMDI );
1236 :
1237 0 : if ( bMDI )
1238 : {
1239 0 : if (DialogWindow* pDCurWin = dynamic_cast<DialogWindow*>(pCurWin))
1240 0 : pDCurWin->UpdateBrowser();
1241 : }
1242 0 : }
1243 :
1244 0 : void Shell::Deactivate( bool bMDI )
1245 : {
1246 : // bMDI == true means that another MDI has been activated; in case of a
1247 : // deactivate due to a MessageBox bMDI is false
1248 0 : if ( bMDI )
1249 : {
1250 0 : if (DialogWindow* pXDlgWin = dynamic_cast<DialogWindow*>(pCurWin))
1251 : {
1252 0 : pXDlgWin->DisableBrowser();
1253 0 : if( pXDlgWin->IsModified() )
1254 0 : MarkDocumentModified( pXDlgWin->GetDocument() );
1255 : }
1256 :
1257 : // test CanClose to also test during deactivating the BasicIDE whether
1258 : // the sourcecode is too large in one of the modules...
1259 0 : for (WindowTableIt it = aWindowTable.begin(); it != aWindowTable.end(); ++it)
1260 : {
1261 0 : BaseWindow* pWin = it->second;
1262 0 : if ( /* !pWin->IsSuspended() && */ !pWin->CanClose() )
1263 : {
1264 0 : if ( !m_aCurLibName.isEmpty() && ( pWin->IsDocument( m_aCurDocument ) || pWin->GetLibName() != m_aCurLibName ) )
1265 0 : SetCurLib( ScriptDocument::getApplicationScriptDocument(), OUString(), false );
1266 0 : SetCurWindow( pWin, true );
1267 0 : break;
1268 : }
1269 : }
1270 : }
1271 0 : }
1272 :
1273 0 : } // namespace basctl
1274 :
1275 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
