LCOV - code coverage report
Current view: top level - libreoffice/basctl/source/basicide - baside2b.cxx (source / functions) Hit Total Coverage
Test: libreoffice_filtered.info Lines: 0 1197 0.0 %
Date: 2012-12-27 Functions: 0 108 0.0 %
Legend: Lines: hit not hit

          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 "helpid.hrc"
      21             : #include "baside2.hrc"
      22             : 
      23             : #include "baside2.hxx"
      24             : #include "brkdlg.hxx"
      25             : #include "iderdll.hxx"
      26             : #include "iderdll2.hxx"
      27             : #include "objdlg.hxx"
      28             : 
      29             : #include <basic/sbmeth.hxx>
      30             : #include <basic/sbuno.hxx>
      31             : #include <com/sun/star/script/XLibraryContainer2.hpp>
      32             : #include <com/sun/star/beans/XMultiPropertySet.hpp>
      33             : #include <com/sun/star/beans/XPropertiesChangeListener.hpp>
      34             : #include <comphelper/processfactory.hxx>
      35             : #include <comphelper/string.hxx>
      36             : #include <officecfg/Office/Common.hxx>
      37             : #include <sfx2/dispatch.hxx>
      38             : #include <sfx2/viewfrm.hxx>
      39             : #include <vcl/msgbox.hxx>
      40             : #include <svl/urihelper.hxx>
      41             : #include <vcl/xtextedt.hxx>
      42             : #include <vcl/txtattr.hxx>
      43             : #include <svtools/textwindowpeer.hxx>
      44             : #include <svtools/syntaxhighlight.hxx>
      45             : #include "svtools/treelistentry.hxx"
      46             : #include <vcl/taskpanelist.hxx>
      47             : #include <vcl/help.hxx>
      48             : 
      49             : #include <vector>
      50             : 
      51             : namespace basctl
      52             : {
      53             : 
      54             : using namespace ::com::sun::star;
      55             : using namespace ::com::sun::star::uno;
      56             : 
      57             : namespace
      58             : {
      59             : 
      60             : sal_uInt16 const NoMarker = 0xFFFF;
      61             : 
      62             : long nVirtToolBoxHeight;    // inited in WatchWindow, used in Stackwindow
      63             : long nHeaderBarHeight;
      64             : 
      65             : // Returns pBase converted to SbxVariable if valid and is not an SbxMethod.
      66           0 : SbxVariable* IsSbxVariable (SbxBase* pBase)
      67             : {
      68           0 :     if (SbxVariable* pVar = dynamic_cast<SbxVariable*>(pBase))
      69           0 :         if (!dynamic_cast<SbxMethod*>(pVar))
      70           0 :             return pVar;
      71           0 :     return 0;
      72             : }
      73             : 
      74           0 : Image GetImage (unsigned nId)
      75             : {
      76           0 :     static ImageList const aImagesNormal(IDEResId(RID_IMGLST_LAYOUT));
      77           0 :     return aImagesNormal.GetImage(nId);
      78             : }
      79             : 
      80             : int const nScrollLine = 12;
      81             : int const nScrollPage = 60;
      82             : int const DWBORDER = 3;
      83             : 
      84             : char const cSuffixes[] = "%&!#@$";
      85             : 
      86             : } // namespace
      87             : 
      88             : 
      89             : /**
      90             :  * Helper functions to get/set text in TextEngine using
      91             :  * the stream interface.
      92             :  *
      93             :  * get/setText() only supports tools Strings limited to 64K).
      94             :  */
      95           0 : OUString getTextEngineText (ExtTextEngine& rEngine)
      96             : {
      97           0 :     SvMemoryStream aMemStream;
      98           0 :     aMemStream.SetStreamCharSet( RTL_TEXTENCODING_UTF8 );
      99           0 :     aMemStream.SetLineDelimiter( LINEEND_LF );
     100           0 :     rEngine.Write( aMemStream );
     101           0 :     sal_uLong nSize = aMemStream.Tell();
     102           0 :     OUString aText( (const sal_Char*)aMemStream.GetData(),
     103           0 :         nSize, RTL_TEXTENCODING_UTF8 );
     104           0 :     return aText;
     105             : }
     106             : 
     107           0 : void setTextEngineText (ExtTextEngine& rEngine, OUString const& aStr)
     108             : {
     109           0 :     rEngine.SetText(String());
     110           0 :     OString aUTF8Str = OUStringToOString( aStr, RTL_TEXTENCODING_UTF8 );
     111           0 :     SvMemoryStream aMemStream( (void*)aUTF8Str.getStr(), aUTF8Str.getLength(),
     112           0 :         STREAM_READ | STREAM_SEEK_TO_BEGIN );
     113           0 :     aMemStream.SetStreamCharSet( RTL_TEXTENCODING_UTF8 );
     114           0 :     aMemStream.SetLineDelimiter( LINEEND_LF );
     115           0 :     rEngine.Read(aMemStream);
     116           0 : }
     117             : 
     118             : namespace
     119             : {
     120             : 
     121           0 : void lcl_DrawIDEWindowFrame( DockingWindow* pWin )
     122             : {
     123           0 :     if ( pWin->IsFloatingMode() )
     124           0 :         return;
     125             : 
     126           0 :     Size aSz = pWin->GetOutputSizePixel();
     127           0 :     const Color aOldLineColor( pWin->GetLineColor() );
     128           0 :     pWin->SetLineColor( Color( COL_WHITE ) );
     129             :     // White line on top
     130           0 :     pWin->DrawLine( Point( 0, 0 ), Point( aSz.Width(), 0 ) );
     131             :     // Black line at bottom
     132           0 :     pWin->SetLineColor( Color( COL_BLACK ) );
     133           0 :     pWin->DrawLine( Point( 0, aSz.Height() - 1 ),
     134           0 :                     Point( aSz.Width(), aSz.Height() - 1 ) );
     135           0 :     pWin->SetLineColor( aOldLineColor );
     136             : }
     137             : 
     138           0 : void lcl_SeparateNameAndIndex( const String& rVName, String& rVar, String& rIndex )
     139             : {
     140           0 :     rVar = rVName;
     141           0 :     rIndex.Erase();
     142           0 :     sal_uInt16 nIndexStart = rVar.Search( '(' );
     143           0 :     if ( nIndexStart != STRING_NOTFOUND )
     144             :     {
     145           0 :         sal_uInt16 nIndexEnd = rVar.Search( ')', nIndexStart );
     146           0 :         if ( nIndexStart != STRING_NOTFOUND )
     147             :         {
     148           0 :             rIndex = rVar.Copy( nIndexStart+1, nIndexEnd-nIndexStart-1 );
     149           0 :             rVar.Erase( nIndexStart );
     150           0 :             rVar = comphelper::string::stripEnd(rVar, ' ');
     151           0 :             rIndex = comphelper::string::strip(rIndex, ' ');
     152             :         }
     153             :     }
     154             : 
     155           0 :     if ( rVar.Len() )
     156             :     {
     157           0 :         sal_uInt16 nLastChar = rVar.Len()-1;
     158           0 :         if ( strchr( cSuffixes, rVar.GetChar( nLastChar ) ) )
     159           0 :             rVar.Erase( nLastChar, 1 );
     160             :     }
     161           0 :     if ( rIndex.Len() )
     162             :     {
     163           0 :         sal_uInt16 nLastChar = rIndex.Len()-1;
     164           0 :         if ( strchr( cSuffixes, rIndex.GetChar( nLastChar ) ) )
     165           0 :             rIndex.Erase( nLastChar, 1 );
     166             :     }
     167           0 : }
     168             : 
     169             : } // namespace
     170             : 
     171             : 
     172             : //
     173             : // EditorWindow
     174             : // ============
     175             : //
     176             : 
     177             : class EditorWindow::ChangesListener:
     178             :     public cppu::WeakImplHelper1< beans::XPropertiesChangeListener >
     179             : {
     180             : public:
     181           0 :     ChangesListener(EditorWindow & editor): editor_(editor) {}
     182             : 
     183             : private:
     184           0 :     virtual ~ChangesListener() {}
     185             : 
     186           0 :     virtual void SAL_CALL disposing(lang::EventObject const &) throw (RuntimeException)
     187             :     {
     188           0 :         osl::MutexGuard g(editor_.mutex_);
     189           0 :         editor_.notifier_.clear();
     190           0 :     }
     191             : 
     192           0 :     virtual void SAL_CALL propertiesChange(
     193             :         Sequence< beans::PropertyChangeEvent > const &) throw (RuntimeException)
     194             :     {
     195           0 :         SolarMutexGuard g;
     196           0 :         editor_.ImplSetFont();
     197           0 :     }
     198             : 
     199             :     EditorWindow & editor_;
     200             : };
     201             : 
     202           0 : class EditorWindow::ProgressInfo : public SfxProgress
     203             : {
     204             : public:
     205           0 :     ProgressInfo (SfxObjectShell* pObjSh, String const& rText, sal_uLong nRange) :
     206             :         SfxProgress(pObjSh, rText, nRange),
     207           0 :         nCurState(0)
     208           0 :     { }
     209             : 
     210           0 :     void StepProgress ()
     211             :     {
     212           0 :         SetState(++nCurState);
     213           0 :     }
     214             : 
     215             : private:
     216             :     sal_uLong nCurState;
     217             : };
     218             : 
     219           0 : EditorWindow::EditorWindow (Window* pParent, ModulWindow* pModulWindow) :
     220             :     Window(pParent, WB_BORDER),
     221             :     pEditView(0),
     222             :     pEditEngine(0),
     223             :     rModulWindow(*pModulWindow),
     224             :     nCurTextWidth(0),
     225             :     bHighlightning(false),
     226             :     bDoSyntaxHighlight(true),
     227           0 :     bDelayHighlight(true)
     228             : {
     229           0 :     SetBackground(Wallpaper(GetSettings().GetStyleSettings().GetFieldColor()));
     230           0 :     SetPointer( Pointer( POINTER_TEXT ) );
     231           0 :     SetHelpId( HID_BASICIDE_EDITORWINDOW );
     232             : 
     233           0 :     listener_ = new ChangesListener(*this);
     234             :     Reference< beans::XMultiPropertySet > n(
     235             :         officecfg::Office::Common::Font::SourceViewFont::get(),
     236           0 :         UNO_QUERY_THROW);
     237             :     {
     238           0 :         osl::MutexGuard g(mutex_);
     239           0 :         notifier_ = n;
     240             :     }
     241           0 :     Sequence< OUString > s(2);
     242           0 :     s[0] = OUString( "FontHeight" );
     243           0 :     s[1] = OUString( "FontName" );
     244           0 :     n->addPropertiesChangeListener(s, listener_.get());
     245           0 : }
     246             : 
     247             : 
     248           0 : EditorWindow::~EditorWindow()
     249             : {
     250           0 :     Reference< beans::XMultiPropertySet > n;
     251             :     {
     252           0 :         osl::MutexGuard g(mutex_);
     253           0 :         n = notifier_;
     254             :     }
     255           0 :     if (n.is()) {
     256           0 :         n->removePropertiesChangeListener(listener_.get());
     257             :     }
     258             : 
     259           0 :     aSyntaxIdleTimer.Stop();
     260             : 
     261           0 :     if ( pEditEngine )
     262             :     {
     263           0 :         EndListening( *pEditEngine );
     264           0 :         pEditEngine->RemoveView(pEditView.get());
     265           0 :     }
     266           0 : }
     267             : 
     268           0 : String EditorWindow::GetWordAtCursor()
     269             : {
     270           0 :     String aWord;
     271             : 
     272           0 :     if ( pEditView )
     273             :     {
     274           0 :         TextEngine* pTextEngine = pEditView->GetTextEngine();
     275           0 :         if ( pTextEngine )
     276             :         {
     277             :             // check first, if the cursor is at a help URL
     278           0 :             const TextSelection& rSelection = pEditView->GetSelection();
     279           0 :             const TextPaM& rSelStart = rSelection.GetStart();
     280           0 :             const TextPaM& rSelEnd = rSelection.GetEnd();
     281           0 :             OUString aText = pTextEngine->GetText( rSelEnd.GetPara() );
     282           0 :             CharClass aClass( ::comphelper::getProcessComponentContext() , Application::GetSettings().GetLanguageTag() );
     283           0 :             sal_Int32 nSelStart = rSelStart.GetIndex();
     284           0 :             sal_Int32 nSelEnd = rSelEnd.GetIndex();
     285           0 :             sal_Int32 nLength = aText.getLength();
     286           0 :             sal_Int32 nStart = 0;
     287           0 :             sal_Int32 nEnd = nLength;
     288           0 :             while ( nStart < nLength )
     289             :             {
     290           0 :                 OUString aURL( URIHelper::FindFirstURLInText( aText, nStart, nEnd, aClass ) );
     291           0 :                 INetURLObject aURLObj( aURL );
     292           0 :                 if ( aURLObj.GetProtocol() == INET_PROT_VND_SUN_STAR_HELP
     293             :                      && nSelStart >= nStart && nSelStart <= nEnd && nSelEnd >= nStart && nSelEnd <= nEnd )
     294             :                 {
     295           0 :                     aWord = aURL;
     296             :                     break;
     297             :                 }
     298           0 :                 nStart = nEnd;
     299           0 :                 nEnd = nLength;
     300           0 :             }
     301             : 
     302             :             // Not the selected range, but at the CursorPosition,
     303             :             // if a word is partially selected.
     304           0 :             if ( !aWord.Len() )
     305           0 :                 aWord = pTextEngine->GetWord( rSelEnd );
     306             : 
     307             :             // Can be empty when full word selected, as Cursor behing it
     308           0 :             if ( !aWord.Len() && pEditView->HasSelection() )
     309           0 :                 aWord = pTextEngine->GetWord( rSelStart );
     310             :         }
     311             :     }
     312             : 
     313           0 :     return aWord;
     314             : }
     315             : 
     316           0 : void EditorWindow::RequestHelp( const HelpEvent& rHEvt )
     317             : {
     318           0 :     bool bDone = false;
     319             : 
     320             :     // Should have been activated at some point
     321           0 :     if ( pEditEngine )
     322             :     {
     323           0 :         if ( rHEvt.GetMode() & HELPMODE_CONTEXT )
     324             :         {
     325           0 :             String aKeyword = GetWordAtCursor();
     326           0 :             Application::GetHelp()->SearchKeyword( aKeyword );
     327           0 :             bDone = true;
     328             :         }
     329           0 :         else if ( rHEvt.GetMode() & HELPMODE_QUICK )
     330             :         {
     331           0 :             String aHelpText;
     332           0 :             Point aTopLeft;
     333           0 :             if ( StarBASIC::IsRunning() )
     334             :             {
     335           0 :                 Point aWindowPos = rHEvt.GetMousePosPixel();
     336           0 :                 aWindowPos = ScreenToOutputPixel( aWindowPos );
     337           0 :                 Point aDocPos = GetEditView()->GetDocPos( aWindowPos );
     338           0 :                 TextPaM aCursor = GetEditView()->GetTextEngine()->GetPaM(aDocPos, false);
     339           0 :                 TextPaM aStartOfWord;
     340           0 :                 String aWord = GetEditView()->GetTextEngine()->GetWord( aCursor, &aStartOfWord );
     341           0 :                 if ( aWord.Len() && !comphelper::string::isdigitAsciiString(aWord) )
     342             :                 {
     343           0 :                     sal_uInt16 nLastChar =aWord.Len()-1;
     344           0 :                     if ( strchr( cSuffixes, aWord.GetChar( nLastChar ) ) )
     345           0 :                         aWord.Erase( nLastChar, 1 );
     346           0 :                     SbxBase* pSBX = StarBASIC::FindSBXInCurrentScope( aWord );
     347           0 :                     if (SbxVariable const* pVar = IsSbxVariable(pSBX))
     348             :                     {
     349           0 :                         SbxDataType eType = pVar->GetType();
     350           0 :                         if ( (sal_uInt8)eType == (sal_uInt8)SbxOBJECT )
     351             :                             // might cause a crash e. g. at the selections-object
     352             :                             // Type == Object does not mean pVar == Object!
     353             :                             ; // aHelpText = ((SbxObject*)pVar)->GetClassName();
     354           0 :                         else if ( eType & SbxARRAY )
     355             :                             ; // aHelpText = "{...}";
     356           0 :                         else if ( (sal_uInt8)eType != (sal_uInt8)SbxEMPTY )
     357             :                         {
     358           0 :                             aHelpText = pVar->GetName();
     359           0 :                             if ( !aHelpText.Len() )     // name is not copied with the passed parameters
     360           0 :                                 aHelpText = aWord;
     361           0 :                             aHelpText += '=';
     362           0 :                             aHelpText += pVar->GetOUString();
     363             :                         }
     364             :                     }
     365           0 :                     if ( aHelpText.Len() )
     366             :                     {
     367           0 :                         aTopLeft = GetEditView()->GetTextEngine()->PaMtoEditCursor( aStartOfWord ).BottomLeft();
     368           0 :                         aTopLeft = GetEditView()->GetWindowPos( aTopLeft );
     369           0 :                         aTopLeft.X() += 5;
     370           0 :                         aTopLeft.Y() += 5;
     371           0 :                         aTopLeft = OutputToScreenPixel( aTopLeft );
     372             :                     }
     373           0 :                 }
     374             :             }
     375           0 :             Help::ShowQuickHelp( this, Rectangle( aTopLeft, Size( 1, 1 ) ), aHelpText, QUICKHELP_TOP|QUICKHELP_LEFT);
     376           0 :             bDone = true;
     377             :         }
     378             :     }
     379             : 
     380           0 :     if ( !bDone )
     381           0 :         Window::RequestHelp( rHEvt );
     382           0 : }
     383             : 
     384             : 
     385           0 : void EditorWindow::Resize()
     386             : {
     387             :     // ScrollBars, etc. happens in Adjust...
     388           0 :     if ( pEditView )
     389             :     {
     390           0 :         long nVisY = pEditView->GetStartDocPos().Y();
     391             : 
     392           0 :         pEditView->ShowCursor();
     393           0 :         Size aOutSz( GetOutputSizePixel() );
     394           0 :         long nMaxVisAreaStart = pEditView->GetTextEngine()->GetTextHeight() - aOutSz.Height();
     395           0 :         if ( nMaxVisAreaStart < 0 )
     396           0 :             nMaxVisAreaStart = 0;
     397           0 :         if ( pEditView->GetStartDocPos().Y() > nMaxVisAreaStart )
     398             :         {
     399           0 :             Point aStartDocPos( pEditView->GetStartDocPos() );
     400           0 :             aStartDocPos.Y() = nMaxVisAreaStart;
     401           0 :             pEditView->SetStartDocPos( aStartDocPos );
     402           0 :             pEditView->ShowCursor();
     403           0 :             rModulWindow.GetBreakPointWindow().GetCurYOffset() = aStartDocPos.Y();
     404           0 :             rModulWindow.GetLineNumberWindow().GetCurYOffset() = aStartDocPos.Y();
     405             :         }
     406           0 :         InitScrollBars();
     407           0 :         if ( nVisY != pEditView->GetStartDocPos().Y() )
     408           0 :             Invalidate();
     409             :     }
     410           0 : }
     411             : 
     412             : 
     413           0 : void EditorWindow::MouseMove( const MouseEvent &rEvt )
     414             : {
     415           0 :     if ( pEditView )
     416           0 :         pEditView->MouseMove( rEvt );
     417           0 : }
     418             : 
     419             : 
     420           0 : void EditorWindow::MouseButtonUp( const MouseEvent &rEvt )
     421             : {
     422           0 :     if ( pEditView )
     423             :     {
     424           0 :         pEditView->MouseButtonUp( rEvt );
     425           0 :         if (SfxBindings* pBindings = GetBindingsPtr())
     426           0 :             pBindings->Invalidate( SID_BASICIDE_STAT_POS );
     427             :     }
     428           0 : }
     429             : 
     430           0 : void EditorWindow::MouseButtonDown( const MouseEvent &rEvt )
     431             : {
     432           0 :     GrabFocus();
     433           0 :     if ( pEditView )
     434           0 :         pEditView->MouseButtonDown( rEvt );
     435           0 : }
     436             : 
     437           0 : void EditorWindow::Command( const CommandEvent& rCEvt )
     438             : {
     439           0 :     if ( pEditView )
     440             :     {
     441           0 :         pEditView->Command( rCEvt );
     442           0 :         if ( ( rCEvt.GetCommand() == COMMAND_WHEEL ) ||
     443           0 :              ( rCEvt.GetCommand() == COMMAND_STARTAUTOSCROLL ) ||
     444           0 :              ( rCEvt.GetCommand() == COMMAND_AUTOSCROLL ) )
     445             :         {
     446           0 :             HandleScrollCommand( rCEvt, rModulWindow.GetHScrollBar(), &rModulWindow.GetEditVScrollBar() );
     447             :         }
     448             :     }
     449           0 : }
     450             : 
     451           0 : bool EditorWindow::ImpCanModify()
     452             : {
     453           0 :     bool bCanModify = true;
     454           0 :     if ( StarBASIC::IsRunning() )
     455             :     {
     456             :         // If in Trace-mode, abort the trace or refuse input
     457             :         // Remove markers in the modules in Notify at Basic::Stoped
     458           0 :         if ( QueryBox( 0, WB_OK_CANCEL, String( IDEResId( RID_STR_WILLSTOPPRG ) ) ).Execute() == RET_OK )
     459             :         {
     460           0 :             rModulWindow.GetBasicStatus().bIsRunning = false;
     461           0 :             StopBasic();
     462             :         }
     463             :         else
     464           0 :             bCanModify = false;
     465             :     }
     466           0 :     return bCanModify;
     467             : }
     468             : 
     469           0 : void EditorWindow::KeyInput( const KeyEvent& rKEvt )
     470             : {
     471           0 :     if ( !pEditView )   // Happens in Win95
     472           0 :         return;
     473             : 
     474             : #if OSL_DEBUG_LEVEL > 1
     475             :     Range aRange = rModulWindow.GetHScrollBar()->GetRange(); (void)aRange;
     476             :     long nVisSz = rModulWindow.GetHScrollBar()->GetVisibleSize(); (void)nVisSz;
     477             :     long nPapSz = rModulWindow.GetHScrollBar()->GetPageSize(); (void)nPapSz;
     478             :     long nLinSz = rModulWindow.GetHScrollBar()->GetLineSize(); (void)nLinSz;
     479             :     long nThumb = rModulWindow.GetHScrollBar()->GetThumbPos(); (void)nThumb;
     480             : #endif
     481           0 :     bool const bWasModified = pEditEngine->IsModified();
     482             :     // see if there is an accelerator to be processed first
     483           0 :     bool bDone = SfxViewShell::Current()->KeyInput( rKEvt );
     484             : 
     485           0 :     if ( !bDone && ( !TextEngine::DoesKeyChangeText( rKEvt ) || ImpCanModify()  ) )
     486             :     {
     487           0 :         if ( ( rKEvt.GetKeyCode().GetCode() == KEY_TAB ) && !rKEvt.GetKeyCode().IsMod1() &&
     488           0 :               !rKEvt.GetKeyCode().IsMod2() && !GetEditView()->IsReadOnly() )
     489             :         {
     490           0 :             TextSelection aSel( pEditView->GetSelection() );
     491           0 :             if ( aSel.GetStart().GetPara() != aSel.GetEnd().GetPara() )
     492             :             {
     493           0 :                 bDelayHighlight = false;
     494           0 :                 if ( !rKEvt.GetKeyCode().IsShift() )
     495           0 :                     pEditView->IndentBlock();
     496             :                 else
     497           0 :                     pEditView->UnindentBlock();
     498           0 :                 bDelayHighlight = true;
     499           0 :                 bDone = true;
     500             :             }
     501             :         }
     502           0 :         if ( !bDone )
     503           0 :             bDone = pEditView->KeyInput( rKEvt );
     504             :     }
     505           0 :     if ( !bDone )
     506             :     {
     507           0 :             Window::KeyInput( rKEvt );
     508             :     }
     509             :     else
     510             :     {
     511           0 :         if (SfxBindings* pBindings = GetBindingsPtr())
     512             :         {
     513           0 :             pBindings->Invalidate( SID_BASICIDE_STAT_POS );
     514           0 :             if ( rKEvt.GetKeyCode().GetGroup() == KEYGROUP_CURSOR )
     515           0 :                 pBindings->Update( SID_BASICIDE_STAT_POS );
     516           0 :             if ( !bWasModified && pEditEngine->IsModified() )
     517             :             {
     518           0 :                 pBindings->Invalidate( SID_SAVEDOC );
     519           0 :                 pBindings->Invalidate( SID_DOC_MODIFIED );
     520           0 :                 pBindings->Invalidate( SID_UNDO );
     521             :             }
     522           0 :             if ( rKEvt.GetKeyCode().GetCode() == KEY_INSERT )
     523           0 :                 pBindings->Invalidate( SID_ATTR_INSERT );
     524             :         }
     525             :     }
     526             : }
     527             : 
     528           0 : void EditorWindow::Paint( const Rectangle& rRect )
     529             : {
     530           0 :     if ( !pEditEngine )     // We need it now at latest
     531           0 :         CreateEditEngine();
     532             : 
     533           0 :     pEditView->Paint( rRect );
     534           0 : }
     535             : 
     536           0 : void EditorWindow::LoseFocus()
     537             : {
     538           0 :     SetSourceInBasic();
     539           0 :     Window::LoseFocus();
     540           0 : }
     541             : 
     542           0 : bool EditorWindow::SetSourceInBasic()
     543             : {
     544           0 :     bool bChanged = false;
     545           0 :     if ( pEditEngine && pEditEngine->IsModified()
     546           0 :         && !GetEditView()->IsReadOnly() )   // Added for #i60626, otherwise
     547             :             // any read only bug in the text engine could lead to a crash later
     548             :     {
     549           0 :         if ( !StarBASIC::IsRunning() ) // Not at runtime!
     550             :         {
     551           0 :             rModulWindow.UpdateModule();
     552           0 :             bChanged = true;
     553             :         }
     554             :     }
     555           0 :     return bChanged;
     556             : }
     557             : 
     558             : // Returns the position of the last character of any of the following
     559             : // EOL char combinations: CR, CR/LF, LF, return -1 if no EOL is found
     560           0 : sal_Int32 searchEOL( const OUString& rStr, sal_Int32 fromIndex )
     561             : {
     562           0 :     sal_Int32 iRetPos = -1;
     563             : 
     564           0 :     sal_Int32 iLF = rStr.indexOf( LINE_SEP, fromIndex );
     565           0 :     if( iLF != -1 )
     566             :     {
     567           0 :         iRetPos = iLF;
     568             :     }
     569             :     else
     570             :     {
     571           0 :         iRetPos = rStr.indexOf( LINE_SEP_CR, fromIndex );
     572             :     }
     573           0 :     return iRetPos;
     574             : }
     575             : 
     576           0 : void EditorWindow::CreateEditEngine()
     577             : {
     578           0 :     if ( pEditEngine )
     579           0 :         return;
     580             : 
     581           0 :     pEditEngine.reset(new ExtTextEngine);
     582           0 :     pEditView.reset(new ExtTextView(pEditEngine.get(), this));
     583           0 :     pEditView->SetAutoIndentMode(true);
     584           0 :     pEditEngine->SetUpdateMode(false);
     585           0 :     pEditEngine->InsertView(pEditView.get());
     586             : 
     587           0 :     ImplSetFont();
     588             : 
     589           0 :     aSyntaxIdleTimer.SetTimeout( 200 );
     590           0 :     aSyntaxIdleTimer.SetTimeoutHdl( LINK( this, EditorWindow, SyntaxTimerHdl ) );
     591             : 
     592           0 :     aHighlighter.initialize( HIGHLIGHT_BASIC );
     593             : 
     594           0 :     bool bWasDoSyntaxHighlight = bDoSyntaxHighlight;
     595           0 :     bDoSyntaxHighlight = false; // too slow for large texts...
     596           0 :     OUString aOUSource(rModulWindow.GetModule());
     597           0 :     sal_Int32 nLines = 0;
     598           0 :     sal_Int32 nIndex = -1;
     599           0 :     do
     600             :     {
     601           0 :         nLines++;
     602           0 :         nIndex = searchEOL( aOUSource, nIndex+1 );
     603             :     }
     604             :     while ( nIndex >= 0 );
     605             : 
     606             :     // nLines*4: SetText+Formatting+DoHighlight+Formatting
     607             :     // it could be cut down on one formatting but you would wait even longer
     608             :     // for the text then if the source code is long...
     609             :     pProgress.reset(new ProgressInfo(
     610           0 :         GetShell()->GetViewFrame()->GetObjectShell(),
     611             :         String(IDEResId(RID_STR_GENERATESOURCE)),
     612             :         nLines*4
     613           0 :     ));
     614           0 :     setTextEngineText(*pEditEngine, aOUSource);
     615             : 
     616           0 :     pEditView->SetStartDocPos( Point( 0, 0 ) );
     617           0 :     pEditView->SetSelection( TextSelection() );
     618           0 :     rModulWindow.GetBreakPointWindow().GetCurYOffset() = 0;
     619           0 :     rModulWindow.GetLineNumberWindow().GetCurYOffset() = 0;
     620           0 :     pEditEngine->SetUpdateMode(true);
     621           0 :     rModulWindow.Update();   // has only been invalidated at UpdateMode = true
     622             : 
     623           0 :     pEditView->ShowCursor( true, true );
     624             : 
     625           0 :     StartListening( *pEditEngine );
     626             : 
     627           0 :     aSyntaxIdleTimer.Stop();
     628           0 :     bDoSyntaxHighlight = bWasDoSyntaxHighlight;
     629             : 
     630             : 
     631           0 :     for ( sal_uInt16 nLine = 0; nLine < nLines; nLine++ )
     632           0 :         aSyntaxLineTable.insert( nLine );
     633           0 :     ForceSyntaxTimeout();
     634             : 
     635           0 :     pProgress.reset();
     636             : 
     637           0 :     pEditView->EraseVirtualDevice();
     638           0 :     pEditEngine->SetModified( false );
     639           0 :     pEditEngine->EnableUndo( true );
     640             : 
     641           0 :     InitScrollBars();
     642             : 
     643           0 :     if (SfxBindings* pBindings = GetBindingsPtr())
     644           0 :         pBindings->Invalidate( SID_BASICIDE_STAT_POS );
     645             : 
     646             :     DBG_ASSERT( rModulWindow.GetBreakPointWindow().GetCurYOffset() == 0, "CreateEditEngine: Brechpunkte verschoben?" );
     647             : 
     648             :     // set readonly mode for readonly libraries
     649           0 :     ScriptDocument aDocument(rModulWindow.GetDocument());
     650           0 :     OUString aOULibName(rModulWindow.GetLibName());
     651           0 :     Reference< script::XLibraryContainer2 > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
     652           0 :     if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) )
     653             :     {
     654           0 :         rModulWindow.SetReadOnly(true);
     655             :     }
     656             : 
     657           0 :     if ( aDocument.isDocument() && aDocument.isReadOnly() )
     658           0 :         rModulWindow.SetReadOnly(true);
     659             : }
     660             : 
     661             : // virtual
     662           0 : void EditorWindow::DataChanged(DataChangedEvent const & rDCEvt)
     663             : {
     664           0 :     Window::DataChanged(rDCEvt);
     665           0 :     if (rDCEvt.GetType() == DATACHANGED_SETTINGS
     666           0 :         && (rDCEvt.GetFlags() & SETTINGS_STYLE) != 0)
     667             :     {
     668           0 :         Color aColor(GetSettings().GetStyleSettings().GetFieldColor());
     669           0 :         if (aColor
     670           0 :             != rDCEvt.GetOldSettings()->GetStyleSettings().GetFieldColor())
     671             :         {
     672           0 :             SetBackground(Wallpaper(aColor));
     673           0 :             Invalidate();
     674             :         }
     675           0 :         if (pEditEngine != 0)
     676             :         {
     677           0 :             aColor = GetSettings().GetStyleSettings().GetFieldTextColor();
     678           0 :             if (aColor != rDCEvt.GetOldSettings()->
     679           0 :                 GetStyleSettings().GetFieldTextColor())
     680             :             {
     681           0 :                 Font aFont(pEditEngine->GetFont());
     682           0 :                 aFont.SetColor(aColor);
     683           0 :                 pEditEngine->SetFont(aFont);
     684             :             }
     685             :         }
     686             :     }
     687           0 : }
     688             : 
     689           0 : void EditorWindow::Notify( SfxBroadcaster& /*rBC*/, const SfxHint& rHint )
     690             : {
     691           0 :     if (TextHint const* pTextHint = dynamic_cast<TextHint const*>(&rHint))
     692             :     {
     693           0 :         TextHint const& rTextHint = *pTextHint;
     694           0 :         if( rTextHint.GetId() == TEXT_HINT_VIEWSCROLLED )
     695             :         {
     696           0 :             if ( rModulWindow.GetHScrollBar() )
     697           0 :                 rModulWindow.GetHScrollBar()->SetThumbPos( pEditView->GetStartDocPos().X() );
     698           0 :             rModulWindow.GetEditVScrollBar().SetThumbPos( pEditView->GetStartDocPos().Y() );
     699           0 :             rModulWindow.GetBreakPointWindow().DoScroll
     700           0 :                 ( 0, rModulWindow.GetBreakPointWindow().GetCurYOffset() - pEditView->GetStartDocPos().Y() );
     701           0 :             rModulWindow.GetLineNumberWindow().DoScroll
     702           0 :                 ( 0, rModulWindow.GetLineNumberWindow().GetCurYOffset() - pEditView->GetStartDocPos().Y() );
     703             :         }
     704           0 :         else if( rTextHint.GetId() == TEXT_HINT_TEXTHEIGHTCHANGED )
     705             :         {
     706           0 :             if ( pEditView->GetStartDocPos().Y() )
     707             :             {
     708           0 :                 long nOutHeight = GetOutputSizePixel().Height();
     709           0 :                 long nTextHeight = pEditEngine->GetTextHeight();
     710           0 :                 if ( nTextHeight < nOutHeight )
     711           0 :                     pEditView->Scroll( 0, pEditView->GetStartDocPos().Y() );
     712             : 
     713           0 :                 rModulWindow.GetLineNumberWindow().Invalidate();
     714             :             }
     715             : 
     716           0 :             SetScrollBarRanges();
     717             :         }
     718           0 :         else if( rTextHint.GetId() == TEXT_HINT_TEXTFORMATTED )
     719             :         {
     720           0 :             if ( rModulWindow.GetHScrollBar() )
     721             :             {
     722           0 :                 sal_uLong nWidth = pEditEngine->CalcTextWidth();
     723           0 :                 if ( (long)nWidth != nCurTextWidth )
     724             :                 {
     725           0 :                     nCurTextWidth = nWidth;
     726           0 :                     rModulWindow.GetHScrollBar()->SetRange( Range( 0, (long)nCurTextWidth-1) );
     727           0 :                     rModulWindow.GetHScrollBar()->SetThumbPos( pEditView->GetStartDocPos().X() );
     728             :                 }
     729             :             }
     730           0 :             long nPrevTextWidth = nCurTextWidth;
     731           0 :             nCurTextWidth = pEditEngine->CalcTextWidth();
     732           0 :             if ( nCurTextWidth != nPrevTextWidth )
     733           0 :                 SetScrollBarRanges();
     734             :         }
     735           0 :         else if( rTextHint.GetId() == TEXT_HINT_PARAINSERTED )
     736             :         {
     737           0 :             ParagraphInsertedDeleted( rTextHint.GetValue(), true );
     738           0 :             DoDelayedSyntaxHighlight( rTextHint.GetValue() );
     739             :         }
     740           0 :         else if( rTextHint.GetId() == TEXT_HINT_PARAREMOVED )
     741             :         {
     742           0 :             ParagraphInsertedDeleted( rTextHint.GetValue(), false );
     743             :         }
     744           0 :         else if( rTextHint.GetId() == TEXT_HINT_PARACONTENTCHANGED )
     745             :         {
     746           0 :             DoDelayedSyntaxHighlight( rTextHint.GetValue() );
     747             :         }
     748             :     }
     749           0 : }
     750             : 
     751           0 : void EditorWindow::SetScrollBarRanges()
     752             : {
     753             :     // extra method, not InitScrollBars, because for EditEngine events too
     754           0 :     if ( !pEditEngine )
     755           0 :         return;
     756             : 
     757           0 :     if ( rModulWindow.GetHScrollBar() )
     758           0 :         rModulWindow.GetHScrollBar()->SetRange( Range( 0, nCurTextWidth-1 ) );
     759             : 
     760           0 :     rModulWindow.GetEditVScrollBar().SetRange( Range( 0, pEditEngine->GetTextHeight()-1 ) );
     761             : }
     762             : 
     763           0 : void EditorWindow::InitScrollBars()
     764             : {
     765           0 :     if ( !pEditEngine )
     766           0 :         return;
     767             : 
     768           0 :     SetScrollBarRanges();
     769           0 :     Size aOutSz( GetOutputSizePixel() );
     770           0 :     rModulWindow.GetEditVScrollBar().SetVisibleSize( aOutSz.Height() );
     771           0 :     rModulWindow.GetEditVScrollBar().SetPageSize( aOutSz.Height() * 8 / 10 );
     772           0 :     rModulWindow.GetEditVScrollBar().SetLineSize( GetTextHeight() );
     773           0 :     rModulWindow.GetEditVScrollBar().SetThumbPos( pEditView->GetStartDocPos().Y() );
     774           0 :     rModulWindow.GetEditVScrollBar().Show();
     775             : 
     776           0 :     if ( rModulWindow.GetHScrollBar() )
     777             :     {
     778           0 :         rModulWindow.GetHScrollBar()->SetVisibleSize( aOutSz.Width() );
     779           0 :         rModulWindow.GetHScrollBar()->SetPageSize( aOutSz.Width() * 8 / 10 );
     780           0 :         rModulWindow.GetHScrollBar()->SetLineSize( GetTextWidth( OUString('x') ) );
     781           0 :         rModulWindow.GetHScrollBar()->SetThumbPos( pEditView->GetStartDocPos().X() );
     782           0 :         rModulWindow.GetHScrollBar()->Show();
     783             :     }
     784             : }
     785             : 
     786           0 : void EditorWindow::ImpDoHighlight( sal_uLong nLine )
     787             : {
     788           0 :     if ( bDoSyntaxHighlight )
     789             :     {
     790           0 :         String aLine( pEditEngine->GetText( nLine ) );
     791           0 :         Range aChanges = aHighlighter.notifyChange( nLine, 0, &aLine, 1 );
     792           0 :         if ( aChanges.Len() )
     793             :         {
     794           0 :             for ( long n = aChanges.Min() + 1; n <= aChanges.Max(); n++ )
     795           0 :                 aSyntaxLineTable.insert( n );
     796           0 :             aSyntaxIdleTimer.Start();
     797             :         }
     798             : 
     799           0 :         bool const bWasModified = pEditEngine->IsModified();
     800           0 :         pEditEngine->RemoveAttribs( nLine, true );
     801           0 :         HighlightPortions aPortions;
     802           0 :         aHighlighter.getHighlightPortions( nLine, aLine, aPortions );
     803             : 
     804           0 :         for ( size_t i = 0; i < aPortions.size(); i++ )
     805             :         {
     806           0 :             HighlightPortion& r = aPortions[i];
     807           0 :             Color const aColor = rModulWindow.GetLayout().GetSyntaxColor(r.tokenType);
     808           0 :             pEditEngine->SetAttrib( TextAttribFontColor(aColor), nLine, r.nBegin, r.nEnd, true );
     809             :         }
     810             : 
     811           0 :         pEditEngine->SetModified( bWasModified );
     812             :     }
     813           0 : }
     814             : 
     815           0 : void EditorWindow::UpdateSyntaxHighlighting ()
     816             : {
     817           0 :     unsigned nCount = pEditEngine->GetParagraphCount();
     818           0 :     for (unsigned i = 0; i < nCount; ++i)
     819           0 :         DoDelayedSyntaxHighlight(i);
     820           0 : }
     821             : 
     822           0 : void EditorWindow::ImplSetFont()
     823             : {
     824             :     OUString sFontName(
     825             :         officecfg::Office::Common::Font::SourceViewFont::FontName::get().
     826           0 :         get_value_or( OUString() ) );
     827           0 :     if ( sFontName.isEmpty() )
     828             :     {
     829           0 :         Font aTmpFont( OutputDevice::GetDefaultFont( DEFAULTFONT_FIXED, Application::GetSettings().GetUILanguageTag().getLanguageType(), 0 , this ) );
     830           0 :         sFontName = aTmpFont.GetName();
     831             :     }
     832           0 :     Size aFontSize(0, officecfg::Office::Common::Font::SourceViewFont::FontHeight::get());
     833           0 :     Font aFont( sFontName, aFontSize );
     834           0 :     aFont.SetColor( GetSettings().GetStyleSettings().GetFieldTextColor() );
     835           0 :     SetPointFont( aFont );
     836           0 :     aFont = GetFont();
     837             : 
     838           0 :     rModulWindow.GetBreakPointWindow().SetFont( aFont );
     839           0 :     rModulWindow.GetLineNumberWindow().SetFont( aFont );
     840             : 
     841           0 :     if ( pEditEngine )
     842             :     {
     843           0 :         bool const bModified = pEditEngine->IsModified();
     844           0 :         pEditEngine->SetFont( aFont );
     845           0 :         pEditEngine->SetModified( bModified );
     846           0 :     }
     847           0 : }
     848             : 
     849           0 : void EditorWindow::DoSyntaxHighlight( sal_uLong nPara )
     850             : {
     851             :     // because of the DelayedSyntaxHighlight it's possible
     852             :     // that this line does not exist anymore!
     853           0 :     if ( nPara < pEditEngine->GetParagraphCount() )
     854             :     {
     855             :         // unfortunately I'm not sure that excactly this line does Modified() ...
     856           0 :         if ( pProgress )
     857           0 :             pProgress->StepProgress();
     858           0 :         ImpDoHighlight( nPara );
     859             :     }
     860           0 : }
     861             : 
     862           0 : void EditorWindow::DoDelayedSyntaxHighlight( sal_uLong nPara )
     863             : {
     864             :     // line is only added to 'Liste' (list), processed in TimerHdl
     865             :     // => don't manipulate breaks while EditEngine is formatting
     866           0 :     if ( pProgress )
     867           0 :         pProgress->StepProgress();
     868             : 
     869           0 :     if ( !bHighlightning && bDoSyntaxHighlight )
     870             :     {
     871           0 :         if ( bDelayHighlight )
     872             :         {
     873           0 :             aSyntaxLineTable.insert( nPara );
     874           0 :             aSyntaxIdleTimer.Start();
     875             :         }
     876             :         else
     877           0 :             DoSyntaxHighlight( nPara );
     878             :     }
     879           0 : }
     880             : 
     881           0 : IMPL_LINK_NOARG(EditorWindow, SyntaxTimerHdl)
     882             : {
     883             :     DBG_ASSERT( pEditView, "Noch keine View, aber Syntax-Highlight ?!" );
     884             : 
     885           0 :     bool const bWasModified = pEditEngine->IsModified();
     886             :     //pEditEngine->SetUpdateMode(false);
     887             : 
     888           0 :     bHighlightning = true;
     889           0 :     for ( SyntaxLineSet::const_iterator it = aSyntaxLineTable.begin();
     890           0 :           it != aSyntaxLineTable.end(); ++it )
     891             :     {
     892           0 :         sal_uInt16 nLine = *it;
     893           0 :         DoSyntaxHighlight( nLine );
     894             :     }
     895             : 
     896             :     // #i45572#
     897           0 :     if ( pEditView )
     898           0 :         pEditView->ShowCursor( false, true );
     899             : 
     900           0 :     pEditEngine->SetModified( bWasModified );
     901             : 
     902           0 :     aSyntaxLineTable.clear();
     903           0 :     bHighlightning = false;
     904             : 
     905           0 :     return 0;
     906             : }
     907             : 
     908           0 : void EditorWindow::ParagraphInsertedDeleted( sal_uLong nPara, bool bInserted )
     909             : {
     910           0 :     if ( pProgress )
     911           0 :         pProgress->StepProgress();
     912             : 
     913           0 :     if ( !bInserted && ( nPara == TEXT_PARA_ALL ) )
     914             :     {
     915           0 :         rModulWindow.GetBreakPoints().reset();
     916           0 :         rModulWindow.GetBreakPointWindow().Invalidate();
     917           0 :         rModulWindow.GetLineNumberWindow().Invalidate();
     918           0 :         aHighlighter.initialize( HIGHLIGHT_BASIC );
     919             :     }
     920             :     else
     921             :     {
     922           0 :         rModulWindow.GetBreakPoints().AdjustBreakPoints( (sal_uInt16)nPara+1, bInserted );
     923             : 
     924           0 :         long nLineHeight = GetTextHeight();
     925           0 :         Size aSz = rModulWindow.GetBreakPointWindow().GetOutputSize();
     926           0 :         Rectangle aInvRec( Point( 0, 0 ), aSz );
     927           0 :         long nY = nPara*nLineHeight - rModulWindow.GetBreakPointWindow().GetCurYOffset();
     928           0 :         aInvRec.Top() = nY;
     929           0 :         rModulWindow.GetBreakPointWindow().Invalidate( aInvRec );
     930             : 
     931           0 :         Size aLnSz(rModulWindow.GetLineNumberWindow().GetWidth(),
     932           0 :                    GetOutputSizePixel().Height() - 2 * DWBORDER);
     933           0 :         rModulWindow.GetLineNumberWindow().SetPosSizePixel(Point(DWBORDER + 19, DWBORDER), aLnSz);
     934           0 :         rModulWindow.GetLineNumberWindow().Invalidate();
     935             : 
     936           0 :         if ( bDoSyntaxHighlight )
     937             :         {
     938           0 :             String aDummy;
     939           0 :             aHighlighter.notifyChange( nPara, bInserted ? 1 : (-1), &aDummy, 1 );
     940             :         }
     941             :     }
     942           0 : }
     943             : 
     944           0 : void EditorWindow::CreateProgress( const String& rText, sal_uLong nRange )
     945             : {
     946             :     DBG_ASSERT( !pProgress, "ProgressInfo existiert schon" );
     947             :     pProgress.reset(new ProgressInfo(
     948           0 :         GetShell()->GetViewFrame()->GetObjectShell(),
     949             :         rText,
     950             :         nRange
     951           0 :     ));
     952           0 : }
     953             : 
     954           0 : void EditorWindow::DestroyProgress()
     955             : {
     956           0 :     pProgress.reset();
     957           0 : }
     958             : 
     959           0 : void EditorWindow::ForceSyntaxTimeout()
     960             : {
     961           0 :     aSyntaxIdleTimer.Stop();
     962           0 :     aSyntaxIdleTimer.GetTimeoutHdl().Call(&aSyntaxIdleTimer);
     963           0 : }
     964             : 
     965             : 
     966             : //
     967             : // BreakPointWindow
     968             : // ================
     969             : //
     970             : 
     971           0 : BreakPointWindow::BreakPointWindow (Window* pParent, ModulWindow* pModulWindow) :
     972             :     Window(pParent, WB_BORDER),
     973             :     rModulWindow(*pModulWindow),
     974             :     nCurYOffset(0), // memorize nCurYOffset and not take it from EditEngine
     975           0 :     nMarkerPos(NoMarker)
     976             : {
     977           0 :     setBackgroundColor(GetSettings().GetStyleSettings().GetFieldColor());
     978           0 :     SetHelpId(HID_BASICIDE_BREAKPOINTWINDOW);
     979           0 : }
     980             : 
     981           0 : BreakPointWindow::~BreakPointWindow()
     982             : {
     983           0 : }
     984             : 
     985             : 
     986             : 
     987           0 : void BreakPointWindow::Paint( const Rectangle& )
     988             : {
     989           0 :     if ( SyncYOffset() )
     990           0 :         return;
     991             : 
     992           0 :     Size const aOutSz = GetOutputSize();
     993           0 :     long const nLineHeight = GetTextHeight();
     994             : 
     995           0 :     Image const aBrk[2] = { GetImage(IMGID_BRKDISABLED), GetImage(IMGID_BRKENABLED) };
     996           0 :     Size const aBmpSz = PixelToLogic(aBrk[1].GetSizePixel());
     997             :     Point const aBmpOff(
     998           0 :         (aOutSz.Width() - aBmpSz.Width()) / 2,
     999           0 :         (nLineHeight - aBmpSz.Height()) / 2
    1000           0 :     );
    1001             : 
    1002           0 :     for (size_t i = 0, n = GetBreakPoints().size(); i < n; ++i)
    1003             :     {
    1004           0 :         BreakPoint& rBrk = *GetBreakPoints().at(i);
    1005           0 :         size_t const nLine = rBrk.nLine - 1;
    1006           0 :         size_t const nY = nLine*nLineHeight - nCurYOffset;
    1007           0 :         DrawImage(Point(0, nY) + aBmpOff, aBrk[rBrk.bEnabled]);
    1008             :     }
    1009           0 :     ShowMarker(true);
    1010             : }
    1011             : 
    1012             : 
    1013             : 
    1014           0 : void BreakPointWindow::DoScroll( long nHorzScroll, long nVertScroll )
    1015             : {
    1016           0 :     nCurYOffset -= nVertScroll;
    1017           0 :     Window::Scroll( nHorzScroll, nVertScroll );
    1018           0 : }
    1019             : 
    1020             : 
    1021             : 
    1022           0 : void BreakPointWindow::SetMarkerPos( sal_uInt16 nLine, bool bError )
    1023             : {
    1024           0 :     if ( SyncYOffset() )
    1025           0 :         Update();
    1026             : 
    1027           0 :     ShowMarker( false );
    1028           0 :     nMarkerPos = nLine;
    1029           0 :     bErrorMarker = bError;
    1030           0 :     ShowMarker( true );
    1031           0 : }
    1032             : 
    1033           0 : void BreakPointWindow::SetNoMarker ()
    1034             : {
    1035           0 :     SetMarkerPos(NoMarker);
    1036           0 : }
    1037             : 
    1038           0 : void BreakPointWindow::ShowMarker( bool bShow )
    1039             : {
    1040           0 :     if ( nMarkerPos == NoMarker )
    1041           0 :         return;
    1042             : 
    1043           0 :     Size const aOutSz = GetOutputSize();
    1044           0 :     long const nLineHeight = GetTextHeight();
    1045             : 
    1046           0 :     Image aMarker = GetImage(bErrorMarker ? IMGID_ERRORMARKER : IMGID_STEPMARKER);
    1047             : 
    1048           0 :     Size aMarkerSz( aMarker.GetSizePixel() );
    1049           0 :     aMarkerSz = PixelToLogic( aMarkerSz );
    1050           0 :     Point aMarkerOff( 0, 0 );
    1051           0 :     aMarkerOff.X() = ( aOutSz.Width() - aMarkerSz.Width() ) / 2;
    1052           0 :     aMarkerOff.Y() = ( nLineHeight - aMarkerSz.Height() ) / 2;
    1053             : 
    1054           0 :     sal_uLong nY = nMarkerPos*nLineHeight - nCurYOffset;
    1055           0 :     Point aPos( 0, nY );
    1056           0 :     aPos += aMarkerOff;
    1057           0 :     if ( bShow )
    1058           0 :         DrawImage( aPos, aMarker );
    1059             :     else
    1060           0 :         Invalidate( Rectangle( aPos, aMarkerSz ) );
    1061             : }
    1062             : 
    1063             : 
    1064             : 
    1065             : 
    1066           0 : BreakPoint* BreakPointWindow::FindBreakPoint( const Point& rMousePos )
    1067             : {
    1068           0 :     size_t nLineHeight = GetTextHeight();
    1069           0 :     size_t nYPos = rMousePos.Y() + nCurYOffset;
    1070             : 
    1071           0 :     for ( size_t i = 0, n = GetBreakPoints().size(); i < n ; ++i )
    1072             :     {
    1073           0 :         BreakPoint* pBrk = GetBreakPoints().at( i );
    1074           0 :         size_t nLine = pBrk->nLine-1;
    1075           0 :         size_t nY = nLine*nLineHeight;
    1076           0 :         if ( ( nYPos > nY ) && ( nYPos < ( nY + nLineHeight ) ) )
    1077           0 :             return pBrk;
    1078             :     }
    1079           0 :     return 0;
    1080             : }
    1081             : 
    1082           0 : void BreakPointWindow::MouseButtonDown( const MouseEvent& rMEvt )
    1083             : {
    1084           0 :     if ( rMEvt.GetClicks() == 2 )
    1085             :     {
    1086           0 :         Point aMousePos( PixelToLogic( rMEvt.GetPosPixel() ) );
    1087           0 :         long nLineHeight = GetTextHeight();
    1088           0 :         long nYPos = aMousePos.Y() + nCurYOffset;
    1089           0 :         long nLine = nYPos / nLineHeight + 1;
    1090           0 :         rModulWindow.ToggleBreakPoint( (sal_uLong)nLine );
    1091           0 :         Invalidate();
    1092             :     }
    1093           0 : }
    1094             : 
    1095             : 
    1096             : 
    1097           0 : void BreakPointWindow::Command( const CommandEvent& rCEvt )
    1098             : {
    1099           0 :     if ( rCEvt.GetCommand() == COMMAND_CONTEXTMENU )
    1100             :     {
    1101           0 :         Point aPos( rCEvt.IsMouseEvent() ? rCEvt.GetMousePosPixel() : Point(1,1) );
    1102           0 :         Point aEventPos( PixelToLogic( aPos ) );
    1103           0 :         BreakPoint* pBrk = rCEvt.IsMouseEvent() ? FindBreakPoint( aEventPos ) : 0;
    1104           0 :         if ( pBrk )
    1105             :         {
    1106             :             // test if break point is enabled...
    1107           0 :             PopupMenu aBrkPropMenu( IDEResId( RID_POPUP_BRKPROPS ) );
    1108           0 :             aBrkPropMenu.CheckItem( RID_ACTIV, pBrk->bEnabled );
    1109           0 :             switch ( aBrkPropMenu.Execute( this, aPos ) )
    1110             :             {
    1111             :                 case RID_ACTIV:
    1112             :                 {
    1113           0 :                     pBrk->bEnabled = !pBrk->bEnabled;
    1114           0 :                     rModulWindow.UpdateBreakPoint( *pBrk );
    1115           0 :                     Invalidate();
    1116             :                 }
    1117           0 :                 break;
    1118             :                 case RID_BRKPROPS:
    1119             :                 {
    1120           0 :                     BreakPointDialog aBrkDlg( this, GetBreakPoints() );
    1121           0 :                     aBrkDlg.SetCurrentBreakPoint( pBrk );
    1122           0 :                     aBrkDlg.Execute();
    1123           0 :                     Invalidate();
    1124             :                 }
    1125           0 :                 break;
    1126           0 :             }
    1127             :         }
    1128             :         else
    1129             :         {
    1130           0 :             PopupMenu aBrkListMenu( IDEResId( RID_POPUP_BRKDLG ) );
    1131           0 :             switch ( aBrkListMenu.Execute( this, aPos ) )
    1132             :             {
    1133             :                 case RID_BRKDLG:
    1134             :                 {
    1135           0 :                     BreakPointDialog aBrkDlg( this, GetBreakPoints() );
    1136           0 :                     aBrkDlg.Execute();
    1137           0 :                     Invalidate();
    1138             :                 }
    1139           0 :                 break;
    1140           0 :             }
    1141             :         }
    1142             :     }
    1143           0 : }
    1144             : 
    1145           0 : bool BreakPointWindow::SyncYOffset()
    1146             : {
    1147           0 :     TextView* pView = rModulWindow.GetEditView();
    1148           0 :     if ( pView )
    1149             :     {
    1150           0 :         long nViewYOffset = pView->GetStartDocPos().Y();
    1151           0 :         if ( nCurYOffset != nViewYOffset )
    1152             :         {
    1153           0 :             nCurYOffset = nViewYOffset;
    1154           0 :             Invalidate();
    1155           0 :             return true;
    1156             :         }
    1157             :     }
    1158           0 :     return false;
    1159             : }
    1160             : 
    1161             : // virtual
    1162           0 : void BreakPointWindow::DataChanged(DataChangedEvent const & rDCEvt)
    1163             : {
    1164           0 :     Window::DataChanged(rDCEvt);
    1165           0 :     if (rDCEvt.GetType() == DATACHANGED_SETTINGS
    1166           0 :         && (rDCEvt.GetFlags() & SETTINGS_STYLE) != 0)
    1167             :     {
    1168           0 :         Color aColor(GetSettings().GetStyleSettings().GetFieldColor());
    1169           0 :         if (aColor
    1170           0 :             != rDCEvt.GetOldSettings()->GetStyleSettings().GetFieldColor())
    1171             :         {
    1172           0 :             setBackgroundColor(aColor);
    1173           0 :             Invalidate();
    1174             :         }
    1175             :     }
    1176           0 : }
    1177             : 
    1178           0 : void BreakPointWindow::setBackgroundColor(Color aColor)
    1179             : {
    1180           0 :     SetBackground(Wallpaper(aColor));
    1181           0 : }
    1182             : 
    1183             : 
    1184             : //
    1185             : // WatchWindow
    1186             : // ===========
    1187             : //
    1188             : 
    1189             : namespace
    1190             : {
    1191             :     const sal_uInt16 ITEM_ID_VARIABLE = 1;
    1192             :     const sal_uInt16 ITEM_ID_VALUE = 2;
    1193             :     const sal_uInt16 ITEM_ID_TYPE = 3;
    1194             : }
    1195             : 
    1196           0 : WatchWindow::WatchWindow (Layout* pParent) :
    1197             :     DockingWindow(pParent),
    1198             :     aWatchStr( IDEResId( RID_STR_REMOVEWATCH ) ),
    1199             :     aXEdit( this, IDEResId( RID_EDT_WATCHEDIT ) ),
    1200             :     aRemoveWatchButton( this, IDEResId( RID_IMGBTN_REMOVEWATCH ) ),
    1201             :     aTreeListBox( this, WB_BORDER | WB_3DLOOK | WB_HASBUTTONS | WB_HASLINES | WB_HSCROLL | WB_TABSTOP
    1202             :                                   | WB_HASLINESATROOT | WB_HASBUTTONSATROOT ),
    1203           0 :     aHeaderBar( this, WB_BUTTONSTYLE | WB_BORDER )
    1204             : {
    1205           0 :     aXEdit.SetAccessibleName(String(IDEResId( RID_STR_WATCHNAME)));
    1206           0 :     aTreeListBox.SetAccessibleName(String(IDEResId(RID_STR_WATCHNAME)));
    1207             : 
    1208           0 :     long nTextLen = GetTextWidth( aWatchStr ) + DWBORDER + 3;
    1209           0 :     aXEdit.SetPosPixel( Point( nTextLen, 3 ) );
    1210           0 :     aXEdit.SetAccHdl( LINK( this, WatchWindow, EditAccHdl ) );
    1211           0 :     aXEdit.GetAccelerator().InsertItem( 1, KeyCode( KEY_RETURN ) );
    1212           0 :     aXEdit.GetAccelerator().InsertItem( 2, KeyCode( KEY_ESCAPE ) );
    1213           0 :     aXEdit.Show();
    1214             : 
    1215           0 :     aRemoveWatchButton.Disable();
    1216           0 :     aRemoveWatchButton.SetClickHdl( LINK( this, WatchWindow, ButtonHdl ) );
    1217           0 :     aRemoveWatchButton.SetPosPixel( Point( nTextLen + aXEdit.GetSizePixel().Width() + 4, 2 ) );
    1218           0 :     Size aSz( aRemoveWatchButton.GetModeImage().GetSizePixel() );
    1219           0 :     aSz.Width() += 6;
    1220           0 :     aSz.Height() += 6;
    1221           0 :     aRemoveWatchButton.SetSizePixel( aSz );
    1222           0 :     aRemoveWatchButton.Show();
    1223             : 
    1224           0 :     long nRWBtnSize = aRemoveWatchButton.GetModeImage().GetSizePixel().Height() + 10;
    1225           0 :     nVirtToolBoxHeight = aXEdit.GetSizePixel().Height() + 7;
    1226             : 
    1227           0 :     if ( nRWBtnSize > nVirtToolBoxHeight )
    1228           0 :         nVirtToolBoxHeight = nRWBtnSize;
    1229             : 
    1230           0 :     nHeaderBarHeight = 16;
    1231             : 
    1232           0 :     aTreeListBox.SetHelpId(HID_BASICIDE_WATCHWINDOW_LIST);
    1233           0 :     aTreeListBox.EnableInplaceEditing(true);
    1234           0 :     aTreeListBox.SetSelectHdl( LINK( this, WatchWindow, TreeListHdl ) );
    1235           0 :     aTreeListBox.SetPosPixel( Point( DWBORDER, nVirtToolBoxHeight + nHeaderBarHeight ) );
    1236           0 :     aTreeListBox.SetHighlightRange( 1, 5 );
    1237             : 
    1238           0 :     Point aPnt( DWBORDER, nVirtToolBoxHeight + 1 );
    1239           0 :     aHeaderBar.SetPosPixel( aPnt );
    1240           0 :     aHeaderBar.SetEndDragHdl( LINK( this, WatchWindow, implEndDragHdl ) );
    1241             : 
    1242           0 :     long nVarTabWidth = 220;
    1243           0 :     long nValueTabWidth = 100;
    1244           0 :     long nTypeTabWidth = 1250;
    1245           0 :     aHeaderBar.InsertItem( ITEM_ID_VARIABLE, String( IDEResId( RID_STR_WATCHVARIABLE ) ), nVarTabWidth );
    1246           0 :     aHeaderBar.InsertItem( ITEM_ID_VALUE, String( IDEResId( RID_STR_WATCHVALUE ) ), nValueTabWidth );
    1247           0 :     aHeaderBar.InsertItem( ITEM_ID_TYPE, String( IDEResId( RID_STR_WATCHTYPE ) ), nTypeTabWidth );
    1248             : 
    1249             :     long tabs[ 4 ];
    1250           0 :     tabs[ 0 ] = 3; // two tabs
    1251           0 :     tabs[ 1 ] = 0;
    1252           0 :     tabs[ 2 ] = nVarTabWidth;
    1253           0 :     tabs[ 3 ] = nVarTabWidth + nValueTabWidth;
    1254           0 :     aTreeListBox.SvHeaderTabListBox::SetTabs( tabs, MAP_PIXEL );
    1255           0 :     aTreeListBox.InitHeaderBar( &aHeaderBar );
    1256             : 
    1257           0 :     aTreeListBox.SetNodeDefaultImages( );
    1258             : 
    1259           0 :     aHeaderBar.Show();
    1260             : 
    1261           0 :     aTreeListBox.Show();
    1262             : 
    1263           0 :     SetText( String( IDEResId( RID_STR_WATCHNAME ) ) );
    1264             : 
    1265           0 :     SetHelpId( HID_BASICIDE_WATCHWINDOW );
    1266             : 
    1267             :     // make watch window keyboard accessible
    1268           0 :     GetSystemWindow()->GetTaskPaneList()->AddWindow( this );
    1269           0 : }
    1270             : 
    1271             : 
    1272             : 
    1273           0 : WatchWindow::~WatchWindow()
    1274             : {
    1275           0 :     GetSystemWindow()->GetTaskPaneList()->RemoveWindow( this );
    1276           0 : }
    1277             : 
    1278             : 
    1279             : 
    1280           0 : void WatchWindow::Paint( const Rectangle& )
    1281             : {
    1282           0 :     DrawText( Point( DWBORDER, 7 ), aWatchStr );
    1283           0 :     lcl_DrawIDEWindowFrame( this );
    1284           0 : }
    1285             : 
    1286             : 
    1287             : 
    1288           0 : void WatchWindow::Resize()
    1289             : {
    1290           0 :     Size aSz = GetOutputSizePixel();
    1291           0 :     Size aBoxSz( aSz.Width() - 2*DWBORDER, aSz.Height() - nVirtToolBoxHeight - DWBORDER );
    1292             : 
    1293           0 :     if ( aBoxSz.Width() < 4 )
    1294           0 :         aBoxSz.Width() = 0;
    1295           0 :     if ( aBoxSz.Height() < 4 )
    1296           0 :         aBoxSz.Height() = 0;
    1297             : 
    1298           0 :     aBoxSz.Height() -= nHeaderBarHeight;
    1299           0 :     aTreeListBox.SetSizePixel( aBoxSz );
    1300           0 :     aTreeListBox.GetHScroll()->SetPageSize( aTreeListBox.GetHScroll()->GetVisibleSize() );
    1301             : 
    1302           0 :     aBoxSz.Height() = nHeaderBarHeight;
    1303           0 :     aHeaderBar.SetSizePixel( aBoxSz );
    1304             : 
    1305           0 :     Invalidate();
    1306           0 : }
    1307             : 
    1308           0 : struct WatchItem
    1309             : {
    1310             :     String          maName;
    1311             :     String          maDisplayName;
    1312             :     SbxObjectRef    mpObject;
    1313             :     std::vector<String> maMemberList;
    1314             : 
    1315             :     SbxDimArrayRef  mpArray;
    1316             :     int             nDimLevel;  // 0 = Root
    1317             :     int             nDimCount;
    1318             :     std::vector<short> vIndices;
    1319             : 
    1320             :     WatchItem*      mpArrayParentItem;
    1321             : 
    1322           0 :     WatchItem (String const& rName):
    1323             :         maName(rName),
    1324             :         nDimLevel(0),
    1325             :         nDimCount(0),
    1326           0 :         mpArrayParentItem(0)
    1327           0 :     { }
    1328             : 
    1329           0 :     void clearWatchItem ()
    1330             :     {
    1331           0 :         maMemberList.clear();
    1332           0 :     }
    1333             : 
    1334             :     WatchItem* GetRootItem( void );
    1335             :     SbxDimArray* GetRootArray( void );
    1336             : };
    1337             : 
    1338           0 : WatchItem* WatchItem::GetRootItem( void )
    1339             : {
    1340           0 :     WatchItem* pItem = mpArrayParentItem;
    1341           0 :     while( pItem )
    1342             :     {
    1343           0 :         if( pItem->mpArray.Is() )
    1344           0 :             break;
    1345           0 :         pItem = pItem->mpArrayParentItem;
    1346             :     }
    1347           0 :     return pItem;
    1348             : }
    1349             : 
    1350           0 : SbxDimArray* WatchItem::GetRootArray( void )
    1351             : {
    1352           0 :     WatchItem* pRootItem = GetRootItem();
    1353           0 :     SbxDimArray* pRet = NULL;
    1354           0 :     if( pRootItem )
    1355           0 :         pRet = pRootItem->mpArray;
    1356           0 :     return pRet;
    1357             : }
    1358             : 
    1359           0 : void WatchWindow::AddWatch( const String& rVName )
    1360             : {
    1361           0 :     String aVar, aIndex;
    1362           0 :     lcl_SeparateNameAndIndex( rVName, aVar, aIndex );
    1363           0 :     WatchItem* pWatchItem = new WatchItem(aVar);
    1364             : 
    1365           0 :     OUString aWatchStr_( aVar );
    1366           0 :     aWatchStr_ += OUString( "\t\t" );
    1367           0 :     SvTreeListEntry* pNewEntry = aTreeListBox.InsertEntry( aWatchStr_, 0, true, LIST_APPEND );
    1368           0 :     pNewEntry->SetUserData( pWatchItem );
    1369             : 
    1370           0 :     aTreeListBox.Select(pNewEntry, true);
    1371           0 :     aTreeListBox.MakeVisible(pNewEntry);
    1372           0 :     aRemoveWatchButton.Enable();
    1373             : 
    1374           0 :     UpdateWatches();
    1375           0 : }
    1376             : 
    1377           0 : bool WatchWindow::RemoveSelectedWatch()
    1378             : {
    1379           0 :     SvTreeListEntry* pEntry = aTreeListBox.GetCurEntry();
    1380           0 :     if ( pEntry )
    1381             :     {
    1382           0 :         aTreeListBox.GetModel()->Remove( pEntry );
    1383           0 :         pEntry = aTreeListBox.GetCurEntry();
    1384           0 :         if ( pEntry )
    1385           0 :             aXEdit.SetText( ((WatchItem*)pEntry->GetUserData())->maName );
    1386             :         else
    1387           0 :             aXEdit.SetText( String() );
    1388           0 :         if ( !aTreeListBox.GetEntryCount() )
    1389           0 :             aRemoveWatchButton.Disable();
    1390           0 :         return true;
    1391             :     }
    1392             :     else
    1393           0 :         return false;
    1394             : }
    1395             : 
    1396             : 
    1397           0 : IMPL_LINK_INLINE_START( WatchWindow, ButtonHdl, ImageButton *, pButton )
    1398             : {
    1399           0 :     if (pButton == &aRemoveWatchButton)
    1400           0 :         if (SfxDispatcher* pDispatcher = GetDispatcher())
    1401           0 :             pDispatcher->Execute(SID_BASICIDE_REMOVEWATCH);
    1402           0 :     return 0;
    1403             : }
    1404           0 : IMPL_LINK_INLINE_END( WatchWindow, ButtonHdl, ImageButton *, pButton )
    1405             : 
    1406             : 
    1407             : 
    1408           0 : IMPL_LINK_NOARG_INLINE_START(WatchWindow, TreeListHdl)
    1409             : {
    1410           0 :     SvTreeListEntry* pCurEntry = aTreeListBox.GetCurEntry();
    1411           0 :     if ( pCurEntry && pCurEntry->GetUserData() )
    1412           0 :         aXEdit.SetText( ((WatchItem*)pCurEntry->GetUserData())->maName );
    1413             : 
    1414           0 :     return 0;
    1415             : }
    1416           0 : IMPL_LINK_NOARG_INLINE_END(WatchWindow, TreeListHdl)
    1417             : 
    1418             : 
    1419           0 : IMPL_LINK_INLINE_START( WatchWindow, implEndDragHdl, HeaderBar *, pBar )
    1420             : {
    1421             :     (void)pBar;
    1422             : 
    1423           0 :     const sal_Int32 TAB_WIDTH_MIN = 10;
    1424             :     sal_Int32 nMaxWidth =
    1425           0 :         aHeaderBar.GetSizePixel().getWidth() - 2 * TAB_WIDTH_MIN;
    1426             : 
    1427           0 :     sal_Int32 nVariableWith = aHeaderBar.GetItemSize( ITEM_ID_VARIABLE );
    1428           0 :     if( nVariableWith < TAB_WIDTH_MIN )
    1429           0 :         aHeaderBar.SetItemSize( ITEM_ID_VARIABLE, TAB_WIDTH_MIN );
    1430           0 :     else if( nVariableWith > nMaxWidth )
    1431           0 :         aHeaderBar.SetItemSize( ITEM_ID_VARIABLE, nMaxWidth );
    1432             : 
    1433           0 :     sal_Int32 nValueWith = aHeaderBar.GetItemSize( ITEM_ID_VALUE );
    1434           0 :     if( nValueWith < TAB_WIDTH_MIN )
    1435           0 :         aHeaderBar.SetItemSize( ITEM_ID_VALUE, TAB_WIDTH_MIN );
    1436           0 :     else if( nValueWith > nMaxWidth )
    1437           0 :         aHeaderBar.SetItemSize( ITEM_ID_VALUE, nMaxWidth );
    1438             : 
    1439           0 :     if (aHeaderBar.GetItemSize( ITEM_ID_TYPE ) < TAB_WIDTH_MIN)
    1440           0 :         aHeaderBar.SetItemSize( ITEM_ID_TYPE, TAB_WIDTH_MIN );
    1441             : 
    1442           0 :     sal_Int32 nPos = 0;
    1443           0 :     sal_uInt16 nTabs = aHeaderBar.GetItemCount();
    1444           0 :     for( sal_uInt16 i = 1 ; i < nTabs ; ++i )
    1445             :     {
    1446           0 :         nPos += aHeaderBar.GetItemSize( i );
    1447           0 :         aTreeListBox.SetTab( i, nPos, MAP_PIXEL );
    1448             :     }
    1449           0 :     return 0;
    1450             : }
    1451           0 : IMPL_LINK_INLINE_END( WatchWindow, implEndDragHdl, HeaderBar *, pBar )
    1452             : 
    1453             : 
    1454           0 : IMPL_LINK( WatchWindow, EditAccHdl, Accelerator *, pAcc )
    1455             : {
    1456           0 :     switch ( pAcc->GetCurKeyCode().GetCode() )
    1457             :     {
    1458             :         case KEY_RETURN:
    1459             :         {
    1460           0 :             String aCurText( aXEdit.GetText() );
    1461           0 :             if ( aCurText.Len() )
    1462             :             {
    1463           0 :                 AddWatch( aCurText );
    1464           0 :                 aXEdit.SetSelection( Selection( 0, 0xFFFF ) );
    1465           0 :             }
    1466             :         }
    1467           0 :         break;
    1468             :         case KEY_ESCAPE:
    1469             :         {
    1470           0 :             aXEdit.SetText( String() );
    1471             :         }
    1472           0 :         break;
    1473             :     }
    1474             : 
    1475           0 :     return 0;
    1476             : }
    1477             : 
    1478           0 : void WatchWindow::UpdateWatches( bool bBasicStopped )
    1479             : {
    1480           0 :     aTreeListBox.UpdateWatches( bBasicStopped );
    1481           0 : }
    1482             : 
    1483             : 
    1484             : //
    1485             : // StackWindow
    1486             : // ===========
    1487             : //
    1488             : 
    1489           0 : StackWindow::StackWindow (Layout* pParent) :
    1490             :     DockingWindow(pParent),
    1491             :     aTreeListBox( this, WB_BORDER | WB_3DLOOK | WB_HSCROLL | WB_TABSTOP ),
    1492           0 :     aStackStr( IDEResId( RID_STR_STACK ) )
    1493             : {
    1494           0 :     aTreeListBox.SetHelpId(HID_BASICIDE_STACKWINDOW_LIST);
    1495           0 :     aTreeListBox.SetAccessibleName(String( IDEResId(RID_STR_STACKNAME)));
    1496           0 :     aTreeListBox.SetPosPixel( Point( DWBORDER, nVirtToolBoxHeight ) );
    1497           0 :     aTreeListBox.SetHighlightRange();
    1498           0 :     aTreeListBox.SetSelectionMode( NO_SELECTION );
    1499           0 :     aTreeListBox.InsertEntry( String(), 0, false, LIST_APPEND );
    1500           0 :     aTreeListBox.Show();
    1501             : 
    1502           0 :     SetText( String( IDEResId( RID_STR_STACKNAME ) ) );
    1503             : 
    1504           0 :     SetHelpId( HID_BASICIDE_STACKWINDOW );
    1505             : 
    1506             :     // make stack window keyboard accessible
    1507           0 :     GetSystemWindow()->GetTaskPaneList()->AddWindow( this );
    1508           0 : }
    1509             : 
    1510             : 
    1511             : 
    1512           0 : StackWindow::~StackWindow()
    1513             : {
    1514           0 :     GetSystemWindow()->GetTaskPaneList()->RemoveWindow( this );
    1515           0 : }
    1516             : 
    1517             : 
    1518             : 
    1519           0 : void StackWindow::Paint( const Rectangle& )
    1520             : {
    1521           0 :     DrawText( Point( DWBORDER, 7 ), aStackStr );
    1522           0 :     lcl_DrawIDEWindowFrame( this );
    1523           0 : }
    1524             : 
    1525             : 
    1526             : 
    1527           0 : void StackWindow::Resize()
    1528             : {
    1529           0 :     Size aSz = GetOutputSizePixel();
    1530           0 :     Size aBoxSz( aSz.Width() - 2*DWBORDER, aSz.Height() - nVirtToolBoxHeight - DWBORDER );
    1531             : 
    1532           0 :     if ( aBoxSz.Width() < 4 )
    1533           0 :         aBoxSz.Width() = 0;
    1534           0 :     if ( aBoxSz.Height() < 4 )
    1535           0 :         aBoxSz.Height() = 0;
    1536             : 
    1537           0 :     aTreeListBox.SetSizePixel( aBoxSz );
    1538             : 
    1539           0 :     Invalidate();
    1540           0 : }
    1541             : 
    1542           0 : void StackWindow::UpdateCalls()
    1543             : {
    1544           0 :     aTreeListBox.SetUpdateMode(false);
    1545           0 :     aTreeListBox.Clear();
    1546             : 
    1547           0 :     if ( StarBASIC::IsRunning() )
    1548             :     {
    1549           0 :         SbxError eOld = SbxBase::GetError();
    1550           0 :         aTreeListBox.SetSelectionMode( SINGLE_SELECTION );
    1551             : 
    1552           0 :         sal_uInt16 nScope = 0;
    1553           0 :         SbMethod* pMethod = StarBASIC::GetActiveMethod( nScope );
    1554           0 :         while ( pMethod )
    1555             :         {
    1556           0 :             String aEntry( String::CreateFromInt32(nScope ));
    1557           0 :             if ( aEntry.Len() < 2 )
    1558           0 :                 aEntry.Insert( ' ', 0 );
    1559           0 :             aEntry += OUString( ": " );
    1560           0 :             aEntry += pMethod->GetName();
    1561           0 :             SbxArray* pParams = pMethod->GetParameters();
    1562           0 :             SbxInfo* pInfo = pMethod->GetInfo();
    1563           0 :             if ( pParams )
    1564             :             {
    1565           0 :                 aEntry += '(';
    1566             :                 // 0 is the sub's name...
    1567           0 :                 for ( sal_uInt16 nParam = 1; nParam < pParams->Count(); nParam++ )
    1568             :                 {
    1569           0 :                     SbxVariable* pVar = pParams->Get( nParam );
    1570             :                     DBG_ASSERT( pVar, "Parameter?!" );
    1571           0 :                     if ( !pVar->GetName().isEmpty() )
    1572             :                     {
    1573           0 :                         aEntry += pVar->GetName();
    1574             :                     }
    1575           0 :                     else if ( pInfo )
    1576             :                     {
    1577           0 :                         const SbxParamInfo* pParam = pInfo->GetParam( nParam );
    1578           0 :                         if ( pParam )
    1579             :                         {
    1580           0 :                             aEntry += pParam->aName;
    1581             :                         }
    1582             :                     }
    1583           0 :                     aEntry += '=';
    1584           0 :                     SbxDataType eType = pVar->GetType();
    1585           0 :                     if( eType & SbxARRAY )
    1586             :                     {
    1587           0 :                         aEntry += OUString( "..." );
    1588             :                     }
    1589           0 :                     else if( eType != SbxOBJECT )
    1590             :                     {
    1591           0 :                         aEntry += pVar->GetOUString();
    1592             :                     }
    1593           0 :                     if ( nParam < ( pParams->Count() - 1 ) )
    1594             :                     {
    1595           0 :                         aEntry += OUString( ", " );
    1596             :                     }
    1597             :                 }
    1598           0 :                 aEntry += ')';
    1599             :             }
    1600           0 :             aTreeListBox.InsertEntry( aEntry, 0, false, LIST_APPEND );
    1601           0 :             nScope++;
    1602           0 :             pMethod = StarBASIC::GetActiveMethod( nScope );
    1603           0 :         }
    1604             : 
    1605           0 :         SbxBase::ResetError();
    1606           0 :         if( eOld != SbxERR_OK )
    1607           0 :             SbxBase::SetError( eOld );
    1608             :     }
    1609             :     else
    1610             :     {
    1611           0 :         aTreeListBox.SetSelectionMode( NO_SELECTION );
    1612           0 :         aTreeListBox.InsertEntry( String(), 0, false, LIST_APPEND );
    1613             :     }
    1614             : 
    1615           0 :     aTreeListBox.SetUpdateMode(true);
    1616           0 : }
    1617             : 
    1618             : 
    1619             : //
    1620             : // ComplexEditorWindow
    1621             : // ===================
    1622             : //
    1623             : 
    1624           0 : ComplexEditorWindow::ComplexEditorWindow( ModulWindow* pParent ) :
    1625             :     Window( pParent, WB_3DLOOK | WB_CLIPCHILDREN ),
    1626             :     aBrkWindow(this, pParent),
    1627             :     aLineNumberWindow(this, pParent),
    1628             :     aEdtWindow(this, pParent),
    1629           0 :     aEWVScrollBar( this, WB_VSCROLL | WB_DRAG )
    1630             : {
    1631           0 :     aEdtWindow.Show();
    1632           0 :     aBrkWindow.Show();
    1633             : 
    1634           0 :     aEWVScrollBar.SetLineSize(nScrollLine);
    1635           0 :     aEWVScrollBar.SetPageSize(nScrollPage);
    1636           0 :     aEWVScrollBar.SetScrollHdl( LINK( this, ComplexEditorWindow, ScrollHdl ) );
    1637           0 :     aEWVScrollBar.Show();
    1638           0 : }
    1639             : 
    1640           0 : void ComplexEditorWindow::Resize()
    1641             : {
    1642           0 :     Size aOutSz = GetOutputSizePixel();
    1643           0 :     Size aSz( aOutSz );
    1644           0 :     aSz.Width() -= 2*DWBORDER;
    1645           0 :     aSz.Height() -= 2*DWBORDER;
    1646           0 :     long nBrkWidth = 20;
    1647           0 :     long nSBWidth = aEWVScrollBar.GetSizePixel().Width();
    1648             : 
    1649           0 :     Size aBrkSz(nBrkWidth, aSz.Height());
    1650             : 
    1651           0 :     Size aLnSz(aLineNumberWindow.GetWidth(), aSz.Height());
    1652             : 
    1653           0 :     if (aLineNumberWindow.IsVisible())
    1654             :     {
    1655           0 :         aBrkWindow.SetPosSizePixel( Point( DWBORDER, DWBORDER ), aBrkSz );
    1656           0 :         aLineNumberWindow.SetPosSizePixel(Point(DWBORDER + aBrkSz.Width() - 1, DWBORDER), aLnSz);
    1657           0 :         Size aEWSz(aSz.Width() - nBrkWidth - aLineNumberWindow.GetWidth() - nSBWidth + 2, aSz.Height());
    1658           0 :         aEdtWindow.SetPosSizePixel( Point( DWBORDER + aBrkSz.Width() + aLnSz.Width() - 1, DWBORDER ), aEWSz );
    1659             :     }
    1660             :     else
    1661             :     {
    1662           0 :         aBrkWindow.SetPosSizePixel( Point( DWBORDER, DWBORDER ), aBrkSz );
    1663           0 :         Size aEWSz(aSz.Width() - nBrkWidth - nSBWidth + 2, aSz.Height());
    1664           0 :         aEdtWindow.SetPosSizePixel(Point(DWBORDER + aBrkSz.Width() - 1, DWBORDER), aEWSz);
    1665             :     }
    1666             : 
    1667           0 :     aEWVScrollBar.SetPosSizePixel( Point( aOutSz.Width() - DWBORDER - nSBWidth, DWBORDER ), Size( nSBWidth, aSz.Height() ) );
    1668           0 : }
    1669             : 
    1670           0 : IMPL_LINK( ComplexEditorWindow, ScrollHdl, ScrollBar *, pCurScrollBar )
    1671             : {
    1672           0 :     if ( aEdtWindow.GetEditView() )
    1673             :     {
    1674             :         DBG_ASSERT( pCurScrollBar == &aEWVScrollBar, "Wer scrollt hier ?" );
    1675           0 :         long nDiff = aEdtWindow.GetEditView()->GetStartDocPos().Y() - pCurScrollBar->GetThumbPos();
    1676           0 :         aEdtWindow.GetEditView()->Scroll( 0, nDiff );
    1677           0 :         aBrkWindow.DoScroll( 0, nDiff );
    1678           0 :         aLineNumberWindow.DoScroll(0, nDiff);
    1679           0 :         aEdtWindow.GetEditView()->ShowCursor(false, true);
    1680           0 :         pCurScrollBar->SetThumbPos( aEdtWindow.GetEditView()->GetStartDocPos().Y() );
    1681             :     }
    1682             : 
    1683           0 :     return 0;
    1684             : }
    1685             : 
    1686           0 : void ComplexEditorWindow::DataChanged(DataChangedEvent const & rDCEvt)
    1687             : {
    1688           0 :     Window::DataChanged(rDCEvt);
    1689           0 :     if (rDCEvt.GetType() == DATACHANGED_SETTINGS
    1690           0 :         && (rDCEvt.GetFlags() & SETTINGS_STYLE) != 0)
    1691             :     {
    1692           0 :         Color aColor(GetSettings().GetStyleSettings().GetFaceColor());
    1693           0 :         if (aColor
    1694           0 :             != rDCEvt.GetOldSettings()->GetStyleSettings().GetFaceColor())
    1695             :         {
    1696           0 :             SetBackground(Wallpaper(aColor));
    1697           0 :             Invalidate();
    1698             :         }
    1699             :     }
    1700           0 : }
    1701             : 
    1702           0 : void ComplexEditorWindow::SetLineNumberDisplay(bool b)
    1703             : {
    1704           0 :     aLineNumberWindow.Show(b);
    1705           0 :     Resize();
    1706           0 : }
    1707             : 
    1708             : uno::Reference< awt::XWindowPeer >
    1709           0 : EditorWindow::GetComponentInterface(sal_Bool bCreate)
    1710             : {
    1711             :     uno::Reference< awt::XWindowPeer > xPeer(
    1712           0 :         Window::GetComponentInterface(false));
    1713           0 :     if (!xPeer.is() && bCreate)
    1714             :     {
    1715             :         // Make sure edit engine and view are available:
    1716           0 :         if (!pEditEngine)
    1717           0 :             CreateEditEngine();
    1718             : 
    1719           0 :         xPeer = new ::svt::TextWindowPeer(*GetEditView());
    1720           0 :         SetComponentInterface(xPeer);
    1721             :     }
    1722           0 :     return xPeer;
    1723             : }
    1724             : 
    1725             : 
    1726             : //
    1727             : // WatchTreeListBox
    1728             : // ================
    1729             : //
    1730             : 
    1731           0 : WatchTreeListBox::WatchTreeListBox( Window* pParent, WinBits nWinBits )
    1732           0 :     : SvHeaderTabListBox( pParent, nWinBits )
    1733           0 : {}
    1734             : 
    1735           0 : WatchTreeListBox::~WatchTreeListBox()
    1736             : {
    1737             :     // Destroy user data
    1738           0 :     SvTreeListEntry* pEntry = First();
    1739           0 :     while ( pEntry )
    1740             :     {
    1741           0 :         delete (WatchItem*)pEntry->GetUserData();
    1742           0 :         pEntry = Next( pEntry );
    1743             :     }
    1744           0 : }
    1745             : 
    1746           0 : void WatchTreeListBox::SetTabs()
    1747             : {
    1748           0 :     SvHeaderTabListBox::SetTabs();
    1749           0 :     sal_uInt16 nTabCount_ = aTabs.size();
    1750           0 :     for( sal_uInt16 i = 0 ; i < nTabCount_ ; i++ )
    1751             :     {
    1752           0 :         SvLBoxTab* pTab = aTabs[i];
    1753           0 :         if( i == 2 )
    1754           0 :             pTab->nFlags |= SV_LBOXTAB_EDITABLE;
    1755             :         else
    1756           0 :             pTab->nFlags &= ~SV_LBOXTAB_EDITABLE;
    1757             :     }
    1758           0 : }
    1759             : 
    1760           0 : void WatchTreeListBox::RequestingChildren( SvTreeListEntry * pParent )
    1761             : {
    1762           0 :     if( !StarBASIC::IsRunning() )
    1763           0 :         return;
    1764             : 
    1765           0 :     if( GetChildCount( pParent ) > 0 )
    1766           0 :         return;
    1767             : 
    1768           0 :     SvTreeListEntry* pEntry = pParent;
    1769           0 :     WatchItem* pItem = (WatchItem*)pEntry->GetUserData();
    1770             : 
    1771           0 :     SbxDimArray* pArray = pItem->mpArray;
    1772           0 :     SbxDimArray* pRootArray = pItem->GetRootArray();
    1773           0 :     bool bArrayIsRootArray = false;
    1774           0 :     if( !pArray && pRootArray )
    1775             :     {
    1776           0 :         pArray = pRootArray;
    1777           0 :         bArrayIsRootArray = true;
    1778             :     }
    1779             : 
    1780           0 :     SbxObject* pObj = pItem->mpObject;
    1781           0 :     if( pObj )
    1782             :     {
    1783           0 :         createAllObjectProperties( pObj );
    1784           0 :         SbxArray* pProps = pObj->GetProperties();
    1785           0 :         sal_uInt16 nPropCount = pProps->Count();
    1786           0 :         pItem->maMemberList.reserve(nPropCount);
    1787             : 
    1788           0 :         for( sal_uInt16 i = 0 ; i < nPropCount - 3 ; i++ )
    1789             :         {
    1790           0 :             SbxVariable* pVar = pProps->Get( i );
    1791             : 
    1792           0 :             pItem->maMemberList.push_back(String(pVar->GetName()));
    1793           0 :             String const& rName = pItem->maMemberList.back();
    1794           0 :             SvTreeListEntry* pChildEntry = SvTreeListBox::InsertEntry( rName, pEntry );
    1795           0 :             pChildEntry->SetUserData(new WatchItem(rName));
    1796             :         }
    1797           0 :         if( nPropCount > 0 )
    1798             :         {
    1799           0 :             UpdateWatches();
    1800             :         }
    1801             :     }
    1802           0 :     else if( pArray )
    1803             :     {
    1804           0 :         sal_uInt16 nElementCount = 0;
    1805             : 
    1806             :         // Loop through indices of current level
    1807           0 :         int nParentLevel = bArrayIsRootArray ? pItem->nDimLevel : 0;
    1808           0 :         int nThisLevel = nParentLevel + 1;
    1809             :         sal_Int32 nMin, nMax;
    1810           0 :         pArray->GetDim32( nThisLevel, nMin, nMax );
    1811           0 :         for( sal_Int32 i = nMin ; i <= nMax ; i++ )
    1812             :         {
    1813           0 :             WatchItem* pChildItem = new WatchItem(pItem->maName);
    1814             : 
    1815             :             // Copy data and create name
    1816             : 
    1817           0 :             String aIndexStr = OUString( "(" );
    1818           0 :             pChildItem->mpArrayParentItem = pItem;
    1819           0 :             pChildItem->nDimLevel = nThisLevel;
    1820           0 :             pChildItem->nDimCount = pItem->nDimCount;
    1821           0 :             pChildItem->vIndices.resize(pChildItem->nDimCount);
    1822             :             sal_uInt16 j;
    1823           0 :             for( j = 0 ; j < nParentLevel ; j++ )
    1824             :             {
    1825           0 :                 short n = pChildItem->vIndices[j] = pItem->vIndices[j];
    1826           0 :                 aIndexStr += String::CreateFromInt32( n );
    1827           0 :                 aIndexStr += OUString( "," );
    1828             :             }
    1829           0 :             pChildItem->vIndices[nParentLevel] = sal::static_int_cast<short>( i );
    1830           0 :             aIndexStr += String::CreateFromInt32( i );
    1831           0 :             aIndexStr += OUString( ")" );
    1832             : 
    1833           0 :             String aDisplayName;
    1834           0 :             WatchItem* pArrayRootItem = pChildItem->GetRootItem();
    1835           0 :             if( pArrayRootItem && pArrayRootItem->mpArrayParentItem )
    1836           0 :                 aDisplayName = pItem->maDisplayName;
    1837             :             else
    1838           0 :                 aDisplayName = pItem->maName;
    1839           0 :             aDisplayName += aIndexStr;
    1840           0 :             pChildItem->maDisplayName = aDisplayName;
    1841             : 
    1842           0 :             SvTreeListEntry* pChildEntry = SvTreeListBox::InsertEntry( aDisplayName, pEntry );
    1843           0 :             nElementCount++;
    1844           0 :             pChildEntry->SetUserData( pChildItem );
    1845           0 :         }
    1846           0 :         if( nElementCount > 0 )
    1847             :         {
    1848           0 :             UpdateWatches();
    1849             :         }
    1850             :     }
    1851             : }
    1852             : 
    1853           0 : SbxBase* WatchTreeListBox::ImplGetSBXForEntry( SvTreeListEntry* pEntry, bool& rbArrayElement )
    1854             : {
    1855           0 :     SbxBase* pSBX = NULL;
    1856           0 :     rbArrayElement = false;
    1857             : 
    1858           0 :     WatchItem* pItem = (WatchItem*)pEntry->GetUserData();
    1859           0 :     String aVName( pItem->maName );
    1860             : 
    1861           0 :     SvTreeListEntry* pParentEntry = GetParent( pEntry );
    1862           0 :     WatchItem* pParentItem = pParentEntry ? (WatchItem*)pParentEntry->GetUserData() : NULL;
    1863           0 :     if( pParentItem )
    1864             :     {
    1865           0 :         SbxObject* pObj = pParentItem->mpObject;
    1866             :         SbxDimArray* pArray;
    1867           0 :         if( pObj )
    1868             :         {
    1869           0 :             pSBX = pObj->Find( aVName, SbxCLASS_DONTCARE );
    1870           0 :             if (SbxVariable const* pVar = IsSbxVariable(pSBX))
    1871             :             {
    1872             :                 // Force getting value
    1873           0 :                 SbxValues aRes;
    1874           0 :                 aRes.eType = SbxVOID;
    1875           0 :                 pVar->Get( aRes );
    1876             :             }
    1877             :         }
    1878             :         // Array?
    1879           0 :         else if( (pArray = pItem->GetRootArray()) != NULL )
    1880             :         {
    1881           0 :             rbArrayElement = true;
    1882           0 :             if( pParentItem->nDimLevel + 1 == pParentItem->nDimCount )
    1883           0 :                 pSBX = pArray->Get(pItem->vIndices.empty() ? 0 : &*pItem->vIndices.begin());
    1884             :         }
    1885             :     }
    1886             :     else
    1887             :     {
    1888           0 :         pSBX = StarBASIC::FindSBXInCurrentScope( aVName );
    1889             :     }
    1890           0 :     return pSBX;
    1891             : }
    1892             : 
    1893           0 : sal_Bool WatchTreeListBox::EditingEntry( SvTreeListEntry* pEntry, Selection& )
    1894             : {
    1895           0 :     WatchItem* pItem = (WatchItem*)pEntry->GetUserData();
    1896             : 
    1897           0 :     bool bEdit = false;
    1898           0 :     if ( StarBASIC::IsRunning() && StarBASIC::GetActiveMethod() && !SbxBase::IsError() )
    1899             :     {
    1900             :         // No out of scope entries
    1901             :         bool bArrayElement;
    1902           0 :         SbxBase* pSbx = ImplGetSBXForEntry( pEntry, bArrayElement );
    1903           0 :         if (IsSbxVariable(pSbx) || bArrayElement)
    1904             :         {
    1905             :             // Accept no objects and only end nodes of arrays for editing
    1906           0 :             if( !pItem->mpObject && (pItem->mpArray == NULL || pItem->nDimLevel == pItem->nDimCount) )
    1907             :             {
    1908           0 :                 aEditingRes = SvHeaderTabListBox::GetEntryText( pEntry, ITEM_ID_VALUE-1 );
    1909           0 :                 aEditingRes = comphelper::string::strip(aEditingRes, ' ');
    1910           0 :                 bEdit = true;
    1911             :             }
    1912             :         }
    1913             :     }
    1914             : 
    1915           0 :     return bEdit;
    1916             : }
    1917             : 
    1918           0 : sal_Bool WatchTreeListBox::EditedEntry( SvTreeListEntry* pEntry, const OUString& rNewText )
    1919             : {
    1920           0 :     WatchItem* pItem = (WatchItem*)pEntry->GetUserData();
    1921           0 :     String aVName( pItem->maName );
    1922             : 
    1923           0 :     String aResult = comphelper::string::strip(rNewText, ' ');
    1924             : 
    1925           0 :     sal_uInt16 nResultLen = aResult.Len();
    1926           0 :     sal_Unicode cFirst = aResult.GetChar( 0 );
    1927           0 :     sal_Unicode cLast  = aResult.GetChar( nResultLen - 1 );
    1928           0 :     if( cFirst == '\"' && cLast == '\"' )
    1929           0 :         aResult = aResult.Copy( 1, nResultLen - 2 );
    1930             : 
    1931           0 :     return aResult != aEditingRes && ImplBasicEntryEdited(pEntry, aResult);
    1932             : }
    1933             : 
    1934           0 : bool WatchTreeListBox::ImplBasicEntryEdited( SvTreeListEntry* pEntry, const String& rResult )
    1935             : {
    1936             :     bool bArrayElement;
    1937           0 :     SbxBase* pSBX = ImplGetSBXForEntry( pEntry, bArrayElement );
    1938             : 
    1939           0 :     if (SbxVariable* pVar = IsSbxVariable(pSBX))
    1940             :     {
    1941           0 :         SbxDataType eType = pVar->GetType();
    1942           0 :         if ( (sal_uInt8)eType != (sal_uInt8)SbxOBJECT
    1943             :              && ( eType & SbxARRAY ) == 0 )
    1944             :         {
    1945             :             // If the type is variable, the conversion of the SBX does not matter,
    1946             :             // else the string is converted.
    1947           0 :             pVar->PutStringExt( rResult );
    1948             :         }
    1949             :     }
    1950             : 
    1951           0 :     if ( SbxBase::IsError() )
    1952             :     {
    1953           0 :         SbxBase::ResetError();
    1954             :     }
    1955             : 
    1956           0 :     UpdateWatches();
    1957             : 
    1958             :     // The text should never be taken/copied 1:1,
    1959             :     // as the UpdateWatches will be lost
    1960           0 :     return false;
    1961             : }
    1962             : 
    1963             : 
    1964             : namespace
    1965             : {
    1966             : 
    1967           0 : void implCollapseModifiedObjectEntry( SvTreeListEntry* pParent, WatchTreeListBox* pThis )
    1968             : {
    1969           0 :     pThis->Collapse( pParent );
    1970             : 
    1971           0 :     SvTreeList* pModel = pThis->GetModel();
    1972             :     SvTreeListEntry* pDeleteEntry;
    1973           0 :     while( (pDeleteEntry = pThis->SvTreeListBox::GetEntry( pParent, 0 )) != NULL )
    1974             :     {
    1975           0 :         implCollapseModifiedObjectEntry( pDeleteEntry, pThis );
    1976             : 
    1977           0 :         delete (WatchItem*)pDeleteEntry->GetUserData();
    1978           0 :         pModel->Remove( pDeleteEntry );
    1979             :     }
    1980           0 : }
    1981             : 
    1982           0 : String implCreateTypeStringForDimArray( WatchItem* pItem, SbxDataType eType )
    1983             : {
    1984           0 :     String aRetStr = getBasicTypeName( eType );
    1985             : 
    1986           0 :     SbxDimArray* pArray = pItem->mpArray;
    1987           0 :     if( !pArray )
    1988           0 :         pArray = pItem->GetRootArray();
    1989           0 :     if( pArray )
    1990             :     {
    1991           0 :         int nDimLevel = pItem->nDimLevel;
    1992           0 :         int nDims = pItem->nDimCount;
    1993           0 :         if( nDimLevel < nDims )
    1994             :         {
    1995           0 :             aRetStr += '(';
    1996           0 :             for( int i = nDimLevel ; i < nDims ; i++ )
    1997             :             {
    1998             :                 short nMin, nMax;
    1999           0 :                 pArray->GetDim( sal::static_int_cast<short>( i+1 ), nMin, nMax );
    2000           0 :                 aRetStr += String::CreateFromInt32( nMin );
    2001           0 :                 aRetStr += OUString( " to " );
    2002           0 :                 aRetStr += String::CreateFromInt32( nMax );
    2003           0 :                 if( i < nDims - 1 )
    2004           0 :                     aRetStr += OUString( ", " );
    2005             :             }
    2006           0 :             aRetStr += ')';
    2007             :         }
    2008             :     }
    2009           0 :     return aRetStr;
    2010             : }
    2011             : 
    2012           0 : void implEnableChildren( SvTreeListEntry* pEntry, bool bEnable )
    2013             : {
    2014           0 :     if( bEnable )
    2015             :     {
    2016             :         pEntry->SetFlags(
    2017           0 :             (pEntry->GetFlags() &
    2018             :             ~(SV_ENTRYFLAG_NO_NODEBMP | SV_ENTRYFLAG_HAD_CHILDREN))
    2019           0 :             | SV_ENTRYFLAG_CHILDREN_ON_DEMAND );
    2020             :     }
    2021             :     else
    2022             :     {
    2023             :         pEntry->SetFlags(
    2024           0 :             (pEntry->GetFlags() & ~(SV_ENTRYFLAG_CHILDREN_ON_DEMAND)) );
    2025             :     }
    2026           0 : }
    2027             : 
    2028             : } // namespace
    2029             : 
    2030           0 : void WatchTreeListBox::UpdateWatches( bool bBasicStopped )
    2031             : {
    2032           0 :     SbMethod* pCurMethod = StarBASIC::GetActiveMethod();
    2033             : 
    2034           0 :     SbxError eOld = SbxBase::GetError();
    2035           0 :     setBasicWatchMode( true );
    2036             : 
    2037           0 :     SvTreeListEntry* pEntry = First();
    2038           0 :     while ( pEntry )
    2039             :     {
    2040           0 :         WatchItem* pItem = (WatchItem*)pEntry->GetUserData();
    2041           0 :         String aVName( pItem->maName );
    2042             :         DBG_ASSERT( aVName.Len(), "Var? - Must not be empty!" );
    2043           0 :         String aWatchStr;
    2044           0 :         String aTypeStr;
    2045           0 :         if ( pCurMethod )
    2046             :         {
    2047             :             bool bArrayElement;
    2048           0 :             SbxBase* pSBX = ImplGetSBXForEntry( pEntry, bArrayElement );
    2049             : 
    2050             :             // Array? If no end node create type string
    2051           0 :             if( bArrayElement && pItem->nDimLevel < pItem->nDimCount )
    2052             :             {
    2053           0 :                 SbxDimArray* pRootArray = pItem->GetRootArray();
    2054           0 :                 SbxDataType eType = pRootArray->GetType();
    2055           0 :                 aTypeStr = implCreateTypeStringForDimArray( pItem, eType );
    2056           0 :                 implEnableChildren( pEntry, true );
    2057             :             }
    2058             : 
    2059           0 :             bool bCollapse = false;
    2060           0 :             if (SbxVariable const* pVar = IsSbxVariable(pSBX))
    2061             :             {
    2062             :                 // extra treatment of arrays
    2063           0 :                 SbxDataType eType = pVar->GetType();
    2064           0 :                 if ( eType & SbxARRAY )
    2065             :                 {
    2066             :                     // consider multidimensinal arrays!
    2067           0 :                     if (SbxDimArray* pNewArray = dynamic_cast<SbxDimArray*>(pVar->GetObject()))
    2068             :                     {
    2069           0 :                         SbxDimArray* pOldArray = pItem->mpArray;
    2070             : 
    2071           0 :                         bool bArrayChanged = false;
    2072           0 :                         if( pNewArray != NULL && pOldArray != NULL )
    2073             :                         {
    2074             :                             // Compare Array dimensions to see if array has changed
    2075             :                             // Can be a copy, so comparing pointers does not work
    2076           0 :                             sal_uInt16 nOldDims = pOldArray->GetDims();
    2077           0 :                             sal_uInt16 nNewDims = pNewArray->GetDims();
    2078           0 :                             if( nOldDims != nNewDims )
    2079             :                             {
    2080           0 :                                 bArrayChanged = true;
    2081             :                             }
    2082             :                             else
    2083             :                             {
    2084           0 :                                 for( int i = 0 ; i < nOldDims ; i++ )
    2085             :                                 {
    2086             :                                     short nOldMin, nOldMax;
    2087             :                                     short nNewMin, nNewMax;
    2088             : 
    2089           0 :                                     pOldArray->GetDim( sal::static_int_cast<short>( i+1 ), nOldMin, nOldMax );
    2090           0 :                                     pNewArray->GetDim( sal::static_int_cast<short>( i+1 ), nNewMin, nNewMax );
    2091           0 :                                     if( nOldMin != nNewMin || nOldMax != nNewMax )
    2092             :                                     {
    2093           0 :                                         bArrayChanged = true;
    2094             :                                         break;
    2095             :                                     }
    2096             :                                 }
    2097           0 :                             }
    2098             :                         }
    2099           0 :                         else if( pNewArray == NULL || pOldArray == NULL )
    2100             :                         {
    2101           0 :                             bArrayChanged = true;
    2102             :                         }
    2103           0 :                         if( pNewArray )
    2104             :                         {
    2105           0 :                             implEnableChildren( pEntry, true );
    2106             :                         }
    2107             :                         // #i37227 Clear always and replace array
    2108           0 :                         if( pNewArray != pOldArray )
    2109             :                         {
    2110           0 :                             pItem->clearWatchItem();
    2111           0 :                             if( pNewArray )
    2112             :                             {
    2113           0 :                                 implEnableChildren( pEntry, true );
    2114             : 
    2115           0 :                                 pItem->mpArray = pNewArray;
    2116           0 :                                 sal_uInt16 nDims = pNewArray->GetDims();
    2117           0 :                                 pItem->nDimLevel = 0;
    2118           0 :                                 pItem->nDimCount = nDims;
    2119             :                             }
    2120             :                         }
    2121           0 :                         if( bArrayChanged && pOldArray != NULL )
    2122             :                         {
    2123           0 :                             bCollapse = true;
    2124             :                         }
    2125           0 :                         aTypeStr = implCreateTypeStringForDimArray( pItem, eType );
    2126             :                     }
    2127             :                     else
    2128             :                     {
    2129           0 :                         aWatchStr += OUString( "<?>" );
    2130             :                     }
    2131             :                 }
    2132           0 :                 else if ( (sal_uInt8)eType == (sal_uInt8)SbxOBJECT )
    2133             :                 {
    2134           0 :                     if (SbxObject* pObj = dynamic_cast<SbxObject*>(pVar->GetObject()))
    2135             :                     {
    2136             :                         // Check if member list has changed
    2137           0 :                         bool bObjChanged = false;
    2138           0 :                         if (pItem->mpObject && !pItem->maMemberList.empty())
    2139             :                         {
    2140           0 :                             SbxArray* pProps = pObj->GetProperties();
    2141           0 :                             sal_uInt16 nPropCount = pProps->Count();
    2142           0 :                             for( sal_uInt16 i = 0 ; i < nPropCount - 3 ; i++ )
    2143             :                             {
    2144           0 :                                 SbxVariable* pVar_ = pProps->Get( i );
    2145           0 :                                 String aName( pVar_->GetName() );
    2146           0 :                                 if( pItem->maMemberList[i] != aName )
    2147             :                                 {
    2148           0 :                                     bObjChanged = true;
    2149             :                                     break;
    2150             :                                 }
    2151           0 :                             }
    2152           0 :                             if( bObjChanged )
    2153             :                             {
    2154           0 :                                 bCollapse = true;
    2155             :                             }
    2156             :                         }
    2157             : 
    2158           0 :                         pItem->mpObject = pObj;
    2159           0 :                         implEnableChildren( pEntry, true );
    2160           0 :                         aTypeStr = getBasicObjectTypeName( pObj );
    2161             :                     }
    2162             :                     else
    2163             :                     {
    2164           0 :                         aWatchStr = OUString( "Null" );
    2165           0 :                         if( pItem->mpObject != NULL )
    2166             :                         {
    2167           0 :                             bCollapse = true;
    2168           0 :                             pItem->clearWatchItem();
    2169             : 
    2170           0 :                             implEnableChildren( pEntry, false );
    2171             :                         }
    2172             :                     }
    2173             :                 }
    2174             :                 else
    2175             :                 {
    2176           0 :                     if( pItem->mpObject != NULL )
    2177             :                     {
    2178           0 :                         bCollapse = true;
    2179           0 :                         pItem->clearWatchItem();
    2180             : 
    2181           0 :                         implEnableChildren( pEntry, false );
    2182             :                     }
    2183             : 
    2184           0 :                     bool bString = ((sal_uInt8)eType == (sal_uInt8)SbxSTRING);
    2185           0 :                     OUString aStrStr( "\"" );
    2186           0 :                     if( bString )
    2187             :                     {
    2188           0 :                         aWatchStr += aStrStr;
    2189             :                     }
    2190           0 :                     aWatchStr += pVar->GetOUString();
    2191           0 :                     if( bString )
    2192             :                     {
    2193           0 :                         aWatchStr += aStrStr;
    2194           0 :                     }
    2195             :                 }
    2196           0 :                 if( !aTypeStr.Len() )
    2197             :                 {
    2198           0 :                     if( !pVar->IsFixed() )
    2199             :                     {
    2200           0 :                         aTypeStr = OUString( "Variant/" );
    2201             :                     }
    2202           0 :                     aTypeStr += getBasicTypeName( pVar->GetType() );
    2203             :                 }
    2204             :             }
    2205           0 :             else if( !bArrayElement )
    2206             :             {
    2207           0 :                 aWatchStr += OUString( "<Out of Scope>" );
    2208             :             }
    2209             : 
    2210           0 :             if( bCollapse )
    2211             :             {
    2212           0 :                 implCollapseModifiedObjectEntry( pEntry, this );
    2213             :             }
    2214             : 
    2215             :         }
    2216           0 :         else if( bBasicStopped )
    2217             :         {
    2218           0 :             if( pItem->mpObject || pItem->mpArray )
    2219             :             {
    2220           0 :                 implCollapseModifiedObjectEntry( pEntry, this );
    2221           0 :                 pItem->mpObject = NULL;
    2222             :             }
    2223             :         }
    2224             : 
    2225           0 :         SvHeaderTabListBox::SetEntryText( aWatchStr, pEntry, ITEM_ID_VALUE-1 );
    2226           0 :         SvHeaderTabListBox::SetEntryText( aTypeStr, pEntry, ITEM_ID_TYPE-1 );
    2227             : 
    2228           0 :         pEntry = Next( pEntry );
    2229           0 :     }
    2230             : 
    2231             :     // Force redraw
    2232           0 :     Invalidate();
    2233             : 
    2234           0 :     SbxBase::ResetError();
    2235           0 :     if( eOld != SbxERR_OK )
    2236           0 :         SbxBase::SetError( eOld );
    2237           0 :     setBasicWatchMode( false );
    2238           0 : }
    2239             : 
    2240             : 
    2241             : } // namespace basctl
    2242             : 
    2243             : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */

Generated by: LCOV version 1.10