xref: /trunk/main/basctl/source/basicide/macrodlg.cxx (revision 30acf5e8)
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 <memory>
28 
29 #include <ide_pch.hxx>
30 
31 
32 #include <macrodlg.hxx>
33 #include <macrodlg.hrc>
34 #include <basidesh.hrc>
35 #include <basidesh.hxx>
36 #include <baside2.hrc>		// ID's fuer Imagese
37 #include <basobj.hxx>
38 #include <baside3.hxx>
39 
40 #include <iderdll.hxx>
41 #include <iderdll2.hxx>
42 #include <iderid.hxx>
43 
44 #include <moduldlg.hxx>
45 #include <basic/sbx.hxx>
46 
47 #include <bastypes.hxx>
48 #include <sbxitem.hxx>
49 #include <sfx2/minfitem.hxx>
50 
51 #ifndef _COM_SUN_STAR_SCRIPT_XLIBRYARYCONTAINER2_HPP_
52 #include <com/sun/star/script/XLibraryContainer2.hpp>
53 #endif
54 #include <com/sun/star/document/MacroExecMode.hpp>
55 
56 using namespace ::com::sun::star;
57 using namespace ::com::sun::star::uno;
58 
59 
DECLARE_LIST(MacroList,SbMethod *)60 DECLARE_LIST( MacroList, SbMethod* )
61 
62 MacroChooser::MacroChooser( Window* pParnt, sal_Bool bCreateEntries ) :
63 		SfxModalDialog( 	pParnt,	IDEResId( RID_MACROCHOOSER ) ),
64 		aMacroNameTxt(		this,	IDEResId( RID_TXT_MACRONAME ) ),
65 		aMacroNameEdit(		this,	IDEResId( RID_ED_MACRONAME ) ),
66 		aMacroFromTxT(		this,	IDEResId( RID_TXT_MACROFROM ) ),
67 		aMacrosSaveInTxt(	this,	IDEResId( RID_TXT_SAVEMACRO ) ),
68 		aBasicBox(			this,	IDEResId( RID_CTRL_LIB ) ),
69         aMacrosInTxt(		this,	IDEResId( RID_TXT_MACROSIN ) ),
70 		aMacroBox(			this,	IDEResId( RID_CTRL_MACRO ) ),
71         aRunButton(			this,	IDEResId( RID_PB_RUN ) ),
72 		aCloseButton(	    this,	IDEResId( RID_PB_CLOSE ) ),
73 		aAssignButton(		this,	IDEResId( RID_PB_ASSIGN ) ),
74 		aEditButton(		this,	IDEResId( RID_PB_EDIT ) ),
75 		aNewDelButton(		this,	IDEResId( RID_PB_DEL ) ),
76 		aOrganizeButton(	this,	IDEResId( RID_PB_ORG ) ),
77 		aHelpButton(		this,	IDEResId( RID_PB_HELP ) ),
78 		aNewLibButton(	    this,	IDEResId( RID_PB_NEWLIB ) ),
79 		aNewModButton(	    this,	IDEResId( RID_PB_NEWMOD ) )
80 {
81 	FreeResource();
82 
83 	nMode = MACROCHOOSER_ALL;
84 	bNewDelIsDel = sal_True;
85 
86 	// Der Sfx fragt den BasicManager nicht, ob modified
87 	// => Speichern anschmeissen, wenn Aenderung, aber kein Sprung in
88 	// die BasicIDE.
89 	bForceStoreBasic = sal_False;
90 
91 	aMacrosInTxtBaseStr = aMacrosInTxt.GetText();
92 
93 	aMacroBox.SetSelectionMode( SINGLE_SELECTION );
94 	aMacroBox.SetHighlightRange(); // ueber ganze Breite selektieren
95 
96 	aRunButton.SetClickHdl( LINK( this, MacroChooser, ButtonHdl ) );
97 	aCloseButton.SetClickHdl( LINK( this, MacroChooser, ButtonHdl ) );
98 	aAssignButton.SetClickHdl( LINK( this, MacroChooser, ButtonHdl ) );
99 	aEditButton.SetClickHdl( LINK( this, MacroChooser, ButtonHdl ) );
100 	aNewDelButton.SetClickHdl( LINK( this, MacroChooser, ButtonHdl ) );
101 	aOrganizeButton.SetClickHdl( LINK( this, MacroChooser, ButtonHdl ) );
102 
103 	// Buttons only for MACROCHOOSER_RECORDING
104 	aNewLibButton.SetClickHdl( LINK( this, MacroChooser, ButtonHdl ) );
105 	aNewModButton.SetClickHdl( LINK( this, MacroChooser, ButtonHdl ) );
106 	aNewLibButton.Hide();		// default
107 	aNewModButton.Hide();		// default
108 	aMacrosSaveInTxt.Hide();	// default
109 
110     aMacrosInTxt.SetStyle( WB_NOMULTILINE | WB_PATHELLIPSIS );
111 
112 	aMacroNameEdit.SetModifyHdl( LINK( this, MacroChooser, EditModifyHdl ) );
113 
114 	aBasicBox.SetSelectHdl( LINK( this, MacroChooser, BasicSelectHdl ) );
115 
116 	aMacroBox.SetDoubleClickHdl( LINK( this, MacroChooser, MacroDoubleClickHdl ) );
117 	aMacroBox.SetSelectHdl( LINK( this, MacroChooser, MacroSelectHdl ) );
118 
119 	aBasicBox.SetMode( BROWSEMODE_MODULES );
120     aBasicBox.SetStyle( WB_TABSTOP | WB_BORDER |
121                         WB_HASLINES | WB_HASLINESATROOT |
122                         WB_HASBUTTONS | WB_HASBUTTONSATROOT |
123                         WB_HSCROLL );
124 
125     BasicIDEShell* pIDEShell = IDE_DLL()->GetShell();
126     SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL;
127 	SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL;
128     if( pDispatcher )
129 	{
130 		pDispatcher->Execute( SID_BASICIDE_STOREALLMODULESOURCES );
131 	}
132 
133 	if ( bCreateEntries )
134 		aBasicBox.ScanAllEntries();
135 }
136 
~MacroChooser()137 MacroChooser::~MacroChooser()
138 {
139 	if ( bForceStoreBasic )
140         SFX_APP()->SaveBasicAndDialogContainer();
141 }
142 
StoreMacroDescription()143 void MacroChooser::StoreMacroDescription()
144 {
145     BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( aBasicBox.FirstSelected() ) );
146     String aMethodName;
147     SvLBoxEntry* pEntry = aMacroBox.FirstSelected();
148     if ( pEntry )
149         aMethodName = aMacroBox.GetEntryText( pEntry );
150     else
151         aMethodName = aMacroNameEdit.GetText();
152     if ( aMethodName.Len() )
153     {
154         aDesc.SetMethodName( aMethodName );
155         aDesc.SetType( OBJ_TYPE_METHOD );
156     }
157 
158     BasicIDEData* pData = IDE_DLL()->GetExtraData();
159     if ( pData )
160         pData->SetLastEntryDescriptor( aDesc );
161 }
162 
RestoreMacroDescription()163 void MacroChooser::RestoreMacroDescription()
164 {
165     BasicEntryDescriptor aDesc;
166     BasicIDEShell* pIDEShell = IDE_DLL()->GetShell();
167     if ( pIDEShell )
168     {
169         IDEBaseWindow* pCurWin = pIDEShell->GetCurWindow();
170         if ( pCurWin )
171             aDesc = pCurWin->CreateEntryDescriptor();
172     }
173     else
174     {
175         BasicIDEData* pData = IDE_DLL()->GetExtraData();
176         if ( pData )
177             aDesc = pData->GetLastEntryDescriptor();
178     }
179 
180     aBasicBox.SetCurrentEntry( aDesc );
181 
182 	String aLastMacro( aDesc.GetMethodName() );
183 	if ( aLastMacro.Len() )
184 	{
185         // find entry in macro box
186         SvLBoxEntry* pEntry = 0;
187         sal_uLong nPos = 0;
188         SvLBoxEntry* pE = aMacroBox.GetEntry( nPos );
189         while ( pE )
190         {
191             if ( aMacroBox.GetEntryText( pE ) == aLastMacro )
192             {
193                 pEntry = pE;
194                 break;
195             }
196             pE = aMacroBox.GetEntry( ++nPos );
197         }
198 
199 		if ( pEntry )
200 			aMacroBox.SetCurEntry( pEntry );
201 		else
202 		{
203 			aMacroNameEdit.SetText( aLastMacro );
204 			aMacroNameEdit.SetSelection( Selection( 0, 0 ) );
205 		}
206 	}
207 }
208 
Execute()209 short __EXPORT MacroChooser::Execute()
210 {
211     RestoreMacroDescription();
212     aRunButton.GrabFocus();
213 
214     // #104198 Check if "wrong" document is active
215 	SvLBoxEntry* pSelectedEntry = aBasicBox.GetCurEntry();
216     BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pSelectedEntry ) );
217     const ScriptDocument& rSelectedDoc( aDesc.GetDocument() );
218 
219     // App Basic is always ok, so only check if shell was found
220     if( rSelectedDoc.isDocument() && !rSelectedDoc.isActive() )
221     {
222         // Search for the right entry
223 	    sal_uLong nRootPos = 0;
224 	    SvLBoxEntry* pRootEntry = aBasicBox.GetEntry( nRootPos );
225 	    while( pRootEntry )
226 	    {
227             BasicEntryDescriptor aCmpDesc( aBasicBox.GetEntryDescriptor( pRootEntry ) );
228             const ScriptDocument& rCmpDoc( aCmpDesc.GetDocument() );
229             if ( rCmpDoc.isDocument() && rCmpDoc.isActive() )
230             {
231                 SvLBoxEntry* pEntry = pRootEntry;
232                 SvLBoxEntry* pLastValid = pEntry;
233 		        while ( pEntry )
234 		        {
235 			        pLastValid = pEntry;
236 			        pEntry = aBasicBox.FirstChild( pEntry );
237 		        }
238 		        if( pLastValid )
239         			aBasicBox.SetCurEntry( pLastValid );
240             }
241 		    pRootEntry = aBasicBox.GetEntry( ++nRootPos );
242 	    }
243     }
244 
245 	CheckButtons();
246 	UpdateFields();
247 
248 	if ( StarBASIC::IsRunning() )
249 		aCloseButton.GrabFocus();
250 
251 	Window* pPrevDlgParent = Application::GetDefDialogParent();
252 	Application::SetDefDialogParent( this );
253 	short nRet = ModalDialog::Execute();
254 	// #57314# Wenn die BasicIDE aktiviert wurde, dann nicht den DefModalDialogParent auf das inaktive Dokument zuruecksetzen.
255 	if ( Application::GetDefDialogParent() == this )
256 		Application::SetDefDialogParent( pPrevDlgParent );
257 	return nRet;
258 }
259 
260 
EnableButton(Button & rButton,sal_Bool bEnable)261 void MacroChooser::EnableButton( Button& rButton, sal_Bool bEnable )
262 {
263 	if ( bEnable )
264 	{
265         if ( nMode == MACROCHOOSER_CHOOSEONLY || nMode == MACROCHOOSER_RECORDING )
266 		{
267 			// Nur der RunButton kann enabled werden
268 			if ( &rButton == &aRunButton )
269 				rButton.Enable();
270 			else
271 				rButton.Disable();
272 		}
273 		else
274 			rButton.Enable();
275 	}
276 	else
277 		rButton.Disable();
278 }
279 
280 
281 
282 
GetMacro()283 SbMethod* MacroChooser::GetMacro()
284 {
285 	SbMethod* pMethod = 0;
286 	SbModule* pModule = aBasicBox.FindModule( aBasicBox.GetCurEntry() );
287 	if ( pModule )
288 	{
289 		SvLBoxEntry* pEntry = aMacroBox.FirstSelected();
290 		if ( pEntry )
291 		{
292 			String aMacroName( aMacroBox.GetEntryText( pEntry ) );
293 			pMethod = (SbMethod*)pModule->GetMethods()->Find( aMacroName, SbxCLASS_METHOD );
294 		}
295 	}
296 	return pMethod;
297 }
298 
299 
300 
DeleteMacro()301 void MacroChooser::DeleteMacro()
302 {
303 	SbMethod* pMethod = GetMacro();
304 	DBG_ASSERT( pMethod, "DeleteMacro: Kein Macro !" );
305 	if ( pMethod && QueryDelMacro( pMethod->GetName(), this ) )
306 	{
307         BasicIDEShell* pIDEShell = IDE_DLL()->GetShell();
308         SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL;
309 	    SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL;
310         if( pDispatcher )
311 		{
312 			pDispatcher->Execute( SID_BASICIDE_STOREALLMODULESOURCES );
313 		}
314 
315 		// Aktuelles Doc als geaendert markieren:
316 		StarBASIC* pBasic = BasicIDE::FindBasic( pMethod );
317 		DBG_ASSERT( pBasic, "Basic?!" );
318 		BasicManager* pBasMgr = BasicIDE::FindBasicManager( pBasic );
319 		DBG_ASSERT( pBasMgr, "BasMgr?" );
320         ScriptDocument aDocument( ScriptDocument::getDocumentForBasicManager( pBasMgr ) );
321         if ( aDocument.isDocument() )    // Muss ja nicht aus einem Document kommen...
322 		{
323 			aDocument.setDocumentModified();
324             SfxBindings* pBindings = BasicIDE::GetBindingsPtr();
325             if ( pBindings )
326                 pBindings->Invalidate( SID_SAVEDOC );
327 		}
328 
329 		SbModule* pModule = pMethod->GetModule();
330 		DBG_ASSERT( pModule, "DeleteMacro: Kein Modul?!" );
331         ::rtl::OUString aSource( pModule->GetSource32() );
332 		sal_uInt16 nStart, nEnd;
333 		pMethod->GetLineRange( nStart, nEnd );
334 		pModule->GetMethods()->Remove( pMethod );
335 		CutLines( aSource, nStart-1, nEnd-nStart+1, sal_True );
336 		pModule->SetSource32( aSource );
337 
338         // update module in library
339         String aLibName = pBasic->GetName();
340 	    String aModName = pModule->GetName();
341         OSL_VERIFY( aDocument.updateModule( aLibName, aModName, aSource ) );
342 
343         SvLBoxEntry* pEntry = aMacroBox.FirstSelected();
344 		DBG_ASSERT( pEntry, "DeleteMacro: Entry ?!" );
345 		aMacroBox.GetModel()->Remove( pEntry );
346 		bForceStoreBasic = sal_True;
347 	}
348 }
349 
CreateMacro()350 SbMethod* MacroChooser::CreateMacro()
351 {
352     SbMethod* pMethod = 0;
353     SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry();
354     BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) );
355     ScriptDocument aDocument( aDesc.GetDocument() );
356     OSL_ENSURE( aDocument.isAlive(), "MacroChooser::CreateMacro: no document!" );
357     if ( !aDocument.isAlive() )
358         return NULL;
359 
360     String aLibName( aDesc.GetLibName() );
361 
362     if ( !aLibName.Len() )
363         aLibName = String::CreateFromAscii( "Standard" );
364 
365     aDocument.getOrCreateLibrary( E_SCRIPTS, aLibName );
366 
367     ::rtl::OUString aOULibName( aLibName );
368     Reference< script::XLibraryContainer > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ) );
369     if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && !xModLibContainer->isLibraryLoaded( aOULibName ) )
370         xModLibContainer->loadLibrary( aOULibName );
371     Reference< script::XLibraryContainer > xDlgLibContainer( aDocument.getLibraryContainer( E_DIALOGS ) );
372     if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && !xDlgLibContainer->isLibraryLoaded( aOULibName ) )
373         xDlgLibContainer->loadLibrary( aOULibName );
374 
375     BasicManager* pBasMgr = aDocument.getBasicManager();
376     StarBASIC* pBasic = pBasMgr ? pBasMgr->GetLib( aLibName ) : 0;
377     if ( pBasic )
378     {
379         SbModule* pModule = 0;
380         String aModName( aDesc.GetName() );
381         if ( aModName.Len() )
382         {
383             // extract the module name from the string like "Sheet1 (Example1)"
384             if( aDesc.GetLibSubName().Equals( String( IDEResId( RID_STR_DOCUMENT_OBJECTS ) ) ) )
385             {
386                 sal_uInt16 nIndex = 0;
387                 aModName = aModName.GetToken( 0, ' ', nIndex );
388             }
389 	        pModule = pBasic->FindModule( aModName );
390         }
391         else if ( pBasic->GetModules()->Count() )
392 	        pModule = (SbModule*)pBasic->GetModules()->Get( 0 );
393 
394         if ( !pModule )
395         {
396 	        pModule = createModImpl( static_cast<Window*>( this ),
397 		        aDocument, aBasicBox, aLibName, aModName );
398         }
399 
400         String aSubName = aMacroNameEdit.GetText();
401         DBG_ASSERT( !pModule || !pModule->GetMethods()->Find( aSubName, SbxCLASS_METHOD ), "Macro existiert schon!" );
402         pMethod = pModule ? BasicIDE::CreateMacro( pModule, aSubName ) : NULL;
403     }
404 
405 	return pMethod;
406 }
407 
SaveSetCurEntry(SvTreeListBox & rBox,SvLBoxEntry * pEntry)408 void MacroChooser::SaveSetCurEntry( SvTreeListBox& rBox, SvLBoxEntry* pEntry )
409 {
410 	// Durch das Highlight wird das Edit sonst platt gemacht:
411 
412 	String aSaveText( aMacroNameEdit.GetText() );
413 	Selection aCurSel( aMacroNameEdit.GetSelection() );
414 
415 	rBox.SetCurEntry( pEntry );
416 	aMacroNameEdit.SetText( aSaveText );
417 	aMacroNameEdit.SetSelection( aCurSel );
418 }
419 
CheckButtons()420 void MacroChooser::CheckButtons()
421 {
422 	SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry();
423     BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) );
424 	SvLBoxEntry* pMacroEntry = aMacroBox.FirstSelected();
425 	SbMethod* pMethod = GetMacro();
426 
427     // check, if corresponding libraries are readonly
428     sal_Bool bReadOnly = sal_False;
429     sal_uInt16 nDepth = pCurEntry ? aBasicBox.GetModel()->GetDepth( pCurEntry ) : 0;
430     if ( nDepth == 1 || nDepth == 2 )
431     {
432         ScriptDocument aDocument( aDesc.GetDocument() );
433         ::rtl::OUString aOULibName( aDesc.GetLibName() );
434         Reference< script::XLibraryContainer2 > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
435         Reference< script::XLibraryContainer2 > xDlgLibContainer( aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY );
436         if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) ) ||
437                 ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryReadOnly( aOULibName ) ) )
438         {
439             bReadOnly = sal_True;
440         }
441     }
442 
443     if ( nMode != MACROCHOOSER_RECORDING )
444     {
445         // Run...
446         sal_Bool bEnable = pMethod ? sal_True : sal_False;
447         if ( ( nMode != MACROCHOOSER_CHOOSEONLY ) && StarBASIC::IsRunning() )
448             bEnable = sal_False;
449         EnableButton( aRunButton, bEnable );
450     }
451 
452 	// Organisieren immer moeglich ?
453 
454 	// Assign...
455 	EnableButton( aAssignButton, pMethod ? sal_True : sal_False );
456 
457 	// Edit...
458 	EnableButton( aEditButton, pMacroEntry ? sal_True : sal_False );
459 
460 	// aOrganizeButton
461 	EnableButton( aOrganizeButton, !StarBASIC::IsRunning() && ( nMode == MACROCHOOSER_ALL ));
462 
463 	// aNewDelButton....
464     bool bProtected = aBasicBox.IsEntryProtected( pCurEntry );
465     bool bShare = ( aDesc.GetLocation() == LIBRARY_LOCATION_SHARE );
466 	EnableButton( aNewDelButton,
467 		!StarBASIC::IsRunning() && ( nMode == MACROCHOOSER_ALL ) && !bProtected && !bReadOnly && !bShare );
468 	sal_Bool bPrev = bNewDelIsDel;
469 	bNewDelIsDel = pMethod ? sal_True : sal_False;
470     if ( ( bPrev != bNewDelIsDel ) && ( nMode == MACROCHOOSER_ALL ) )
471 	{
472 		String aBtnText( bNewDelIsDel ? IDEResId( RID_STR_BTNDEL) : IDEResId( RID_STR_BTNNEW ) );
473 		aNewDelButton.SetText( aBtnText );
474 	}
475 
476     if ( nMode == MACROCHOOSER_RECORDING )
477     {
478         // save button
479         if ( !bProtected && !bReadOnly && !bShare )
480             aRunButton.Enable();
481         else
482             aRunButton.Disable();
483 
484         // new library button
485         if ( !bShare )
486             aNewLibButton.Enable();
487         else
488             aNewLibButton.Disable();
489 
490         // new module button
491         if ( !bProtected && !bReadOnly && !bShare )
492             aNewModButton.Enable();
493         else
494             aNewModButton.Disable();
495     }
496 }
497 
498 
499 
IMPL_LINK_INLINE_START(MacroChooser,MacroDoubleClickHdl,SvTreeListBox *,EMPTYARG)500 IMPL_LINK_INLINE_START( MacroChooser, MacroDoubleClickHdl, SvTreeListBox *, EMPTYARG )
501 {
502 	StoreMacroDescription();
503     if ( nMode == MACROCHOOSER_RECORDING )
504     {
505         SbMethod* pMethod = GetMacro();
506         if ( pMethod && !QueryReplaceMacro( pMethod->GetName(), this ) )
507             return 0;
508     }
509 
510 	EndDialog( MACRO_OK_RUN );
511 	return 0;
512 }
IMPL_LINK_INLINE_END(MacroChooser,MacroDoubleClickHdl,SvTreeListBox *,EMPTYARG)513 IMPL_LINK_INLINE_END( MacroChooser, MacroDoubleClickHdl, SvTreeListBox *, EMPTYARG )
514 
515 IMPL_LINK( MacroChooser, MacroSelectHdl, SvTreeListBox *, pBox )
516 {
517 	// Wird auch gerufen, wenn Deselektiert!
518 	// 2 Funktionsaufrufe in jedem SelectHdl, nur weil Olli
519 	// keinen separatren DeselctHdl einfuehren wollte:
520 	// Also: Feststellen, ob Select oder Deselect:
521 	if ( pBox->IsSelected( pBox->GetHdlEntry() ) )
522 	{
523 		UpdateFields();
524 		CheckButtons();
525 	}
526 	return 0;
527 }
528 
IMPL_LINK(MacroChooser,BasicSelectHdl,SvTreeListBox *,pBox)529 IMPL_LINK( MacroChooser, BasicSelectHdl, SvTreeListBox *, pBox )
530 {
531 	static String aSpaceStr = String::CreateFromAscii(" ");
532 
533 	// Wird auch gerufen, wenn Deselektiert!
534 	// 2 Funktionsaufrufe in jedem SelectHdl, nur weil Olli
535 	// keinen separatren DeselctHdl einfuehren wollte:
536 	// Also: Feststellen, ob Select oder Deselect:
537 	if ( !pBox->IsSelected( pBox->GetHdlEntry() ) )
538 		return 0;
539 
540 	SbModule* pModule = aBasicBox.FindModule( aBasicBox.GetCurEntry() );
541 
542 	aMacroBox.Clear();
543 	if ( pModule )
544 	{
545 		String aStr = aMacrosInTxtBaseStr;
546 		aStr += aSpaceStr;
547 		aStr += pModule->GetName();
548 
549 		aMacrosInTxt.SetText( aStr );
550 
551 		// Die Macros sollen in der Reihenfolge angezeigt werden,
552 		// wie sie im Modul stehen.
553 		MacroList aMacros;
554 		sal_uInt16 nMacroCount = pModule->GetMethods()->Count();
555 		sal_uInt16 nRealMacroCount = 0;
556 		sal_uInt16 iMeth;
557 		for ( iMeth = 0; iMeth  < nMacroCount; iMeth++ )
558 		{
559 			SbMethod* pMethod = (SbMethod*)pModule->GetMethods()->Get( iMeth );
560 			if( pMethod->IsHidden() )
561 				continue;
562 			++nRealMacroCount;
563 			DBG_ASSERT( pMethod, "Methode nicht gefunden! (NULL)" );
564 			sal_uLong nPos = LIST_APPEND;
565 			// Eventuell weiter vorne ?
566 			sal_uInt16 nStart, nEnd;
567 			pMethod->GetLineRange( nStart, nEnd );
568 			for ( sal_uLong n = 0; n < aMacros.Count(); n++ )
569 			{
570 				sal_uInt16 nS, nE;
571 				SbMethod* pM = aMacros.GetObject( n );
572 				DBG_ASSERT( pM, "Macro nicht in Liste ?!" );
573 				pM->GetLineRange( nS, nE );
574 				if ( nS > nStart )
575 				{
576 					nPos = n;
577 					break;
578 				}
579 			}
580 			aMacros.Insert( pMethod, nPos );
581 		}
582 
583 		aMacroBox.SetUpdateMode( sal_False );
584 		for ( iMeth = 0; iMeth < nRealMacroCount; iMeth++ )
585 			aMacroBox.InsertEntry( aMacros.GetObject( iMeth )->GetName() );
586 		aMacroBox.SetUpdateMode( sal_True );
587 
588 		if ( aMacroBox.GetEntryCount() )
589 		{
590 			SvLBoxEntry* pEntry = aMacroBox.GetEntry( 0 );
591 			DBG_ASSERT( pEntry, "Entry ?!" );
592 			aMacroBox.SetCurEntry( pEntry );
593 		}
594 	}
595 
596 	UpdateFields();
597 	CheckButtons();
598 	return 0;
599 }
600 
601 
602 
IMPL_LINK(MacroChooser,EditModifyHdl,Edit *,pEdit)603 IMPL_LINK( MacroChooser, EditModifyHdl, Edit *, pEdit )
604 {
605 	(void)pEdit;
606 
607 	// Das Modul, in dem bei Neu das Macro landet, selektieren,
608 	// wenn BasicManager oder Lib selektiert.
609 	SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry();
610 	if ( pCurEntry )
611 	{
612 		sal_uInt16 nDepth = aBasicBox.GetModel()->GetDepth( pCurEntry );
613 		if ( ( nDepth == 1 ) && ( aBasicBox.IsEntryProtected( pCurEntry ) ) )
614 		{
615 			// Dann auf die entsprechende Std-Lib stellen...
616 			SvLBoxEntry* pManagerEntry = aBasicBox.GetModel()->GetParent( pCurEntry );
617 			pCurEntry = aBasicBox.GetModel()->FirstChild( pManagerEntry );
618 		}
619 		if ( nDepth < 2 )
620 		{
621 			SvLBoxEntry* pNewEntry = pCurEntry;
622 			while ( pCurEntry && ( nDepth < 2 ) )
623 			{
624 				pCurEntry = aBasicBox.FirstChild( pCurEntry );
625 				if ( pCurEntry )
626 				{
627 					pNewEntry = pCurEntry;
628 					nDepth = aBasicBox.GetModel()->GetDepth( pCurEntry );
629 				}
630 			}
631 			SaveSetCurEntry( aBasicBox, pNewEntry );
632 		}
633 		if ( aMacroBox.GetEntryCount() )
634 		{
635 			String aEdtText( aMacroNameEdit.GetText() );
636 			sal_Bool bFound = sal_False;
637 			for ( sal_uInt16 n = 0; n < aMacroBox.GetEntryCount(); n++ )
638 			{
639 				SvLBoxEntry* pEntry = aMacroBox.GetEntry( n );
640 				DBG_ASSERT( pEntry, "Entry ?!" );
641 				if ( aMacroBox.GetEntryText( pEntry ).CompareIgnoreCaseToAscii( aEdtText ) == COMPARE_EQUAL )
642 				{
643 					SaveSetCurEntry( aMacroBox, pEntry );
644 					bFound = sal_True;
645 					break;
646 				}
647 			}
648 			if ( !bFound )
649 			{
650 				SvLBoxEntry* pEntry = aMacroBox.FirstSelected();
651 				// If there is the entry ->Select ->Description...
652 				if ( pEntry )
653 					aMacroBox.Select( pEntry, sal_False );
654 			}
655 		}
656 	}
657 
658 	CheckButtons();
659 	return 0;
660 }
661 
662 
663 
IMPL_LINK(MacroChooser,ButtonHdl,Button *,pButton)664 IMPL_LINK( MacroChooser, ButtonHdl, Button *, pButton )
665 {
666 	// ausser bei New/Record wird die Description durch LoseFocus uebernommen.
667 	if ( pButton == &aRunButton )
668 	{
669 		StoreMacroDescription();
670 
671         // #116444# check security settings before macro execution
672         if ( nMode == MACROCHOOSER_ALL )
673         {
674             SbMethod* pMethod = GetMacro();
675             SbModule* pModule = pMethod ? pMethod->GetModule() : NULL;
676             StarBASIC* pBasic = pModule ? (StarBASIC*)pModule->GetParent() : NULL;
677             BasicManager* pBasMgr = pBasic ? BasicIDE::FindBasicManager( pBasic ) : NULL;
678             if ( pBasMgr )
679             {
680                 ScriptDocument aDocument( ScriptDocument::getDocumentForBasicManager( pBasMgr ) );
681                 if ( aDocument.isDocument() && !aDocument.allowMacros() )
682                 {
683                     WarningBox( this, WB_OK, String( IDEResId( RID_STR_CANNOTRUNMACRO ) ) ).Execute();
684                     return 0;
685                 }
686             }
687         }
688         else if ( nMode == MACROCHOOSER_RECORDING )
689         {
690 			sal_Bool bValid = BasicIDE::IsValidSbxName( aMacroNameEdit.GetText() );
691 			if ( !bValid )
692 			{
693 				ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_BADSBXNAME ) ) ).Execute();
694 				aMacroNameEdit.SetSelection( Selection( 0, aMacroNameEdit.GetText().Len() ) );
695 				aMacroNameEdit.GrabFocus();
696 				return 0;
697 			}
698 
699             SbMethod* pMethod = GetMacro();
700             if ( pMethod && !QueryReplaceMacro( pMethod->GetName(), this ) )
701                 return 0;
702         }
703 
704         EndDialog( MACRO_OK_RUN );
705 	}
706 	else if ( pButton == &aCloseButton )
707 	{
708         StoreMacroDescription();
709 		EndDialog( MACRO_CLOSE );
710 	}
711 	else if ( ( pButton == &aEditButton ) || ( pButton == &aNewDelButton ) )
712 	{
713         SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry();
714         BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) );
715         ScriptDocument aDocument( aDesc.GetDocument() );
716         DBG_ASSERT( aDocument.isAlive(), "MacroChooser::ButtonHdl: no document, or document is dead!" );
717         if ( !aDocument.isAlive() )
718             return 0;
719         BasicManager* pBasMgr = aDocument.getBasicManager();
720         String aLib( aDesc.GetLibName() );
721         String aMod( aDesc.GetName() );
722         // extract the module name from the string like "Sheet1 (Example1)"
723         if( aDesc.GetLibSubName().Equals( String( IDEResId( RID_STR_DOCUMENT_OBJECTS ) ) ) )
724         {
725             sal_uInt16 nIndex = 0;
726             aMod = aMod.GetToken( 0, ' ', nIndex );
727         }
728         String aSub( aDesc.GetMethodName() );
729 		SfxMacroInfoItem aInfoItem( SID_BASICIDE_ARG_MACROINFO, pBasMgr, aLib, aMod, aSub, String() );
730 		if ( pButton == &aEditButton )
731 		{
732 			SvLBoxEntry* pEntry = aMacroBox.FirstSelected();
733 			if ( pEntry )
734 				aInfoItem.SetMethod( aMacroBox.GetEntryText( pEntry ) );
735 			StoreMacroDescription();
736             SfxAllItemSet aArgs( SFX_APP()->GetPool() );
737             SfxRequest aRequest( SID_BASICIDE_APPEAR, SFX_CALLMODE_SYNCHRON, aArgs );
738             SFX_APP()->ExecuteSlot( aRequest );
739 
740             BasicIDEShell* pIDEShell = IDE_DLL()->GetShell();
741             SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL;
742             SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL;
743 			if( pDispatcher )
744                 pDispatcher->Execute( SID_BASICIDE_EDITMACRO, SFX_CALLMODE_ASYNCHRON, &aInfoItem, 0L );
745 			EndDialog( MACRO_EDIT );
746 		}
747 		else
748 		{
749 			if ( bNewDelIsDel )
750 			{
751 				DeleteMacro();
752 				BasicIDEShell* pIDEShell = IDE_DLL()->GetShell();
753 				SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL;
754                 SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL;
755 				if( pDispatcher )
756 				{
757 					pDispatcher->Execute( SID_BASICIDE_UPDATEMODULESOURCE,
758 										  SFX_CALLMODE_SYNCHRON, &aInfoItem, 0L );
759 				}
760 				CheckButtons();
761 				UpdateFields();
762                 //if ( aMacroBox.GetCurEntry() )	// OV-Bug ?
763 				//	aMacroBox.Select( aMacroBox.GetCurEntry() );
764 			}
765 			else
766 			{
767 				sal_Bool bValid = BasicIDE::IsValidSbxName( aMacroNameEdit.GetText() );
768 				if ( !bValid )
769 				{
770 					ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_BADSBXNAME ) ) ).Execute();
771 					aMacroNameEdit.SetSelection( Selection( 0, aMacroNameEdit.GetText().Len() ) );
772 					aMacroNameEdit.GrabFocus();
773 					return 1;
774 				}
775 				SbMethod* pMethod = CreateMacro();
776 				if ( pMethod )
777 				{
778 					aInfoItem.SetMethod( pMethod->GetName() );
779 					aInfoItem.SetModule( pMethod->GetModule()->GetName() );
780 					aInfoItem.SetLib( pMethod->GetModule()->GetParent()->GetName() );
781                     SfxAllItemSet aArgs( SFX_APP()->GetPool() );
782                     SfxRequest aRequest( SID_BASICIDE_APPEAR, SFX_CALLMODE_SYNCHRON, aArgs );
783                     SFX_APP()->ExecuteSlot( aRequest );
784 
785                     BasicIDEShell* pIDEShell = IDE_DLL()->GetShell();
786                     SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL;
787                     SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL;
788                     if ( pDispatcher )
789                         pDispatcher->Execute( SID_BASICIDE_EDITMACRO, SFX_CALLMODE_ASYNCHRON, &aInfoItem, 0L );
790 					StoreMacroDescription();
791 					EndDialog( MACRO_NEW );
792 				}
793 			}
794 		}
795 	}
796 
797 	else if ( pButton == &aAssignButton )
798 	{
799         SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry();
800         BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) );
801         ScriptDocument aDocument( aDesc.GetDocument() );
802         DBG_ASSERT( aDocument.isAlive(), "MacroChooser::ButtonHdl: no document, or document is dead!" );
803         if ( !aDocument.isAlive() )
804             return 0;
805         BasicManager* pBasMgr = aDocument.getBasicManager();
806         String aLib( aDesc.GetLibName() );
807         String aMod( aDesc.GetName() );
808 		String aSub( aMacroNameEdit.GetText() );
809 		SbMethod* pMethod = GetMacro();
810 		DBG_ASSERT( pBasMgr, "BasMgr?" );
811 		DBG_ASSERT( pMethod, "Method?" );
812 		String aComment( GetInfo( pMethod ) );
813 		SfxMacroInfoItem aItem( SID_MACROINFO, pBasMgr, aLib, aMod, aSub, aComment );
814         SfxAllItemSet Args( SFX_APP()->GetPool() );
815         SfxRequest aRequest( SID_CONFIG, SFX_CALLMODE_SYNCHRON, Args );
816         aRequest.AppendItem( aItem );
817         SFX_APP()->ExecuteSlot( aRequest );
818 	}
819 	else if ( pButton == &aNewLibButton )
820 	{
821         SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry();
822         BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) );
823         ScriptDocument aDocument( aDesc.GetDocument() );
824 		createLibImpl( static_cast<Window*>( this ), aDocument, NULL, &aBasicBox );
825 	}
826 	else if ( pButton == &aNewModButton )
827 	{
828         SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry();
829         BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) );
830         ScriptDocument aDocument( aDesc.GetDocument() );
831         String aLibName( aDesc.GetLibName() );
832 		String aModName;
833 		createModImpl( static_cast<Window*>( this ), aDocument,
834 			aBasicBox, aLibName, aModName, true );
835 	}
836 	else if ( pButton == &aOrganizeButton )
837 	{
838 		StoreMacroDescription();
839 
840         BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( aBasicBox.FirstSelected() ) );
841 		OrganizeDialog* pDlg = new OrganizeDialog( this, 0, aDesc );
842 		sal_uInt16 nRet = pDlg->Execute();
843 		delete pDlg;
844 
845 		if ( nRet )	// Nicht einfach nur geschlossen
846 		{
847 			EndDialog( MACRO_EDIT );
848 			return 0;
849 		}
850 
851         BasicIDEShell* pIDEShell = IDE_DLL()->GetShell();
852         if ( pIDEShell && pIDEShell->IsAppBasicModified() )
853 			bForceStoreBasic = sal_True;
854 
855         aBasicBox.UpdateEntries();
856 	}
857 	return 0;
858 }
859 
860 
861 
UpdateFields()862 void MacroChooser::UpdateFields()
863 {
864 	SvLBoxEntry*	pMacroEntry = aMacroBox.GetCurEntry();
865 	String			aEmptyStr;
866 
867 	aMacroNameEdit.SetText( aEmptyStr );
868 	if ( pMacroEntry )
869 		aMacroNameEdit.SetText( aMacroBox.GetEntryText( pMacroEntry ) );
870 }
871 
SetMode(sal_uInt16 nM)872 void MacroChooser::SetMode( sal_uInt16 nM )
873 {
874 	nMode = nM;
875 	if ( nMode == MACROCHOOSER_ALL )
876 	{
877 		aRunButton.SetText( String( IDEResId( RID_STR_RUN ) ) );
878 		EnableButton( aNewDelButton, sal_True );
879 		EnableButton( aOrganizeButton, sal_True );
880 	}
881 	else if ( nMode == MACROCHOOSER_CHOOSEONLY )
882 	{
883 		aRunButton.SetText( String( IDEResId( RID_STR_CHOOSE ) ) );
884 		EnableButton( aNewDelButton, sal_False );
885 		EnableButton( aOrganizeButton, sal_False );
886 	}
887     else if ( nMode == MACROCHOOSER_RECORDING )
888 	{
889         aRunButton.SetText( String( IDEResId( RID_STR_RECORD ) ) );
890 		EnableButton( aNewDelButton, sal_False );
891 		EnableButton( aOrganizeButton, sal_False );
892 
893 		aAssignButton.Hide();
894 		aEditButton.Hide();
895 		aNewDelButton.Hide();
896 		aOrganizeButton.Hide();
897 		aMacroFromTxT.Hide();
898 
899 		aNewLibButton.Show();
900 		aNewModButton.Show();
901 		aMacrosSaveInTxt.Show();
902 
903 		Point aHelpPos = aHelpButton.GetPosPixel();
904 		Point aHelpPosLogic = PixelToLogic( aHelpPos, MapMode(MAP_APPFONT) );
905 		aHelpPosLogic.Y() -= 34;
906 		aHelpPos = LogicToPixel( aHelpPosLogic, MapMode(MAP_APPFONT) );
907 		aHelpButton.SetPosPixel( aHelpPos );
908 	}
909 	CheckButtons();
910 }
911 
GetInfo(SbxVariable * pVar)912 String MacroChooser::GetInfo( SbxVariable* pVar )
913 {
914 	String aComment;
915 	SbxInfoRef xInfo = pVar->GetInfo();
916 	if ( xInfo.Is() )
917 		aComment = xInfo->GetComment();
918 	return aComment;
919 }
920 
921