diff options
Diffstat (limited to 'patches/vba/vba-ide-choose-macro-to-run.diff')
| -rw-r--r-- | patches/vba/vba-ide-choose-macro-to-run.diff | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/patches/vba/vba-ide-choose-macro-to-run.diff b/patches/vba/vba-ide-choose-macro-to-run.diff deleted file mode 100644 index e98bd2d1d..000000000 --- a/patches/vba/vba-ide-choose-macro-to-run.diff +++ /dev/null @@ -1,32 +0,0 @@ ---- basctl/source/basicide/baside2.cxx.old 2009-04-02 10:56:36.000000000 +0000 -+++ basctl/source/basicide/baside2.cxx 2009-04-06 16:41:44.000000000 +0000 -@@ -331,6 +331,8 @@ BOOL ModulWindow::BasicExecute() - DBG_ASSERT( xModule.Is(), "Kein Modul!" ); - AddStatus( BASWIN_RUNNINGBASIC ); - USHORT nStart, nEnd, nCurMethodStart = 0; -+ TextSelection aSel = GetEditView()->GetSelection(); -+ nCurMethodStart = ( aSel.GetStart().GetPara() + 1 ); - SbMethod* pMethod = 0; - // erstes Macro, sonst blind "Main" (ExtSearch?) - for ( USHORT nMacro = 0; nMacro < xModule->GetMethods()->Count(); nMacro++ ) -@@ -338,16 +340,16 @@ BOOL ModulWindow::BasicExecute() - SbMethod* pM = (SbMethod*)xModule->GetMethods()->Get( nMacro ); - DBG_ASSERT( pM, "Method?" ); - pM->GetLineRange( nStart, nEnd ); -- if ( !pMethod || ( nStart < nCurMethodStart ) ) -+ if ( nCurMethodStart >= nStart && nCurMethodStart <= nEnd ) - { - pMethod = pM; -- nCurMethodStart = nStart; -+ break; - } - } - if ( !pMethod ) -- pMethod = (SbMethod*)xModule->Find( String( RTL_CONSTASCII_USTRINGPARAM( "Main" ) ), SbxCLASS_METHOD ); -+ return ( BasicIDE::ChooseMacro( uno::Reference< frame::XModel >(), FALSE, rtl::OUString() ).getLength() > 0 ) ? TRUE : FALSE; - -- if ( pMethod ) -+ else - { - pMethod->SetDebugFlags( aStatus.nBasicFlags ); - BasicDLL::SetDebugMode( TRUE ); |