LCOV - code coverage report
Current view: top level - basctl/source/basicide - baside2b.cxx (source / functions) Hit Total Coverage
Test: commit e02a6cb2c3e2b23b203b422e4e0680877f232636 Lines: 0 1632 0.0 %
Date: 2014-04-14 Functions: 0 141 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 <sal/config.h>
      21             : 
      22             : #include <cassert>
      23             : 
      24             : #include "helpid.hrc"
      25             : #include "baside2.hrc"
      26             : 
      27             : #include "baside2.hxx"
      28             : #include "brkdlg.hxx"
      29             : #include "iderdll.hxx"
      30             : #include "iderdll2.hxx"
      31             : #include "objdlg.hxx"
      32             : 
      33             : #include <basic/sbmeth.hxx>
      34             : #include <basic/sbuno.hxx>
      35             : #include <com/sun/star/script/XLibraryContainer2.hpp>
      36             : #include <com/sun/star/beans/XMultiPropertySet.hpp>
      37             : #include <com/sun/star/beans/XPropertiesChangeListener.hpp>
      38             : #include <comphelper/processfactory.hxx>
      39             : #include <comphelper/string.hxx>
      40             : #include <officecfg/Office/Common.hxx>
      41             : #include <sfx2/dispatch.hxx>
      42             : #include <sfx2/viewfrm.hxx>
      43             : #include <vcl/msgbox.hxx>
      44             : #include <svl/urihelper.hxx>
      45             : #include <vcl/xtextedt.hxx>
      46             : #include <vcl/txtattr.hxx>
      47             : #include <vcl/settings.hxx>
      48             : #include <svtools/textwindowpeer.hxx>
      49             : #include <tools/stream.hxx>
      50             : #include <comphelper/syntaxhighlight.hxx>
      51             : #include <svtools/treelistentry.hxx>
      52             : #include <vcl/taskpanelist.hxx>
      53             : #include <vcl/help.hxx>
      54             : 
      55             : #include <vector>
      56             : #include <com/sun/star/reflection/XInterfaceMemberTypeDescription.hpp>
      57             : #include <com/sun/star/reflection/XIdlMethod.hpp>
      58             : #include <com/sun/star/reflection/XIdlField.hpp>
      59             : #include <com/sun/star/reflection/theCoreReflection.hpp>
      60             : #include <com/sun/star/uno/Exception.hpp>
      61             : 
      62             : namespace basctl
      63             : {
      64             : 
      65             : using namespace ::com::sun::star;
      66             : using namespace ::com::sun::star::uno;
      67             : 
      68             : namespace
      69             : {
      70             : 
      71             : sal_uInt16 const NoMarker = 0xFFFF;
      72             : long const nBasePad = 2;
      73             : long const nCursorPad = 5;
      74             : 
      75             : long nVirtToolBoxHeight;    // inited in WatchWindow, used in Stackwindow
      76             : long nHeaderBarHeight;
      77             : 
      78             : // Returns pBase converted to SbxVariable if valid and is not an SbxMethod.
      79           0 : SbxVariable* IsSbxVariable (SbxBase* pBase)
      80             : {
      81           0 :     if (SbxVariable* pVar = dynamic_cast<SbxVariable*>(pBase))
      82           0 :         if (!dynamic_cast<SbxMethod*>(pVar))
      83           0 :             return pVar;
      84           0 :     return 0;
      85             : }
      86             : 
      87           0 : Image GetImage (unsigned nId)
      88             : {
      89           0 :     static ImageList const aImagesNormal(IDEResId(RID_IMGLST_LAYOUT));
      90           0 :     return aImagesNormal.GetImage(nId);
      91             : }
      92             : 
      93             : int const nScrollLine = 12;
      94             : int const nScrollPage = 60;
      95             : int const DWBORDER = 3;
      96             : 
      97             : char const cSuffixes[] = "%&!#@$";
      98             : 
      99             : } // namespace
     100             : 
     101             : 
     102             : /**
     103             :  * Helper functions to get/set text in TextEngine using
     104             :  * the stream interface.
     105             :  *
     106             :  * get/setText() only supports tools Strings limited to 64K).
     107             :  */
     108           0 : OUString getTextEngineText (ExtTextEngine& rEngine)
     109             : {
     110           0 :     SvMemoryStream aMemStream;
     111           0 :     aMemStream.SetStreamCharSet( RTL_TEXTENCODING_UTF8 );
     112           0 :     aMemStream.SetLineDelimiter( LINEEND_LF );
     113           0 :     rEngine.Write( aMemStream );
     114           0 :     sal_Size nSize = aMemStream.Tell();
     115           0 :     OUString aText( (const sal_Char*)aMemStream.GetData(),
     116           0 :         nSize, RTL_TEXTENCODING_UTF8 );
     117           0 :     return aText;
     118             : }
     119             : 
     120           0 : void setTextEngineText (ExtTextEngine& rEngine, OUString const& aStr)
     121             : {
     122           0 :     rEngine.SetText(OUString());
     123           0 :     OString aUTF8Str = OUStringToOString( aStr, RTL_TEXTENCODING_UTF8 );
     124           0 :     SvMemoryStream aMemStream( (void*)aUTF8Str.getStr(), aUTF8Str.getLength(),
     125           0 :         STREAM_READ | STREAM_SEEK_TO_BEGIN );
     126           0 :     aMemStream.SetStreamCharSet( RTL_TEXTENCODING_UTF8 );
     127           0 :     aMemStream.SetLineDelimiter( LINEEND_LF );
     128           0 :     rEngine.Read(aMemStream);
     129           0 : }
     130             : 
     131             : namespace
     132             : {
     133             : 
     134           0 : void lcl_DrawIDEWindowFrame( DockingWindow* pWin )
     135             : {
     136           0 :     if ( pWin->IsFloatingMode() )
     137           0 :         return;
     138             : 
     139           0 :     Size aSz = pWin->GetOutputSizePixel();
     140           0 :     const Color aOldLineColor( pWin->GetLineColor() );
     141           0 :     pWin->SetLineColor( Color( COL_WHITE ) );
     142             :     // White line on top
     143           0 :     pWin->DrawLine( Point( 0, 0 ), Point( aSz.Width(), 0 ) );
     144             :     // Black line at bottom
     145           0 :     pWin->SetLineColor( Color( COL_BLACK ) );
     146           0 :     pWin->DrawLine( Point( 0, aSz.Height() - 1 ),
     147           0 :                     Point( aSz.Width(), aSz.Height() - 1 ) );
     148           0 :     pWin->SetLineColor( aOldLineColor );
     149             : }
     150             : 
     151           0 : void lcl_SeparateNameAndIndex( const OUString& rVName, OUString& rVar, OUString& rIndex )
     152             : {
     153           0 :     rVar = rVName;
     154           0 :     rIndex = "";
     155           0 :     sal_Int32 nIndexStart = rVar.indexOf( '(' );
     156           0 :     if ( nIndexStart != -1 )
     157             :     {
     158           0 :         sal_Int32 nIndexEnd = rVar.indexOf( ')', nIndexStart );
     159           0 :         if ( nIndexStart != -1 )
     160             :         {
     161           0 :             rIndex = rVar.copy( nIndexStart+1, nIndexEnd-nIndexStart-1 );
     162           0 :             rVar = rVar.copy( 0, nIndexStart );
     163           0 :             rVar = comphelper::string::stripEnd(rVar, ' ');
     164           0 :             rIndex = comphelper::string::strip(rIndex, ' ');
     165             :         }
     166             :     }
     167             : 
     168           0 :     if ( !rVar.isEmpty() )
     169             :     {
     170           0 :         sal_uInt16 nLastChar = rVar.getLength()-1;
     171           0 :         if ( strchr( cSuffixes, rVar[ nLastChar ] ) )
     172           0 :             rVar = rVar.replaceAt( nLastChar, 1, "" );
     173             :     }
     174           0 :     if ( !rIndex.isEmpty() )
     175             :     {
     176           0 :         sal_uInt16 nLastChar = rIndex.getLength()-1;
     177           0 :         if ( strchr( cSuffixes, rIndex[ nLastChar ] ) )
     178           0 :             rIndex = rIndex.replaceAt( nLastChar, 1, "" );
     179             :     }
     180           0 : }
     181             : 
     182             : } // namespace
     183             : 
     184             : 
     185             : 
     186             : // EditorWindow
     187             : 
     188             : 
     189             : 
     190             : class EditorWindow::ChangesListener:
     191             :     public cppu::WeakImplHelper1< beans::XPropertiesChangeListener >
     192             : {
     193             : public:
     194           0 :     ChangesListener(EditorWindow & editor): editor_(editor) {}
     195             : 
     196             : private:
     197           0 :     virtual ~ChangesListener() {}
     198             : 
     199           0 :     virtual void SAL_CALL disposing(lang::EventObject const &) throw (RuntimeException, std::exception) SAL_OVERRIDE
     200             :     {
     201           0 :         osl::MutexGuard g(editor_.mutex_);
     202           0 :         editor_.notifier_.clear();
     203           0 :     }
     204             : 
     205           0 :     virtual void SAL_CALL propertiesChange(
     206             :         Sequence< beans::PropertyChangeEvent > const &) throw (RuntimeException, std::exception) SAL_OVERRIDE
     207             :     {
     208           0 :         SolarMutexGuard g;
     209           0 :         editor_.ImplSetFont();
     210           0 :     }
     211             : 
     212             :     EditorWindow & editor_;
     213             : };
     214             : 
     215           0 : class EditorWindow::ProgressInfo : public SfxProgress
     216             : {
     217             : public:
     218           0 :     ProgressInfo (SfxObjectShell* pObjSh, OUString const& rText, sal_uLong nRange) :
     219             :         SfxProgress(pObjSh, rText, nRange),
     220           0 :         nCurState(0)
     221           0 :     { }
     222             : 
     223           0 :     void StepProgress ()
     224             :     {
     225           0 :         SetState(++nCurState);
     226           0 :     }
     227             : 
     228             : private:
     229             :     sal_uLong nCurState;
     230             : };
     231             : 
     232           0 : EditorWindow::EditorWindow (Window* pParent, ModulWindow* pModulWindow) :
     233             :     Window(pParent, WB_BORDER),
     234             :     pEditView(0),
     235             :     pEditEngine(0),
     236             :     rModulWindow(*pModulWindow),
     237             :     nCurTextWidth(0),
     238             :     aHighlighter(HIGHLIGHT_BASIC),
     239             :     bHighlightning(false),
     240             :     bDoSyntaxHighlight(true),
     241             :     bDelayHighlight(true),
     242           0 :     pCodeCompleteWnd(new CodeCompleteWindow(this))
     243             : {
     244           0 :     SetBackground(Wallpaper(GetSettings().GetStyleSettings().GetFieldColor()));
     245           0 :     SetPointer( Pointer( POINTER_TEXT ) );
     246           0 :     SetHelpId( HID_BASICIDE_EDITORWINDOW );
     247             : 
     248           0 :     listener_ = new ChangesListener(*this);
     249             :     Reference< beans::XMultiPropertySet > n(
     250             :         officecfg::Office::Common::Font::SourceViewFont::get(),
     251           0 :         UNO_QUERY_THROW);
     252             :     {
     253           0 :         osl::MutexGuard g(mutex_);
     254           0 :         notifier_ = n;
     255             :     }
     256           0 :     Sequence< OUString > s(2);
     257           0 :     s[0] = "FontHeight";
     258           0 :     s[1] = "FontName";
     259           0 :     n->addPropertiesChangeListener(s, listener_.get());
     260           0 : }
     261             : 
     262             : 
     263           0 : EditorWindow::~EditorWindow()
     264             : {
     265           0 :     Reference< beans::XMultiPropertySet > n;
     266             :     {
     267           0 :         osl::MutexGuard g(mutex_);
     268           0 :         n = notifier_;
     269             :     }
     270           0 :     if (n.is()) {
     271           0 :         n->removePropertiesChangeListener(listener_.get());
     272             :     }
     273             : 
     274           0 :     aSyntaxIdleTimer.Stop();
     275             : 
     276           0 :     if ( pEditEngine )
     277             :     {
     278           0 :         EndListening( *pEditEngine );
     279           0 :         pEditEngine->RemoveView(pEditView.get());
     280           0 :     }
     281           0 : }
     282             : 
     283           0 : OUString EditorWindow::GetWordAtCursor()
     284             : {
     285           0 :     OUString aWord;
     286             : 
     287           0 :     if ( pEditView )
     288             :     {
     289           0 :         TextEngine* pTextEngine = pEditView->GetTextEngine();
     290           0 :         if ( pTextEngine )
     291             :         {
     292             :             // check first, if the cursor is at a help URL
     293           0 :             const TextSelection& rSelection = pEditView->GetSelection();
     294           0 :             const TextPaM& rSelStart = rSelection.GetStart();
     295           0 :             const TextPaM& rSelEnd = rSelection.GetEnd();
     296           0 :             OUString aText = pTextEngine->GetText( rSelEnd.GetPara() );
     297           0 :             CharClass aClass( ::comphelper::getProcessComponentContext() , Application::GetSettings().GetLanguageTag() );
     298           0 :             sal_Int32 nSelStart = rSelStart.GetIndex();
     299           0 :             sal_Int32 nSelEnd = rSelEnd.GetIndex();
     300           0 :             sal_Int32 nLength = aText.getLength();
     301           0 :             sal_Int32 nStart = 0;
     302           0 :             sal_Int32 nEnd = nLength;
     303           0 :             while ( nStart < nLength )
     304             :             {
     305           0 :                 OUString aURL( URIHelper::FindFirstURLInText( aText, nStart, nEnd, aClass ) );
     306           0 :                 INetURLObject aURLObj( aURL );
     307           0 :                 if ( aURLObj.GetProtocol() == INET_PROT_VND_SUN_STAR_HELP
     308           0 :                      && nSelStart >= nStart && nSelStart <= nEnd && nSelEnd >= nStart && nSelEnd <= nEnd )
     309             :                 {
     310           0 :                     aWord = aURL;
     311           0 :                     break;
     312             :                 }
     313           0 :                 nStart = nEnd;
     314           0 :                 nEnd = nLength;
     315           0 :             }
     316             : 
     317             :             // Not the selected range, but at the CursorPosition,
     318             :             // if a word is partially selected.
     319           0 :             if ( aWord.isEmpty() )
     320           0 :                 aWord = pTextEngine->GetWord( rSelEnd );
     321             : 
     322             :             // Can be empty when full word selected, as Cursor behing it
     323           0 :             if ( aWord.isEmpty() && pEditView->HasSelection() )
     324           0 :                 aWord = pTextEngine->GetWord( rSelStart );
     325             :         }
     326             :     }
     327             : 
     328           0 :     return aWord;
     329             : }
     330             : 
     331           0 : void EditorWindow::RequestHelp( const HelpEvent& rHEvt )
     332             : {
     333           0 :     bool bDone = false;
     334             : 
     335             :     // Should have been activated at some point
     336           0 :     if ( pEditEngine )
     337             :     {
     338           0 :         if ( rHEvt.GetMode() & HELPMODE_CONTEXT )
     339             :         {
     340           0 :             OUString aKeyword = GetWordAtCursor();
     341           0 :             Application::GetHelp()->SearchKeyword( aKeyword );
     342           0 :             bDone = true;
     343             :         }
     344           0 :         else if ( rHEvt.GetMode() & HELPMODE_QUICK )
     345             :         {
     346           0 :             OUString aHelpText;
     347           0 :             Point aTopLeft;
     348           0 :             if ( StarBASIC::IsRunning() )
     349             :             {
     350           0 :                 Point aWindowPos = rHEvt.GetMousePosPixel();
     351           0 :                 aWindowPos = ScreenToOutputPixel( aWindowPos );
     352           0 :                 Point aDocPos = GetEditView()->GetDocPos( aWindowPos );
     353           0 :                 TextPaM aCursor = GetEditView()->GetTextEngine()->GetPaM(aDocPos, false);
     354           0 :                 TextPaM aStartOfWord;
     355           0 :                 OUString aWord = GetEditView()->GetTextEngine()->GetWord( aCursor, &aStartOfWord );
     356           0 :                 if ( !aWord.isEmpty() && !comphelper::string::isdigitAsciiString(aWord) )
     357             :                 {
     358           0 :                     sal_uInt16 nLastChar = aWord.getLength() - 1;
     359           0 :                     if ( strchr( cSuffixes, aWord[ nLastChar ] ) )
     360           0 :                         aWord = aWord.replaceAt( nLastChar, 1, "" );
     361           0 :                     SbxBase* pSBX = StarBASIC::FindSBXInCurrentScope( aWord );
     362           0 :                     if (SbxVariable const* pVar = IsSbxVariable(pSBX))
     363             :                     {
     364           0 :                         SbxDataType eType = pVar->GetType();
     365           0 :                         if ( (sal_uInt8)eType == (sal_uInt8)SbxOBJECT )
     366             :                             // might cause a crash e. g. at the selections-object
     367             :                             // Type == Object does not mean pVar == Object!
     368             :                             ; // aHelpText = ((SbxObject*)pVar)->GetClassName();
     369           0 :                         else if ( eType & SbxARRAY )
     370             :                             ; // aHelpText = "{...}";
     371           0 :                         else if ( (sal_uInt8)eType != (sal_uInt8)SbxEMPTY )
     372             :                         {
     373           0 :                             aHelpText = pVar->GetName();
     374           0 :                             if ( aHelpText.isEmpty() )     // name is not copied with the passed parameters
     375           0 :                                 aHelpText = aWord;
     376           0 :                             aHelpText += "=";
     377           0 :                             aHelpText += pVar->GetOUString();
     378             :                         }
     379             :                     }
     380           0 :                     if ( !aHelpText.isEmpty() )
     381             :                     {
     382           0 :                         aTopLeft = GetEditView()->GetTextEngine()->PaMtoEditCursor( aStartOfWord ).BottomLeft();
     383           0 :                         aTopLeft = GetEditView()->GetWindowPos( aTopLeft );
     384           0 :                         aTopLeft.X() += 5;
     385           0 :                         aTopLeft.Y() += 5;
     386           0 :                         aTopLeft = OutputToScreenPixel( aTopLeft );
     387             :                     }
     388           0 :                 }
     389             :             }
     390           0 :             Help::ShowQuickHelp( this, Rectangle( aTopLeft, Size( 1, 1 ) ), aHelpText, QUICKHELP_TOP|QUICKHELP_LEFT);
     391           0 :             bDone = true;
     392             :         }
     393             :     }
     394             : 
     395           0 :     if ( !bDone )
     396           0 :         Window::RequestHelp( rHEvt );
     397           0 : }
     398             : 
     399             : 
     400           0 : void EditorWindow::Resize()
     401             : {
     402             :     // ScrollBars, etc. happens in Adjust...
     403           0 :     if ( pEditView )
     404             :     {
     405           0 :         long nVisY = pEditView->GetStartDocPos().Y();
     406             : 
     407           0 :         pEditView->ShowCursor();
     408           0 :         Size aOutSz( GetOutputSizePixel() );
     409           0 :         long nMaxVisAreaStart = pEditView->GetTextEngine()->GetTextHeight() - aOutSz.Height();
     410           0 :         if ( nMaxVisAreaStart < 0 )
     411           0 :             nMaxVisAreaStart = 0;
     412           0 :         if ( pEditView->GetStartDocPos().Y() > nMaxVisAreaStart )
     413             :         {
     414           0 :             Point aStartDocPos( pEditView->GetStartDocPos() );
     415           0 :             aStartDocPos.Y() = nMaxVisAreaStart;
     416           0 :             pEditView->SetStartDocPos( aStartDocPos );
     417           0 :             pEditView->ShowCursor();
     418           0 :             rModulWindow.GetBreakPointWindow().GetCurYOffset() = aStartDocPos.Y();
     419           0 :             rModulWindow.GetLineNumberWindow().GetCurYOffset() = aStartDocPos.Y();
     420             :         }
     421           0 :         InitScrollBars();
     422           0 :         if ( nVisY != pEditView->GetStartDocPos().Y() )
     423           0 :             Invalidate();
     424             :     }
     425           0 : }
     426             : 
     427             : 
     428           0 : void EditorWindow::MouseMove( const MouseEvent &rEvt )
     429             : {
     430           0 :     if ( pEditView )
     431           0 :         pEditView->MouseMove( rEvt );
     432           0 : }
     433             : 
     434             : 
     435           0 : void EditorWindow::MouseButtonUp( const MouseEvent &rEvt )
     436             : {
     437           0 :     if ( pEditView )
     438             :     {
     439           0 :         pEditView->MouseButtonUp( rEvt );
     440           0 :         if (SfxBindings* pBindings = GetBindingsPtr())
     441             :         {
     442           0 :             pBindings->Invalidate( SID_BASICIDE_STAT_POS );
     443             :         }
     444             :     }
     445           0 : }
     446             : 
     447           0 : void EditorWindow::MouseButtonDown( const MouseEvent &rEvt )
     448             : {
     449           0 :     GrabFocus();
     450           0 :     if ( pEditView )
     451           0 :         pEditView->MouseButtonDown( rEvt );
     452           0 :     if( pCodeCompleteWnd->IsVisible() )
     453             :     {
     454           0 :         if( pEditView->GetSelection() != pCodeCompleteWnd->GetTextSelection() )
     455             :         {//selection changed, code complete window should be hidden
     456           0 :             pCodeCompleteWnd->GetListBox()->HideAndRestoreFocus();
     457             :         }
     458             :     }
     459           0 : }
     460             : 
     461           0 : void EditorWindow::Command( const CommandEvent& rCEvt )
     462             : {
     463           0 :     if ( pEditView )
     464             :     {
     465           0 :         pEditView->Command( rCEvt );
     466           0 :         if ( ( rCEvt.GetCommand() == COMMAND_WHEEL ) ||
     467           0 :              ( rCEvt.GetCommand() == COMMAND_STARTAUTOSCROLL ) ||
     468           0 :              ( rCEvt.GetCommand() == COMMAND_AUTOSCROLL ) )
     469             :         {
     470           0 :             HandleScrollCommand( rCEvt, rModulWindow.GetHScrollBar(), &rModulWindow.GetEditVScrollBar() );
     471           0 :         } else if ( rCEvt.GetCommand() == COMMAND_CONTEXTMENU ) {
     472           0 :             SfxDispatcher* pDispatcher = GetDispatcher();
     473           0 :             if ( pDispatcher )
     474             :             {
     475           0 :                 pDispatcher->ExecutePopup();
     476             :             }
     477           0 :             if( pCodeCompleteWnd->IsVisible() ) // hide the code complete window
     478           0 :                 pCodeCompleteWnd->ClearAndHide();
     479             :         }
     480             :     }
     481           0 : }
     482             : 
     483           0 : bool EditorWindow::ImpCanModify()
     484             : {
     485           0 :     bool bCanModify = true;
     486           0 :     if ( StarBASIC::IsRunning() && rModulWindow.GetBasicStatus().bIsRunning )
     487             :     {
     488             :         // If in Trace-mode, abort the trace or refuse input
     489             :         // Remove markers in the modules in Notify at Basic::Stoped
     490           0 :         if ( QueryBox( 0, WB_OK_CANCEL, IDEResId(RID_STR_WILLSTOPPRG).toString() ).Execute() == RET_OK )
     491             :         {
     492           0 :             rModulWindow.GetBasicStatus().bIsRunning = false;
     493           0 :             StopBasic();
     494             :         }
     495             :         else
     496           0 :             bCanModify = false;
     497             :     }
     498           0 :     return bCanModify;
     499             : }
     500             : 
     501           0 : void EditorWindow::KeyInput( const KeyEvent& rKEvt )
     502             : {
     503           0 :     if ( !pEditView )   // Happens in Win95
     504           0 :         return;
     505             : 
     506             : #if OSL_DEBUG_LEVEL > 1
     507             :     Range aRange = rModulWindow.GetHScrollBar()->GetRange(); (void)aRange;
     508             :     long nVisSz = rModulWindow.GetHScrollBar()->GetVisibleSize(); (void)nVisSz;
     509             :     long nPapSz = rModulWindow.GetHScrollBar()->GetPageSize(); (void)nPapSz;
     510             :     long nLinSz = rModulWindow.GetHScrollBar()->GetLineSize(); (void)nLinSz;
     511             :     long nThumb = rModulWindow.GetHScrollBar()->GetThumbPos(); (void)nThumb;
     512             : #endif
     513           0 :     bool const bWasModified = pEditEngine->IsModified();
     514             :     // see if there is an accelerator to be processed first
     515           0 :     bool bDone = SfxViewShell::Current()->KeyInput( rKEvt );
     516             : 
     517           0 :     if( pCodeCompleteWnd->IsVisible() && CodeCompleteOptions::IsCodeCompleteOn() )
     518             :     {
     519           0 :         pCodeCompleteWnd->GetListBox()->KeyInput(rKEvt);
     520           0 :         if( rKEvt.GetKeyCode().GetCode() == KEY_UP
     521           0 :             || rKEvt.GetKeyCode().GetCode() == KEY_DOWN
     522           0 :             || rKEvt.GetKeyCode().GetCode() == KEY_TAB
     523           0 :             || rKEvt.GetKeyCode().GetCode() == KEY_POINT)
     524           0 :             return;
     525             :     }
     526             : 
     527           0 :     if( (rKEvt.GetKeyCode().GetCode() == KEY_SPACE ||
     528           0 :         rKEvt.GetKeyCode().GetCode() == KEY_TAB ||
     529           0 :         rKEvt.GetKeyCode().GetCode() == KEY_RETURN ) && CodeCompleteOptions::IsAutoCorrectOn() )
     530             :     {
     531           0 :         HandleAutoCorrect();
     532             :     }
     533             : 
     534           0 :     if( rKEvt.GetCharCode() == '"' && CodeCompleteOptions::IsAutoCloseQuotesOn() )
     535             :     {//autoclose double quotes
     536           0 :         HandleAutoCloseDoubleQuotes();
     537             :     }
     538             : 
     539           0 :     if( rKEvt.GetCharCode() == '(' && CodeCompleteOptions::IsAutoCloseParenthesisOn() )
     540             :     {//autoclose parenthesis
     541           0 :         HandleAutoCloseParen();
     542             :     }
     543             : 
     544           0 :     if( rKEvt.GetKeyCode().GetCode() == KEY_RETURN && CodeCompleteOptions::IsProcedureAutoCompleteOn() )
     545             :     {//autoclose implementation
     546           0 :        HandleProcedureCompletion();
     547             :     }
     548             : 
     549           0 :     if( rKEvt.GetKeyCode().GetCode() == KEY_POINT && CodeCompleteOptions::IsCodeCompleteOn() )
     550             :     {
     551           0 :         HandleCodeCompletion();
     552             :     }
     553           0 :     if ( !bDone && ( !TextEngine::DoesKeyChangeText( rKEvt ) || ImpCanModify()  ) )
     554             :     {
     555           0 :         if ( ( rKEvt.GetKeyCode().GetCode() == KEY_TAB ) && !rKEvt.GetKeyCode().IsMod1() &&
     556           0 :               !rKEvt.GetKeyCode().IsMod2() && !GetEditView()->IsReadOnly() )
     557             :         {
     558           0 :             TextSelection aSel( pEditView->GetSelection() );
     559           0 :             if ( aSel.GetStart().GetPara() != aSel.GetEnd().GetPara() )
     560             :             {
     561           0 :                 bDelayHighlight = false;
     562           0 :                 if ( !rKEvt.GetKeyCode().IsShift() )
     563           0 :                     pEditView->IndentBlock();
     564             :                 else
     565           0 :                     pEditView->UnindentBlock();
     566           0 :                 bDelayHighlight = true;
     567           0 :                 bDone = true;
     568             :             }
     569             :         }
     570           0 :         if ( !bDone )
     571           0 :             bDone = pEditView->KeyInput( rKEvt );
     572             :     }
     573           0 :     if ( !bDone )
     574             :     {
     575           0 :             Window::KeyInput( rKEvt );
     576             :     }
     577             :     else
     578             :     {
     579           0 :         if (SfxBindings* pBindings = GetBindingsPtr())
     580             :         {
     581           0 :             pBindings->Invalidate( SID_BASICIDE_STAT_POS );
     582           0 :             if ( rKEvt.GetKeyCode().GetGroup() == KEYGROUP_CURSOR )
     583           0 :                 pBindings->Update( SID_BASICIDE_STAT_POS );
     584           0 :             if ( !bWasModified && pEditEngine->IsModified() )
     585             :             {
     586           0 :                 pBindings->Invalidate( SID_SAVEDOC );
     587           0 :                 pBindings->Invalidate( SID_DOC_MODIFIED );
     588           0 :                 pBindings->Invalidate( SID_UNDO );
     589             :             }
     590           0 :             if ( rKEvt.GetKeyCode().GetCode() == KEY_INSERT )
     591           0 :                 pBindings->Invalidate( SID_ATTR_INSERT );
     592             :         }
     593             :     }
     594             : }
     595             : 
     596           0 : void EditorWindow::HandleAutoCorrect()
     597             : {
     598           0 :     TextSelection aSel = GetEditView()->GetSelection();
     599           0 :     sal_uLong nLine =  aSel.GetStart().GetPara();
     600           0 :     sal_uInt16 nIndex =  aSel.GetStart().GetIndex();
     601           0 :     OUString aLine( pEditEngine->GetText( nLine ) ); // the line being modified
     602           0 :     const OUString& sActSubName = GetActualSubName( nLine ); // the actual procedure
     603             : 
     604           0 :     std::vector<HighlightPortion> aPortions;
     605           0 :     aHighlighter.getHighlightPortions( aLine, aPortions );
     606             : 
     607           0 :     if( aPortions.empty() )
     608           0 :         return;
     609             : 
     610           0 :     HighlightPortion& r = aPortions.back();
     611           0 :     if( nIndex != aPortions.size()-1 )
     612             :     {//cursor is not standing at the end of the line
     613           0 :         for (std::vector<HighlightPortion>::iterator i(aPortions.begin());
     614           0 :              i != aPortions.end(); ++i)
     615             :         {
     616           0 :             if( i->nEnd == nIndex )
     617             :             {
     618           0 :                 r = *i;
     619           0 :                 break;
     620             :             }
     621             :         }
     622             :     }
     623             : 
     624           0 :     OUString sStr = aLine.copy( r.nBegin, r.nEnd - r.nBegin );
     625             :     //if WS or empty string: stop, nothing to do
     626           0 :     if( ( r.tokenType == TT_WHITESPACE ) || sStr.isEmpty() )
     627           0 :         return;
     628             :     //create the appropriate TextSelection, and update the cache
     629           0 :     TextPaM aStart( nLine, r.nBegin );
     630           0 :     TextPaM aEnd( nLine, r.nBegin + sStr.getLength() );
     631           0 :     TextSelection sTextSelection( aStart, aEnd );
     632           0 :     rModulWindow.UpdateModule();
     633           0 :     rModulWindow.GetSbModule()->GetCodeCompleteDataFromParse( aCodeCompleteCache );
     634             :     // correct the last entered keyword
     635           0 :     if( r.tokenType == TT_KEYWORDS )
     636             :     {
     637           0 :         sStr = sStr.toAsciiLowerCase();
     638           0 :         if( !rModulWindow.GetSbModule()->GetKeywordCase(sStr).isEmpty() )
     639             :         // if it is a keyword, get its correct case
     640           0 :             sStr = rModulWindow.GetSbModule()->GetKeywordCase(sStr);
     641             :         else
     642             :         // else capitalize first letter/select the correct one, and replace
     643           0 :             sStr = sStr.replaceAt( 0, 1, OUString(sStr[0]).toAsciiUpperCase() );
     644             : 
     645           0 :         pEditEngine->ReplaceText( sTextSelection, sStr );
     646           0 :         pEditView->SetSelection( aSel );
     647             :     }
     648           0 :     if( r.tokenType == TT_IDENTIFIER )
     649             :     {// correct variables
     650           0 :         if( !aCodeCompleteCache.GetCorrectCaseVarName( sStr, sActSubName ).isEmpty() )
     651             :         {
     652           0 :             sStr = aCodeCompleteCache.GetCorrectCaseVarName( sStr, sActSubName );
     653           0 :             pEditEngine->ReplaceText( sTextSelection, sStr );
     654           0 :             pEditView->SetSelection( aSel );
     655             :         }
     656             :         else
     657             :         {
     658             :             //autocorrect procedures
     659           0 :             SbxArray* pArr = rModulWindow.GetSbModule()->GetMethods();
     660           0 :             for( sal_uInt32 i=0; i < pArr->Count32(); ++i )
     661             :             {
     662           0 :                 if( pArr->Get32(i)->GetName().equalsIgnoreAsciiCase( sStr ) )
     663             :                 {
     664           0 :                     sStr = pArr->Get32(i)->GetName(); //if found, get the correct case
     665           0 :                     pEditEngine->ReplaceText( sTextSelection, sStr );
     666           0 :                     pEditView->SetSelection( aSel );
     667           0 :                     return;
     668             :                 }
     669             :             }
     670             :         }
     671           0 :     }
     672             : }
     673             : 
     674           0 : TextSelection EditorWindow::GetLastHighlightPortionTextSelection()
     675             : {//creates a text selection from the highlight portion on the cursor
     676           0 :     sal_uLong nLine = GetEditView()->GetSelection().GetStart().GetPara();
     677           0 :     sal_uInt16 nIndex = GetEditView()->GetSelection().GetStart().GetIndex();
     678           0 :     OUString aLine( pEditEngine->GetText( nLine ) ); // the line being modified
     679           0 :     std::vector<HighlightPortion> aPortions;
     680           0 :     aHighlighter.getHighlightPortions( aLine, aPortions );
     681             : 
     682             :     assert(!aPortions.empty());
     683           0 :     HighlightPortion& r = aPortions.back();
     684           0 :     if( nIndex != aPortions.size()-1 )
     685             :     {//cursor is not standing at the end of the line
     686           0 :         for (std::vector<HighlightPortion>::iterator i(aPortions.begin());
     687           0 :              i != aPortions.end(); ++i)
     688             :         {
     689           0 :             if( i->nEnd == nIndex )
     690             :             {
     691           0 :                 r = *i;
     692           0 :                 break;
     693             :             }
     694             :         }
     695             :     }
     696             : 
     697           0 :     if( aPortions.size() == 0 )
     698           0 :         return TextSelection();
     699             : 
     700           0 :     OUString sStr = aLine.copy( r.nBegin, r.nEnd - r.nBegin );
     701           0 :     TextPaM aStart( nLine, r.nBegin );
     702           0 :     TextPaM aEnd( nLine, r.nBegin + sStr.getLength() );
     703           0 :     return TextSelection( aStart, aEnd );
     704             : }
     705             : 
     706           0 : void EditorWindow::HandleAutoCloseParen()
     707             : {
     708           0 :     TextSelection aSel = GetEditView()->GetSelection();
     709           0 :     sal_uLong nLine =  aSel.GetStart().GetPara();
     710           0 :     OUString aLine( pEditEngine->GetText( nLine ) ); // the line being modified
     711             : 
     712           0 :     if( aLine.getLength() > 0 && aLine[aSel.GetEnd().GetIndex()-1] != '(' )
     713             :     {
     714           0 :         GetEditView()->InsertText(OUString(")"));
     715             :         //leave the cursor on it's place: inside the parenthesis
     716           0 :         TextPaM aEnd(nLine, aSel.GetEnd().GetIndex());
     717           0 :         GetEditView()->SetSelection( TextSelection( aEnd, aEnd ) );
     718           0 :     }
     719           0 : }
     720             : 
     721           0 : void EditorWindow::HandleAutoCloseDoubleQuotes()
     722             : {
     723           0 :     TextSelection aSel = GetEditView()->GetSelection();
     724           0 :     sal_uLong nLine =  aSel.GetStart().GetPara();
     725           0 :     OUString aLine( pEditEngine->GetText( nLine ) ); // the line being modified
     726             : 
     727           0 :     std::vector<HighlightPortion> aPortions;
     728           0 :     aHighlighter.getHighlightPortions( aLine, aPortions );
     729             : 
     730           0 :     if( aPortions.empty() )
     731           0 :         return;
     732             : 
     733           0 :     if( aLine.getLength() > 0 && !aLine.endsWith("\"") && (aPortions.back().tokenType != TT_STRING) )
     734             :     {
     735           0 :         GetEditView()->InsertText(OUString("\""));
     736             :         //leave the cursor on it's place: inside the two double quotes
     737           0 :         TextPaM aEnd(nLine, aSel.GetEnd().GetIndex());
     738           0 :         GetEditView()->SetSelection( TextSelection( aEnd, aEnd ) );
     739           0 :     }
     740             : }
     741             : 
     742           0 : void EditorWindow::HandleProcedureCompletion()
     743             : {
     744           0 :     TextSelection aSel = GetEditView()->GetSelection();
     745           0 :     sal_uLong nLine = aSel.GetStart().GetPara();
     746           0 :     OUString aLine( pEditEngine->GetText( nLine ) );
     747             : 
     748           0 :     std::vector<HighlightPortion> aPortions;
     749           0 :     aHighlighter.getHighlightPortions( aLine, aPortions );
     750             : 
     751           0 :     if( aPortions.empty() )
     752           0 :         return;
     753             : 
     754           0 :     OUString sProcType;
     755           0 :     OUString sProcName;
     756           0 :     bool bFoundType = false;
     757           0 :     bool bFoundName = false;
     758             : 
     759           0 :     for (std::vector<HighlightPortion>::iterator i(aPortions.begin());
     760           0 :          i != aPortions.end(); ++i)
     761             :     {
     762           0 :         OUString sTokStr = aLine.copy(i->nBegin, i->nEnd - i->nBegin);
     763             : 
     764           0 :         if( i->tokenType == 9 && ( sTokStr.equalsIgnoreAsciiCase("sub")
     765           0 :             || sTokStr.equalsIgnoreAsciiCase("function")) )
     766             :         {
     767           0 :             sProcType = sTokStr;
     768           0 :             bFoundType = true;
     769             :         }
     770           0 :         if( i->tokenType == 1 && bFoundType )
     771             :         {
     772           0 :             sProcName = sTokStr;
     773           0 :             bFoundName = true;
     774           0 :             break;
     775             :         }
     776           0 :     }
     777             : 
     778           0 :     if( !bFoundType || !bFoundName )
     779           0 :         return;// no sub/function keyword or there is no identifier
     780             : 
     781           0 :     OUString sText("\nEnd ");
     782           0 :     aSel = GetEditView()->GetSelection();
     783           0 :     if( sProcType.equalsIgnoreAsciiCase("function") )
     784           0 :         sText += "Function\n";
     785           0 :     if( sProcType.equalsIgnoreAsciiCase("sub") )
     786           0 :         sText += "Sub\n";
     787             : 
     788           0 :     if( nLine+1 == pEditEngine->GetParagraphCount() )
     789             :     {
     790           0 :         pEditView->InsertText( sText );//append to the end
     791           0 :         GetEditView()->SetSelection(aSel);
     792             :     }
     793             :     else
     794             :     {
     795           0 :         for( sal_uLong i = nLine+1; i < pEditEngine->GetParagraphCount(); ++i )
     796             :         {//searching forward for end token, or another sub/function definition
     797           0 :             OUString aCurrLine = pEditEngine->GetText( i );
     798           0 :             std::vector<HighlightPortion> aCurrPortions;
     799           0 :             aHighlighter.getHighlightPortions( aCurrLine, aCurrPortions );
     800             : 
     801           0 :             if( aCurrPortions.size() >= 3 )
     802             :             {//at least 3 tokens: (sub|function) whitespace idetifier ....
     803           0 :                 HighlightPortion& r = aCurrPortions.front();
     804           0 :                 OUString sStr = aCurrLine.copy(r.nBegin, r.nEnd - r.nBegin);
     805             : 
     806           0 :                 if( r.tokenType == 9 )
     807             :                 {
     808           0 :                     if( sStr.equalsIgnoreAsciiCase("sub") || sStr.equalsIgnoreAsciiCase("function") )
     809             :                     {
     810           0 :                         pEditView->InsertText( sText );//append to the end
     811           0 :                         GetEditView()->SetSelection(aSel);
     812           0 :                         break;
     813             :                     }
     814           0 :                     if( sStr.equalsIgnoreAsciiCase("end") )
     815           0 :                         break;
     816           0 :                 }
     817             :             }
     818           0 :         }
     819           0 :     }
     820             : }
     821             : 
     822           0 : void EditorWindow::HandleCodeCompletion()
     823             : {
     824           0 :     rModulWindow.UpdateModule();
     825           0 :     rModulWindow.GetSbModule()->GetCodeCompleteDataFromParse(aCodeCompleteCache);
     826           0 :     TextSelection aSel = GetEditView()->GetSelection();
     827           0 :     sal_uLong nLine =  aSel.GetStart().GetPara();
     828           0 :     OUString aLine( pEditEngine->GetText( nLine ) ); // the line being modified
     829           0 :     std::vector< OUString > aVect; //vector to hold the base variable+methods for the nested reflection
     830             : 
     831           0 :     std::vector<HighlightPortion> aPortions;
     832           0 :     aLine = aLine.copy(0, aSel.GetEnd().GetIndex());
     833           0 :     aHighlighter.getHighlightPortions( aLine, aPortions );
     834           0 :     if( !aPortions.empty() )
     835             :     {//use the syntax highlighter to grab out nested reflection calls, eg. aVar.aMethod("aa").aOtherMethod ..
     836           0 :         for( std::vector<HighlightPortion>::reverse_iterator i(
     837           0 :                  aPortions.rbegin());
     838           0 :              i != aPortions.rend(); ++i)
     839             :         {
     840           0 :             if( i->tokenType == TT_WHITESPACE ) // a whitespace: stop; if there is no ws, it goes to the beginning of the line
     841           0 :                 break;
     842           0 :             if( i->tokenType == TT_IDENTIFIER || i->tokenType == TT_KEYWORDS ) // extract the identifers(methods, base variable)
     843             :             /* an example: Dim aLocVar2 as com.sun.star.beans.PropertyValue
     844             :              * here, aLocVar2.Name, and PropertyValue's Name field is treated as a keyword(?!)
     845             :              * */
     846           0 :                 aVect.insert( aVect.begin(), aLine.copy(i->nBegin, i->nEnd - i->nBegin) );
     847             :         }
     848             : 
     849           0 :         if( aVect.size() == 0 )//nothing to do
     850           0 :             return;
     851           0 :         OUString sBaseName = aVect[0];//variable name
     852           0 :         OUString sVarType = aCodeCompleteCache.GetVarType( sBaseName );
     853           0 :         if( !sVarType.isEmpty() && CodeCompleteOptions::IsAutoCorrectOn() )
     854             :         {//correct variable name, if autocorrection on
     855           0 :             const OUString& sStr = aCodeCompleteCache.GetCorrectCaseVarName( sBaseName, GetActualSubName(nLine) );
     856           0 :             if( !sStr.isEmpty() )
     857             :             {
     858           0 :                 TextPaM aStart(nLine, aSel.GetStart().GetIndex() - sStr.getLength() );
     859           0 :                 TextSelection sTextSelection(aStart, TextPaM(nLine, aSel.GetStart().GetIndex()));
     860           0 :                 pEditEngine->ReplaceText( sTextSelection, sStr );
     861           0 :                 pEditView->SetSelection( aSel );
     862           0 :             }
     863             :         }
     864             : 
     865           0 :         UnoTypeCodeCompletetor aTypeCompletor( aVect, sVarType );
     866             : 
     867           0 :         if( aTypeCompletor.CanCodeComplete() )
     868             :         {
     869           0 :             std::vector< OUString > aEntryVect;//entries to be inserted into the list
     870           0 :             std::vector< OUString > aFieldVect = aTypeCompletor.GetXIdlClassFields();//fields
     871           0 :             aEntryVect.insert(aEntryVect.end(), aFieldVect.begin(), aFieldVect.end() );
     872           0 :             if( CodeCompleteOptions::IsExtendedTypeDeclaration() )
     873             :             {// if extended types on, reflect classes, else just the structs (XIdlClass without methods)
     874           0 :                 std::vector< OUString > aMethVect = aTypeCompletor.GetXIdlClassMethods();//methods
     875           0 :                 aEntryVect.insert(aEntryVect.end(), aMethVect.begin(), aMethVect.end() );
     876             :             }
     877           0 :             if( aEntryVect.size() > 0 )
     878           0 :                 SetupAndShowCodeCompleteWnd( aEntryVect, aSel );
     879           0 :         }
     880           0 :     }
     881             : }
     882             : 
     883           0 : void EditorWindow::SetupAndShowCodeCompleteWnd( const std::vector< OUString >& aEntryVect, TextSelection aSel )
     884             : {
     885             :     // clear the listbox
     886           0 :     pCodeCompleteWnd->ClearListBox();
     887             :     // fill the listbox
     888           0 :     for(unsigned int l = 0; l < aEntryVect.size(); ++l)
     889             :     {
     890           0 :         pCodeCompleteWnd->InsertEntry( aEntryVect[l] );
     891             :     }
     892             :     // show it
     893           0 :     pCodeCompleteWnd->Show();
     894           0 :     pCodeCompleteWnd->ResizeAndPositionListBox();
     895           0 :     pCodeCompleteWnd->SelectFirstEntry();
     896             :     // correct text selection, and set it
     897           0 :     aSel.GetStart().GetIndex() += 1;
     898           0 :     aSel.GetEnd().GetIndex() += 1;
     899           0 :     pCodeCompleteWnd->SetTextSelection( aSel );
     900             :     //give the focus to the EditView
     901           0 :     pEditView->GetWindow()->GrabFocus();
     902           0 : }
     903             : 
     904           0 : void EditorWindow::Paint( const Rectangle& rRect )
     905             : {
     906           0 :     if ( !pEditEngine )     // We need it now at latest
     907           0 :         CreateEditEngine();
     908             : 
     909           0 :     pEditView->Paint( rRect );
     910           0 : }
     911             : 
     912           0 : void EditorWindow::LoseFocus()
     913             : {
     914           0 :     SetSourceInBasic();
     915           0 :     Window::LoseFocus();
     916           0 : }
     917             : 
     918           0 : bool EditorWindow::SetSourceInBasic()
     919             : {
     920           0 :     bool bChanged = false;
     921           0 :     if ( pEditEngine && pEditEngine->IsModified()
     922           0 :         && !GetEditView()->IsReadOnly() )   // Added for #i60626, otherwise
     923             :             // any read only bug in the text engine could lead to a crash later
     924             :     {
     925           0 :         if ( !StarBASIC::IsRunning() ) // Not at runtime!
     926             :         {
     927           0 :             rModulWindow.UpdateModule();
     928           0 :             bChanged = true;
     929             :         }
     930             :     }
     931           0 :     return bChanged;
     932             : }
     933             : 
     934             : // Returns the position of the last character of any of the following
     935             : // EOL char combinations: CR, CR/LF, LF, return -1 if no EOL is found
     936           0 : sal_Int32 searchEOL( const OUString& rStr, sal_Int32 fromIndex )
     937             : {
     938           0 :     sal_Int32 iRetPos = -1;
     939             : 
     940           0 :     sal_Int32 iLF = rStr.indexOf( LINE_SEP, fromIndex );
     941           0 :     if( iLF != -1 )
     942             :     {
     943           0 :         iRetPos = iLF;
     944             :     }
     945             :     else
     946             :     {
     947           0 :         iRetPos = rStr.indexOf( LINE_SEP_CR, fromIndex );
     948             :     }
     949           0 :     return iRetPos;
     950             : }
     951             : 
     952           0 : void EditorWindow::CreateEditEngine()
     953             : {
     954           0 :     if ( pEditEngine )
     955           0 :         return;
     956             : 
     957           0 :     pEditEngine.reset(new ExtTextEngine);
     958           0 :     pEditView.reset(new ExtTextView(pEditEngine.get(), this));
     959           0 :     pEditView->SetAutoIndentMode(true);
     960           0 :     pEditEngine->SetUpdateMode(false);
     961           0 :     pEditEngine->InsertView(pEditView.get());
     962             : 
     963           0 :     ImplSetFont();
     964             : 
     965           0 :     aSyntaxIdleTimer.SetTimeout( 200 );
     966           0 :     aSyntaxIdleTimer.SetTimeoutHdl( LINK( this, EditorWindow, SyntaxTimerHdl ) );
     967             : 
     968           0 :     bool bWasDoSyntaxHighlight = bDoSyntaxHighlight;
     969           0 :     bDoSyntaxHighlight = false; // too slow for large texts...
     970           0 :     OUString aOUSource(rModulWindow.GetModule());
     971           0 :     sal_Int32 nLines = 0;
     972           0 :     sal_Int32 nIndex = -1;
     973           0 :     do
     974             :     {
     975           0 :         nLines++;
     976           0 :         nIndex = searchEOL( aOUSource, nIndex+1 );
     977             :     }
     978             :     while ( nIndex >= 0 );
     979             : 
     980             :     // nLines*4: SetText+Formatting+DoHighlight+Formatting
     981             :     // it could be cut down on one formatting but you would wait even longer
     982             :     // for the text then if the source code is long...
     983             :     pProgress.reset(new ProgressInfo(
     984           0 :         GetShell()->GetViewFrame()->GetObjectShell(),
     985             :         IDEResId(RID_STR_GENERATESOURCE).toString(),
     986           0 :         nLines*4
     987           0 :     ));
     988           0 :     setTextEngineText(*pEditEngine, aOUSource);
     989             : 
     990           0 :     pEditView->SetStartDocPos( Point( 0, 0 ) );
     991           0 :     pEditView->SetSelection( TextSelection() );
     992           0 :     rModulWindow.GetBreakPointWindow().GetCurYOffset() = 0;
     993           0 :     rModulWindow.GetLineNumberWindow().GetCurYOffset() = 0;
     994           0 :     pEditEngine->SetUpdateMode(true);
     995           0 :     rModulWindow.Update();   // has only been invalidated at UpdateMode = true
     996             : 
     997           0 :     pEditView->ShowCursor( true, true );
     998             : 
     999           0 :     StartListening( *pEditEngine );
    1000             : 
    1001           0 :     aSyntaxIdleTimer.Stop();
    1002           0 :     bDoSyntaxHighlight = bWasDoSyntaxHighlight;
    1003             : 
    1004             : 
    1005           0 :     for ( sal_uInt16 nLine = 0; nLine < nLines; nLine++ )
    1006           0 :         aSyntaxLineTable.insert( nLine );
    1007           0 :     ForceSyntaxTimeout();
    1008             : 
    1009           0 :     pProgress.reset();
    1010             : 
    1011           0 :     pEditView->EraseVirtualDevice();
    1012           0 :     pEditEngine->SetModified( false );
    1013           0 :     pEditEngine->EnableUndo( true );
    1014             : 
    1015           0 :     InitScrollBars();
    1016             : 
    1017           0 :     if (SfxBindings* pBindings = GetBindingsPtr())
    1018           0 :         pBindings->Invalidate( SID_BASICIDE_STAT_POS );
    1019             : 
    1020             :     DBG_ASSERT( rModulWindow.GetBreakPointWindow().GetCurYOffset() == 0, "CreateEditEngine: Brechpunkte verschoben?" );
    1021             : 
    1022             :     // set readonly mode for readonly libraries
    1023           0 :     ScriptDocument aDocument(rModulWindow.GetDocument());
    1024           0 :     OUString aOULibName(rModulWindow.GetLibName());
    1025           0 :     Reference< script::XLibraryContainer2 > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
    1026           0 :     if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) )
    1027             :     {
    1028           0 :         rModulWindow.SetReadOnly(true);
    1029             :     }
    1030             : 
    1031           0 :     if ( aDocument.isDocument() && aDocument.isReadOnly() )
    1032           0 :         rModulWindow.SetReadOnly(true);
    1033             : }
    1034             : 
    1035             : // virtual
    1036           0 : void EditorWindow::DataChanged(DataChangedEvent const & rDCEvt)
    1037             : {
    1038           0 :     Window::DataChanged(rDCEvt);
    1039           0 :     if (rDCEvt.GetType() == DATACHANGED_SETTINGS
    1040           0 :         && (rDCEvt.GetFlags() & SETTINGS_STYLE) != 0)
    1041             :     {
    1042           0 :         Color aColor(GetSettings().GetStyleSettings().GetFieldColor());
    1043           0 :         const AllSettings* pOldSettings = rDCEvt.GetOldSettings();
    1044           0 :         if (!pOldSettings || aColor != pOldSettings->GetStyleSettings().GetFieldColor())
    1045             :         {
    1046           0 :             SetBackground(Wallpaper(aColor));
    1047           0 :             Invalidate();
    1048             :         }
    1049           0 :         if (pEditEngine != 0)
    1050             :         {
    1051           0 :             aColor = GetSettings().GetStyleSettings().GetFieldTextColor();
    1052           0 :             if (!pOldSettings || aColor !=
    1053           0 :                     pOldSettings-> GetStyleSettings().GetFieldTextColor())
    1054             :             {
    1055           0 :                 Font aFont(pEditEngine->GetFont());
    1056           0 :                 aFont.SetColor(aColor);
    1057           0 :                 pEditEngine->SetFont(aFont);
    1058             :             }
    1059             :         }
    1060             :     }
    1061           0 : }
    1062             : 
    1063           0 : void EditorWindow::Notify( SfxBroadcaster& /*rBC*/, const SfxHint& rHint )
    1064             : {
    1065           0 :     if (TextHint const* pTextHint = dynamic_cast<TextHint const*>(&rHint))
    1066             :     {
    1067           0 :         TextHint const& rTextHint = *pTextHint;
    1068           0 :         if( rTextHint.GetId() == TEXT_HINT_VIEWSCROLLED )
    1069             :         {
    1070           0 :             if ( rModulWindow.GetHScrollBar() )
    1071           0 :                 rModulWindow.GetHScrollBar()->SetThumbPos( pEditView->GetStartDocPos().X() );
    1072           0 :             rModulWindow.GetEditVScrollBar().SetThumbPos( pEditView->GetStartDocPos().Y() );
    1073           0 :             rModulWindow.GetBreakPointWindow().DoScroll
    1074           0 :                 ( 0, rModulWindow.GetBreakPointWindow().GetCurYOffset() - pEditView->GetStartDocPos().Y() );
    1075           0 :             rModulWindow.GetLineNumberWindow().DoScroll
    1076           0 :                 ( 0, rModulWindow.GetLineNumberWindow().GetCurYOffset() - pEditView->GetStartDocPos().Y() );
    1077             :         }
    1078           0 :         else if( rTextHint.GetId() == TEXT_HINT_TEXTHEIGHTCHANGED )
    1079             :         {
    1080           0 :             if ( pEditView->GetStartDocPos().Y() )
    1081             :             {
    1082           0 :                 long nOutHeight = GetOutputSizePixel().Height();
    1083           0 :                 long nTextHeight = pEditEngine->GetTextHeight();
    1084           0 :                 if ( nTextHeight < nOutHeight )
    1085           0 :                     pEditView->Scroll( 0, pEditView->GetStartDocPos().Y() );
    1086             : 
    1087           0 :                 rModulWindow.GetLineNumberWindow().Invalidate();
    1088             :             }
    1089             : 
    1090           0 :             SetScrollBarRanges();
    1091             :         }
    1092           0 :         else if( rTextHint.GetId() == TEXT_HINT_TEXTFORMATTED )
    1093             :         {
    1094           0 :             if ( rModulWindow.GetHScrollBar() )
    1095             :             {
    1096           0 :                 sal_uLong nWidth = pEditEngine->CalcTextWidth();
    1097           0 :                 if ( (long)nWidth != nCurTextWidth )
    1098             :                 {
    1099           0 :                     nCurTextWidth = nWidth;
    1100           0 :                     rModulWindow.GetHScrollBar()->SetRange( Range( 0, (long)nCurTextWidth-1) );
    1101           0 :                     rModulWindow.GetHScrollBar()->SetThumbPos( pEditView->GetStartDocPos().X() );
    1102             :                 }
    1103             :             }
    1104           0 :             long nPrevTextWidth = nCurTextWidth;
    1105           0 :             nCurTextWidth = pEditEngine->CalcTextWidth();
    1106           0 :             if ( nCurTextWidth != nPrevTextWidth )
    1107           0 :                 SetScrollBarRanges();
    1108             :         }
    1109           0 :         else if( rTextHint.GetId() == TEXT_HINT_PARAINSERTED )
    1110             :         {
    1111           0 :             ParagraphInsertedDeleted( rTextHint.GetValue(), true );
    1112           0 :             DoDelayedSyntaxHighlight( rTextHint.GetValue() );
    1113             :         }
    1114           0 :         else if( rTextHint.GetId() == TEXT_HINT_PARAREMOVED )
    1115             :         {
    1116           0 :             ParagraphInsertedDeleted( rTextHint.GetValue(), false );
    1117             :         }
    1118           0 :         else if( rTextHint.GetId() == TEXT_HINT_PARACONTENTCHANGED )
    1119             :         {
    1120           0 :             DoDelayedSyntaxHighlight( rTextHint.GetValue() );
    1121             :         }
    1122           0 :         else if( rTextHint.GetId() == TEXT_HINT_VIEWSELECTIONCHANGED )
    1123             :         {
    1124           0 :             if (SfxBindings* pBindings = GetBindingsPtr())
    1125             :             {
    1126           0 :                 pBindings->Invalidate( SID_CUT );
    1127           0 :                 pBindings->Invalidate( SID_COPY );
    1128             :             }
    1129             :         }
    1130             :     }
    1131           0 : }
    1132             : 
    1133           0 : OUString EditorWindow::GetActualSubName( sal_uLong nLine )
    1134             : {
    1135           0 :     SbxArrayRef pMethods = rModulWindow.GetSbModule()->GetMethods();
    1136           0 :     for( sal_uInt16 i=0; i < pMethods->Count(); i++ )
    1137             :     {
    1138           0 :         SbxVariable* p = PTR_CAST( SbMethod, pMethods->Get( i ) );
    1139           0 :         OUString sName = p->GetName();
    1140           0 :         SbMethod* pMeth = p ? PTR_CAST( SbMethod, p ) : NULL;
    1141           0 :         if( pMeth )
    1142             :         {
    1143             :             sal_uInt16 l1,l2;
    1144           0 :             pMeth->GetLineRange(l1,l2);
    1145           0 :             if( (l1 <= nLine+1) && (nLine+1 <= l2) )
    1146             :             {
    1147           0 :                 return sName;
    1148             :             }
    1149             :         }
    1150           0 :     }
    1151           0 :     return OUString("");
    1152             : }
    1153             : 
    1154           0 : void EditorWindow::SetScrollBarRanges()
    1155             : {
    1156             :     // extra method, not InitScrollBars, because for EditEngine events too
    1157           0 :     if ( !pEditEngine )
    1158           0 :         return;
    1159             : 
    1160           0 :     if ( rModulWindow.GetHScrollBar() )
    1161           0 :         rModulWindow.GetHScrollBar()->SetRange( Range( 0, nCurTextWidth-1 ) );
    1162             : 
    1163           0 :     rModulWindow.GetEditVScrollBar().SetRange( Range( 0, pEditEngine->GetTextHeight()-1 ) );
    1164             : }
    1165             : 
    1166           0 : void EditorWindow::InitScrollBars()
    1167             : {
    1168           0 :     if ( !pEditEngine )
    1169           0 :         return;
    1170             : 
    1171           0 :     SetScrollBarRanges();
    1172           0 :     Size aOutSz( GetOutputSizePixel() );
    1173           0 :     rModulWindow.GetEditVScrollBar().SetVisibleSize( aOutSz.Height() );
    1174           0 :     rModulWindow.GetEditVScrollBar().SetPageSize( aOutSz.Height() * 8 / 10 );
    1175           0 :     rModulWindow.GetEditVScrollBar().SetLineSize( GetTextHeight() );
    1176           0 :     rModulWindow.GetEditVScrollBar().SetThumbPos( pEditView->GetStartDocPos().Y() );
    1177           0 :     rModulWindow.GetEditVScrollBar().Show();
    1178             : 
    1179           0 :     if ( rModulWindow.GetHScrollBar() )
    1180             :     {
    1181           0 :         rModulWindow.GetHScrollBar()->SetVisibleSize( aOutSz.Width() );
    1182           0 :         rModulWindow.GetHScrollBar()->SetPageSize( aOutSz.Width() * 8 / 10 );
    1183           0 :         rModulWindow.GetHScrollBar()->SetLineSize( GetTextWidth( "x" ) );
    1184           0 :         rModulWindow.GetHScrollBar()->SetThumbPos( pEditView->GetStartDocPos().X() );
    1185           0 :         rModulWindow.GetHScrollBar()->Show();
    1186             :     }
    1187             : }
    1188             : 
    1189           0 : void EditorWindow::ImpDoHighlight( sal_uLong nLine )
    1190             : {
    1191           0 :     if ( bDoSyntaxHighlight )
    1192             :     {
    1193           0 :         OUString aLine( pEditEngine->GetText( nLine ) );
    1194           0 :         bool const bWasModified = pEditEngine->IsModified();
    1195           0 :         pEditEngine->RemoveAttribs( nLine, true );
    1196           0 :         std::vector<HighlightPortion> aPortions;
    1197           0 :         aHighlighter.getHighlightPortions( aLine, aPortions );
    1198             : 
    1199           0 :         for (std::vector<HighlightPortion>::iterator i(aPortions.begin());
    1200           0 :              i != aPortions.end(); ++i)
    1201             :         {
    1202           0 :             Color const aColor = rModulWindow.GetLayout().GetSyntaxColor(i->tokenType);
    1203           0 :             pEditEngine->SetAttrib( TextAttribFontColor(aColor), nLine, i->nBegin, i->nEnd, true );
    1204             :         }
    1205             : 
    1206           0 :         pEditEngine->SetModified( bWasModified );
    1207             :     }
    1208           0 : }
    1209             : 
    1210           0 : void EditorWindow::UpdateSyntaxHighlighting ()
    1211             : {
    1212           0 :     unsigned nCount = pEditEngine->GetParagraphCount();
    1213           0 :     for (unsigned i = 0; i < nCount; ++i)
    1214           0 :         DoDelayedSyntaxHighlight(i);
    1215           0 : }
    1216             : 
    1217           0 : void EditorWindow::ImplSetFont()
    1218             : {
    1219             :     OUString sFontName(
    1220             :         officecfg::Office::Common::Font::SourceViewFont::FontName::get().
    1221           0 :         get_value_or( OUString() ) );
    1222           0 :     if ( sFontName.isEmpty() )
    1223             :     {
    1224           0 :         Font aTmpFont( OutputDevice::GetDefaultFont( DEFAULTFONT_FIXED, Application::GetSettings().GetUILanguageTag().getLanguageType(), 0 , this ) );
    1225           0 :         sFontName = aTmpFont.GetName();
    1226             :     }
    1227           0 :     Size aFontSize(0, officecfg::Office::Common::Font::SourceViewFont::FontHeight::get());
    1228           0 :     Font aFont( sFontName, aFontSize );
    1229           0 :     aFont.SetColor( GetSettings().GetStyleSettings().GetFieldTextColor() );
    1230           0 :     SetPointFont( aFont );
    1231           0 :     aFont = GetFont();
    1232             : 
    1233           0 :     rModulWindow.GetBreakPointWindow().SetFont( aFont );
    1234           0 :     rModulWindow.GetLineNumberWindow().SetFont( aFont );
    1235             : 
    1236           0 :     if ( pEditEngine )
    1237             :     {
    1238           0 :         bool const bModified = pEditEngine->IsModified();
    1239           0 :         pEditEngine->SetFont( aFont );
    1240           0 :         pEditEngine->SetModified( bModified );
    1241           0 :     }
    1242           0 : }
    1243             : 
    1244           0 : void EditorWindow::DoSyntaxHighlight( sal_uLong nPara )
    1245             : {
    1246             :     // because of the DelayedSyntaxHighlight it's possible
    1247             :     // that this line does not exist anymore!
    1248           0 :     if ( nPara < pEditEngine->GetParagraphCount() )
    1249             :     {
    1250             :         // unfortunately I'm not sure that excactly this line does Modified() ...
    1251           0 :         if ( pProgress )
    1252           0 :             pProgress->StepProgress();
    1253           0 :         ImpDoHighlight( nPara );
    1254             :     }
    1255           0 : }
    1256             : 
    1257           0 : void EditorWindow::DoDelayedSyntaxHighlight( sal_uLong nPara )
    1258             : {
    1259             :     // line is only added to 'Liste' (list), processed in TimerHdl
    1260             :     // => don't manipulate breaks while EditEngine is formatting
    1261           0 :     if ( pProgress )
    1262           0 :         pProgress->StepProgress();
    1263             : 
    1264           0 :     if ( !bHighlightning && bDoSyntaxHighlight )
    1265             :     {
    1266           0 :         if ( bDelayHighlight )
    1267             :         {
    1268           0 :             aSyntaxLineTable.insert( nPara );
    1269           0 :             aSyntaxIdleTimer.Start();
    1270             :         }
    1271             :         else
    1272           0 :             DoSyntaxHighlight( nPara );
    1273             :     }
    1274           0 : }
    1275             : 
    1276           0 : IMPL_LINK_NOARG(EditorWindow, SyntaxTimerHdl)
    1277             : {
    1278             :     DBG_ASSERT( pEditView, "Noch keine View, aber Syntax-Highlight ?!" );
    1279             : 
    1280           0 :     bool const bWasModified = pEditEngine->IsModified();
    1281             :     //pEditEngine->SetUpdateMode(false);
    1282             : 
    1283           0 :     bHighlightning = true;
    1284           0 :     for ( SyntaxLineSet::const_iterator it = aSyntaxLineTable.begin();
    1285           0 :           it != aSyntaxLineTable.end(); ++it )
    1286             :     {
    1287           0 :         sal_uInt16 nLine = *it;
    1288           0 :         DoSyntaxHighlight( nLine );
    1289             :     }
    1290             : 
    1291             :     // #i45572#
    1292           0 :     if ( pEditView )
    1293           0 :         pEditView->ShowCursor( false, true );
    1294             : 
    1295           0 :     pEditEngine->SetModified( bWasModified );
    1296             : 
    1297           0 :     aSyntaxLineTable.clear();
    1298           0 :     bHighlightning = false;
    1299             : 
    1300           0 :     return 0;
    1301             : }
    1302             : 
    1303           0 : void EditorWindow::ParagraphInsertedDeleted( sal_uLong nPara, bool bInserted )
    1304             : {
    1305           0 :     if ( pProgress )
    1306           0 :         pProgress->StepProgress();
    1307             : 
    1308           0 :     if ( !bInserted && ( nPara == TEXT_PARA_ALL ) )
    1309             :     {
    1310           0 :         rModulWindow.GetBreakPoints().reset();
    1311           0 :         rModulWindow.GetBreakPointWindow().Invalidate();
    1312           0 :         rModulWindow.GetLineNumberWindow().Invalidate();
    1313             :     }
    1314             :     else
    1315             :     {
    1316           0 :         rModulWindow.GetBreakPoints().AdjustBreakPoints( (sal_uInt16)nPara+1, bInserted );
    1317             : 
    1318           0 :         long nLineHeight = GetTextHeight();
    1319           0 :         Size aSz = rModulWindow.GetBreakPointWindow().GetOutputSize();
    1320           0 :         Rectangle aInvRect( Point( 0, 0 ), aSz );
    1321           0 :         long nY = nPara*nLineHeight - rModulWindow.GetBreakPointWindow().GetCurYOffset();
    1322           0 :         aInvRect.Top() = nY;
    1323           0 :         rModulWindow.GetBreakPointWindow().Invalidate( aInvRect );
    1324             : 
    1325           0 :         Size aLnSz(rModulWindow.GetLineNumberWindow().GetWidth(),
    1326           0 :                    GetOutputSizePixel().Height() - 2 * DWBORDER);
    1327           0 :         rModulWindow.GetLineNumberWindow().SetPosSizePixel(Point(DWBORDER + 19, DWBORDER), aLnSz);
    1328           0 :         rModulWindow.GetLineNumberWindow().Invalidate();
    1329             :     }
    1330           0 : }
    1331             : 
    1332           0 : void EditorWindow::CreateProgress( const OUString& rText, sal_uLong nRange )
    1333             : {
    1334             :     DBG_ASSERT( !pProgress, "ProgressInfo existiert schon" );
    1335             :     pProgress.reset(new ProgressInfo(
    1336           0 :         GetShell()->GetViewFrame()->GetObjectShell(),
    1337             :         rText,
    1338             :         nRange
    1339           0 :     ));
    1340           0 : }
    1341             : 
    1342           0 : void EditorWindow::DestroyProgress()
    1343             : {
    1344           0 :     pProgress.reset();
    1345           0 : }
    1346             : 
    1347           0 : void EditorWindow::ForceSyntaxTimeout()
    1348             : {
    1349           0 :     aSyntaxIdleTimer.Stop();
    1350           0 :     aSyntaxIdleTimer.GetTimeoutHdl().Call(&aSyntaxIdleTimer);
    1351           0 : }
    1352             : 
    1353             : 
    1354             : 
    1355             : // BreakPointWindow
    1356             : 
    1357             : 
    1358             : 
    1359           0 : BreakPointWindow::BreakPointWindow (Window* pParent, ModulWindow* pModulWindow)
    1360             :     : Window(pParent, WB_BORDER)
    1361             :     , rModulWindow(*pModulWindow)
    1362             :     , nCurYOffset(0) // memorize nCurYOffset and not take it from EditEngine
    1363             :     , nMarkerPos(NoMarker)
    1364           0 :     , bErrorMarker(false)
    1365             : {
    1366           0 :     setBackgroundColor(GetSettings().GetStyleSettings().GetFieldColor());
    1367           0 :     SetHelpId(HID_BASICIDE_BREAKPOINTWINDOW);
    1368           0 : }
    1369             : 
    1370           0 : BreakPointWindow::~BreakPointWindow()
    1371             : {
    1372           0 : }
    1373             : 
    1374             : 
    1375             : 
    1376           0 : void BreakPointWindow::Paint( const Rectangle& )
    1377             : {
    1378           0 :     if ( SyncYOffset() )
    1379           0 :         return;
    1380             : 
    1381           0 :     Size const aOutSz = GetOutputSize();
    1382           0 :     long const nLineHeight = GetTextHeight();
    1383             : 
    1384           0 :     Image const aBrk[2] = { GetImage(IMGID_BRKDISABLED), GetImage(IMGID_BRKENABLED) };
    1385           0 :     Size const aBmpSz = PixelToLogic(aBrk[1].GetSizePixel());
    1386             :     Point const aBmpOff(
    1387           0 :         (aOutSz.Width() - aBmpSz.Width()) / 2,
    1388           0 :         (nLineHeight - aBmpSz.Height()) / 2
    1389           0 :     );
    1390             : 
    1391           0 :     for (size_t i = 0, n = GetBreakPoints().size(); i < n; ++i)
    1392             :     {
    1393           0 :         BreakPoint& rBrk = *GetBreakPoints().at(i);
    1394           0 :         size_t const nLine = rBrk.nLine - 1;
    1395           0 :         size_t const nY = nLine*nLineHeight - nCurYOffset;
    1396           0 :         DrawImage(Point(0, nY) + aBmpOff, aBrk[rBrk.bEnabled]);
    1397             :     }
    1398           0 :     ShowMarker(true);
    1399             : }
    1400             : 
    1401             : 
    1402             : 
    1403           0 : void BreakPointWindow::DoScroll( long nHorzScroll, long nVertScroll )
    1404             : {
    1405           0 :     nCurYOffset -= nVertScroll;
    1406           0 :     Window::Scroll( nHorzScroll, nVertScroll );
    1407           0 : }
    1408             : 
    1409             : 
    1410             : 
    1411           0 : void BreakPointWindow::SetMarkerPos( sal_uInt16 nLine, bool bError )
    1412             : {
    1413           0 :     if ( SyncYOffset() )
    1414           0 :         Update();
    1415             : 
    1416           0 :     ShowMarker( false );
    1417           0 :     nMarkerPos = nLine;
    1418           0 :     bErrorMarker = bError;
    1419           0 :     ShowMarker( true );
    1420           0 : }
    1421             : 
    1422           0 : void BreakPointWindow::SetNoMarker ()
    1423             : {
    1424           0 :     SetMarkerPos(NoMarker);
    1425           0 : }
    1426             : 
    1427           0 : void BreakPointWindow::ShowMarker( bool bShow )
    1428             : {
    1429           0 :     if ( nMarkerPos == NoMarker )
    1430           0 :         return;
    1431             : 
    1432           0 :     Size const aOutSz = GetOutputSize();
    1433           0 :     long const nLineHeight = GetTextHeight();
    1434             : 
    1435           0 :     Image aMarker = GetImage(bErrorMarker ? IMGID_ERRORMARKER : IMGID_STEPMARKER);
    1436             : 
    1437           0 :     Size aMarkerSz( aMarker.GetSizePixel() );
    1438           0 :     aMarkerSz = PixelToLogic( aMarkerSz );
    1439           0 :     Point aMarkerOff( 0, 0 );
    1440           0 :     aMarkerOff.X() = ( aOutSz.Width() - aMarkerSz.Width() ) / 2;
    1441           0 :     aMarkerOff.Y() = ( nLineHeight - aMarkerSz.Height() ) / 2;
    1442             : 
    1443           0 :     sal_uLong nY = nMarkerPos*nLineHeight - nCurYOffset;
    1444           0 :     Point aPos( 0, nY );
    1445           0 :     aPos += aMarkerOff;
    1446           0 :     if ( bShow )
    1447           0 :         DrawImage( aPos, aMarker );
    1448             :     else
    1449           0 :         Invalidate( Rectangle( aPos, aMarkerSz ) );
    1450             : }
    1451             : 
    1452             : 
    1453             : 
    1454             : 
    1455           0 : BreakPoint* BreakPointWindow::FindBreakPoint( const Point& rMousePos )
    1456             : {
    1457           0 :     size_t nLineHeight = GetTextHeight();
    1458           0 :     nLineHeight = nLineHeight > 0 ? nLineHeight : 1;
    1459           0 :     size_t nYPos = rMousePos.Y() + nCurYOffset;
    1460             : 
    1461           0 :     for ( size_t i = 0, n = GetBreakPoints().size(); i < n ; ++i )
    1462             :     {
    1463           0 :         BreakPoint* pBrk = GetBreakPoints().at( i );
    1464           0 :         size_t nLine = pBrk->nLine-1;
    1465           0 :         size_t nY = nLine*nLineHeight;
    1466           0 :         if ( ( nYPos > nY ) && ( nYPos < ( nY + nLineHeight ) ) )
    1467           0 :             return pBrk;
    1468             :     }
    1469           0 :     return 0;
    1470             : }
    1471             : 
    1472           0 : void BreakPointWindow::MouseButtonDown( const MouseEvent& rMEvt )
    1473             : {
    1474           0 :     if ( rMEvt.GetClicks() == 2 )
    1475             :     {
    1476           0 :         Point aMousePos( PixelToLogic( rMEvt.GetPosPixel() ) );
    1477           0 :         long nLineHeight = GetTextHeight();
    1478           0 :         long nYPos = aMousePos.Y() + nCurYOffset;
    1479           0 :         long nLine = nYPos / nLineHeight + 1;
    1480           0 :         rModulWindow.ToggleBreakPoint( (sal_uLong)nLine );
    1481           0 :         Invalidate();
    1482             :     }
    1483           0 : }
    1484             : 
    1485             : 
    1486             : 
    1487           0 : void BreakPointWindow::Command( const CommandEvent& rCEvt )
    1488             : {
    1489           0 :     if ( rCEvt.GetCommand() == COMMAND_CONTEXTMENU )
    1490             :     {
    1491           0 :         Point aPos( rCEvt.IsMouseEvent() ? rCEvt.GetMousePosPixel() : Point(1,1) );
    1492           0 :         Point aEventPos( PixelToLogic( aPos ) );
    1493           0 :         BreakPoint* pBrk = rCEvt.IsMouseEvent() ? FindBreakPoint( aEventPos ) : 0;
    1494           0 :         if ( pBrk )
    1495             :         {
    1496             :             // test if break point is enabled...
    1497           0 :             PopupMenu aBrkPropMenu( IDEResId( RID_POPUP_BRKPROPS ) );
    1498           0 :             aBrkPropMenu.CheckItem( RID_ACTIV, pBrk->bEnabled );
    1499           0 :             switch ( aBrkPropMenu.Execute( this, aPos ) )
    1500             :             {
    1501             :                 case RID_ACTIV:
    1502             :                 {
    1503           0 :                     pBrk->bEnabled = !pBrk->bEnabled;
    1504           0 :                     rModulWindow.UpdateBreakPoint( *pBrk );
    1505           0 :                     Invalidate();
    1506             :                 }
    1507           0 :                 break;
    1508             :                 case RID_BRKPROPS:
    1509             :                 {
    1510           0 :                     BreakPointDialog aBrkDlg( this, GetBreakPoints() );
    1511           0 :                     aBrkDlg.SetCurrentBreakPoint( pBrk );
    1512           0 :                     aBrkDlg.Execute();
    1513           0 :                     Invalidate();
    1514             :                 }
    1515           0 :                 break;
    1516           0 :             }
    1517             :         }
    1518             :         else
    1519             :         {
    1520           0 :             PopupMenu aBrkListMenu( IDEResId( RID_POPUP_BRKDLG ) );
    1521           0 :             switch ( aBrkListMenu.Execute( this, aPos ) )
    1522             :             {
    1523             :                 case RID_BRKDLG:
    1524             :                 {
    1525           0 :                     BreakPointDialog aBrkDlg( this, GetBreakPoints() );
    1526           0 :                     aBrkDlg.Execute();
    1527           0 :                     Invalidate();
    1528             :                 }
    1529           0 :                 break;
    1530           0 :             }
    1531             :         }
    1532             :     }
    1533           0 : }
    1534             : 
    1535           0 : bool BreakPointWindow::SyncYOffset()
    1536             : {
    1537           0 :     TextView* pView = rModulWindow.GetEditView();
    1538           0 :     if ( pView )
    1539             :     {
    1540           0 :         long nViewYOffset = pView->GetStartDocPos().Y();
    1541           0 :         if ( nCurYOffset != nViewYOffset )
    1542             :         {
    1543           0 :             nCurYOffset = nViewYOffset;
    1544           0 :             Invalidate();
    1545           0 :             return true;
    1546             :         }
    1547             :     }
    1548           0 :     return false;
    1549             : }
    1550             : 
    1551             : // virtual
    1552           0 : void BreakPointWindow::DataChanged(DataChangedEvent const & rDCEvt)
    1553             : {
    1554           0 :     Window::DataChanged(rDCEvt);
    1555           0 :     if (rDCEvt.GetType() == DATACHANGED_SETTINGS
    1556           0 :         && (rDCEvt.GetFlags() & SETTINGS_STYLE) != 0)
    1557             :     {
    1558           0 :         Color aColor(GetSettings().GetStyleSettings().GetFieldColor());
    1559           0 :         const AllSettings* pOldSettings = rDCEvt.GetOldSettings();
    1560           0 :         if (!pOldSettings || aColor != pOldSettings->GetStyleSettings().GetFieldColor())
    1561             :         {
    1562           0 :             setBackgroundColor(aColor);
    1563           0 :             Invalidate();
    1564             :         }
    1565             :     }
    1566           0 : }
    1567             : 
    1568           0 : void BreakPointWindow::setBackgroundColor(Color aColor)
    1569             : {
    1570           0 :     SetBackground(Wallpaper(aColor));
    1571           0 : }
    1572             : 
    1573             : 
    1574             : 
    1575             : // WatchWindow
    1576             : 
    1577             : 
    1578             : 
    1579             : namespace
    1580             : {
    1581             :     const sal_uInt16 ITEM_ID_VARIABLE = 1;
    1582             :     const sal_uInt16 ITEM_ID_VALUE = 2;
    1583             :     const sal_uInt16 ITEM_ID_TYPE = 3;
    1584             : }
    1585             : 
    1586           0 : WatchWindow::WatchWindow (Layout* pParent) :
    1587             :     DockingWindow(pParent),
    1588             :     aWatchStr( IDEResId( RID_STR_REMOVEWATCH ) ),
    1589             :     aXEdit( this, IDEResId( RID_EDT_WATCHEDIT ) ),
    1590             :     aRemoveWatchButton( this, IDEResId( RID_IMGBTN_REMOVEWATCH ) ),
    1591             :     aTreeListBox( this, WB_BORDER | WB_3DLOOK | WB_HASBUTTONS | WB_HASLINES | WB_HSCROLL | WB_TABSTOP
    1592             :                                   | WB_HASLINESATROOT | WB_HASBUTTONSATROOT ),
    1593           0 :     aHeaderBar( this, WB_BUTTONSTYLE | WB_BORDER )
    1594             : {
    1595           0 :     aXEdit.SetAccessibleName(IDEResId(RID_STR_WATCHNAME).toString());
    1596           0 :     aTreeListBox.SetAccessibleName(IDEResId(RID_STR_WATCHNAME).toString());
    1597             : 
    1598           0 :     long nTextLen = GetTextWidth( aWatchStr ) + DWBORDER + 3;
    1599           0 :     aXEdit.SetPosPixel( Point( nTextLen, 3 ) );
    1600           0 :     aXEdit.SetAccHdl( LINK( this, WatchWindow, EditAccHdl ) );
    1601           0 :     aXEdit.GetAccelerator().InsertItem( 1, KeyCode( KEY_RETURN ) );
    1602           0 :     aXEdit.GetAccelerator().InsertItem( 2, KeyCode( KEY_ESCAPE ) );
    1603           0 :     aXEdit.Show();
    1604             : 
    1605           0 :     aRemoveWatchButton.Disable();
    1606           0 :     aRemoveWatchButton.SetClickHdl( LINK( this, WatchWindow, ButtonHdl ) );
    1607           0 :     aRemoveWatchButton.SetPosPixel( Point( nTextLen + aXEdit.GetSizePixel().Width() + 4, 2 ) );
    1608           0 :     Size aSz( aRemoveWatchButton.GetModeImage().GetSizePixel() );
    1609           0 :     aSz.Width() += 6;
    1610           0 :     aSz.Height() += 6;
    1611           0 :     aRemoveWatchButton.SetSizePixel( aSz );
    1612           0 :     aRemoveWatchButton.Show();
    1613             : 
    1614           0 :     long nRWBtnSize = aRemoveWatchButton.GetModeImage().GetSizePixel().Height() + 10;
    1615           0 :     nVirtToolBoxHeight = aXEdit.GetSizePixel().Height() + 7;
    1616             : 
    1617           0 :     if ( nRWBtnSize > nVirtToolBoxHeight )
    1618           0 :         nVirtToolBoxHeight = nRWBtnSize;
    1619             : 
    1620           0 :     nHeaderBarHeight = 16;
    1621             : 
    1622           0 :     aTreeListBox.SetHelpId(HID_BASICIDE_WATCHWINDOW_LIST);
    1623           0 :     aTreeListBox.EnableInplaceEditing(true);
    1624           0 :     aTreeListBox.SetSelectHdl( LINK( this, WatchWindow, TreeListHdl ) );
    1625           0 :     aTreeListBox.SetPosPixel( Point( DWBORDER, nVirtToolBoxHeight + nHeaderBarHeight ) );
    1626           0 :     aTreeListBox.SetHighlightRange( 1, 5 );
    1627             : 
    1628           0 :     Point aPnt( DWBORDER, nVirtToolBoxHeight + 1 );
    1629           0 :     aHeaderBar.SetPosPixel( aPnt );
    1630           0 :     aHeaderBar.SetEndDragHdl( LINK( this, WatchWindow, implEndDragHdl ) );
    1631             : 
    1632           0 :     long nVarTabWidth = 220;
    1633           0 :     long nValueTabWidth = 100;
    1634           0 :     long nTypeTabWidth = 1250;
    1635           0 :     aHeaderBar.InsertItem( ITEM_ID_VARIABLE, IDEResId(RID_STR_WATCHVARIABLE).toString(), nVarTabWidth );
    1636           0 :     aHeaderBar.InsertItem( ITEM_ID_VALUE, IDEResId(RID_STR_WATCHVALUE).toString(), nValueTabWidth );
    1637           0 :     aHeaderBar.InsertItem( ITEM_ID_TYPE, IDEResId(RID_STR_WATCHTYPE).toString(), nTypeTabWidth );
    1638             : 
    1639             :     long tabs[ 4 ];
    1640           0 :     tabs[ 0 ] = 3; // two tabs
    1641           0 :     tabs[ 1 ] = 0;
    1642           0 :     tabs[ 2 ] = nVarTabWidth;
    1643           0 :     tabs[ 3 ] = nVarTabWidth + nValueTabWidth;
    1644           0 :     aTreeListBox.SvHeaderTabListBox::SetTabs( tabs, MAP_PIXEL );
    1645           0 :     aTreeListBox.InitHeaderBar( &aHeaderBar );
    1646             : 
    1647           0 :     aTreeListBox.SetNodeDefaultImages( );
    1648             : 
    1649           0 :     aHeaderBar.Show();
    1650             : 
    1651           0 :     aTreeListBox.Show();
    1652             : 
    1653           0 :     SetText(IDEResId(RID_STR_WATCHNAME).toString());
    1654             : 
    1655           0 :     SetHelpId( HID_BASICIDE_WATCHWINDOW );
    1656             : 
    1657             :     // make watch window keyboard accessible
    1658           0 :     GetSystemWindow()->GetTaskPaneList()->AddWindow( this );
    1659           0 : }
    1660             : 
    1661             : 
    1662             : 
    1663           0 : WatchWindow::~WatchWindow()
    1664             : {
    1665           0 :     GetSystemWindow()->GetTaskPaneList()->RemoveWindow( this );
    1666           0 : }
    1667             : 
    1668             : 
    1669             : 
    1670           0 : void WatchWindow::Paint( const Rectangle& )
    1671             : {
    1672           0 :     DrawText( Point( DWBORDER, 7 ), aWatchStr );
    1673           0 :     lcl_DrawIDEWindowFrame( this );
    1674           0 : }
    1675             : 
    1676             : 
    1677             : 
    1678           0 : void WatchWindow::Resize()
    1679             : {
    1680           0 :     Size aSz = GetOutputSizePixel();
    1681           0 :     Size aBoxSz( aSz.Width() - 2*DWBORDER, aSz.Height() - nVirtToolBoxHeight - DWBORDER );
    1682             : 
    1683           0 :     if ( aBoxSz.Width() < 4 )
    1684           0 :         aBoxSz.Width() = 0;
    1685           0 :     if ( aBoxSz.Height() < 4 )
    1686           0 :         aBoxSz.Height() = 0;
    1687             : 
    1688           0 :     aBoxSz.Height() -= nHeaderBarHeight;
    1689           0 :     aTreeListBox.SetSizePixel( aBoxSz );
    1690           0 :     aTreeListBox.GetHScroll()->SetPageSize( aTreeListBox.GetHScroll()->GetVisibleSize() );
    1691             : 
    1692           0 :     aBoxSz.Height() = nHeaderBarHeight;
    1693           0 :     aHeaderBar.SetSizePixel( aBoxSz );
    1694             : 
    1695           0 :     Invalidate();
    1696           0 : }
    1697             : 
    1698           0 : struct WatchItem
    1699             : {
    1700             :     OUString        maName;
    1701             :     OUString        maDisplayName;
    1702             :     SbxObjectRef    mpObject;
    1703             :     std::vector<OUString> maMemberList;
    1704             : 
    1705             :     SbxDimArrayRef  mpArray;
    1706             :     int             nDimLevel;  // 0 = Root
    1707             :     int             nDimCount;
    1708             :     std::vector<short> vIndices;
    1709             : 
    1710             :     WatchItem*      mpArrayParentItem;
    1711             : 
    1712           0 :     WatchItem (OUString const& rName):
    1713             :         maName(rName),
    1714             :         nDimLevel(0),
    1715             :         nDimCount(0),
    1716           0 :         mpArrayParentItem(0)
    1717           0 :     { }
    1718             : 
    1719           0 :     void clearWatchItem ()
    1720             :     {
    1721           0 :         maMemberList.clear();
    1722           0 :     }
    1723             : 
    1724             :     WatchItem* GetRootItem( void );
    1725             :     SbxDimArray* GetRootArray( void );
    1726             : };
    1727             : 
    1728           0 : WatchItem* WatchItem::GetRootItem( void )
    1729             : {
    1730           0 :     WatchItem* pItem = mpArrayParentItem;
    1731           0 :     while( pItem )
    1732             :     {
    1733           0 :         if( pItem->mpArray.Is() )
    1734           0 :             break;
    1735           0 :         pItem = pItem->mpArrayParentItem;
    1736             :     }
    1737           0 :     return pItem;
    1738             : }
    1739             : 
    1740           0 : SbxDimArray* WatchItem::GetRootArray( void )
    1741             : {
    1742           0 :     WatchItem* pRootItem = GetRootItem();
    1743           0 :     SbxDimArray* pRet = NULL;
    1744           0 :     if( pRootItem )
    1745           0 :         pRet = pRootItem->mpArray;
    1746           0 :     return pRet;
    1747             : }
    1748             : 
    1749           0 : void WatchWindow::AddWatch( const OUString& rVName )
    1750             : {
    1751           0 :     OUString aVar, aIndex;
    1752           0 :     lcl_SeparateNameAndIndex( rVName, aVar, aIndex );
    1753           0 :     WatchItem* pWatchItem = new WatchItem(aVar);
    1754             : 
    1755           0 :     OUString aWatchStr_( aVar );
    1756           0 :     aWatchStr_ += "\t\t";
    1757           0 :     SvTreeListEntry* pNewEntry = aTreeListBox.InsertEntry( aWatchStr_, 0, true, TREELIST_APPEND );
    1758           0 :     pNewEntry->SetUserData( pWatchItem );
    1759             : 
    1760           0 :     aTreeListBox.Select(pNewEntry, true);
    1761           0 :     aTreeListBox.MakeVisible(pNewEntry);
    1762           0 :     aRemoveWatchButton.Enable();
    1763             : 
    1764           0 :     UpdateWatches();
    1765           0 : }
    1766             : 
    1767           0 : bool WatchWindow::RemoveSelectedWatch()
    1768             : {
    1769           0 :     SvTreeListEntry* pEntry = aTreeListBox.GetCurEntry();
    1770           0 :     if ( pEntry )
    1771             :     {
    1772           0 :         aTreeListBox.GetModel()->Remove( pEntry );
    1773           0 :         pEntry = aTreeListBox.GetCurEntry();
    1774           0 :         if ( pEntry )
    1775           0 :             aXEdit.SetText( ((WatchItem*)pEntry->GetUserData())->maName );
    1776             :         else
    1777           0 :             aXEdit.SetText( OUString() );
    1778           0 :         if ( !aTreeListBox.GetEntryCount() )
    1779           0 :             aRemoveWatchButton.Disable();
    1780           0 :         return true;
    1781             :     }
    1782             :     else
    1783           0 :         return false;
    1784             : }
    1785             : 
    1786             : 
    1787           0 : IMPL_LINK_INLINE_START( WatchWindow, ButtonHdl, ImageButton *, pButton )
    1788             : {
    1789           0 :     if (pButton == &aRemoveWatchButton)
    1790           0 :         if (SfxDispatcher* pDispatcher = GetDispatcher())
    1791           0 :             pDispatcher->Execute(SID_BASICIDE_REMOVEWATCH);
    1792           0 :     return 0;
    1793             : }
    1794           0 : IMPL_LINK_INLINE_END( WatchWindow, ButtonHdl, ImageButton *, pButton )
    1795             : 
    1796             : 
    1797             : 
    1798           0 : IMPL_LINK_NOARG_INLINE_START(WatchWindow, TreeListHdl)
    1799             : {
    1800           0 :     SvTreeListEntry* pCurEntry = aTreeListBox.GetCurEntry();
    1801           0 :     if ( pCurEntry && pCurEntry->GetUserData() )
    1802           0 :         aXEdit.SetText( ((WatchItem*)pCurEntry->GetUserData())->maName );
    1803             : 
    1804           0 :     return 0;
    1805             : }
    1806           0 : IMPL_LINK_NOARG_INLINE_END(WatchWindow, TreeListHdl)
    1807             : 
    1808             : 
    1809           0 : IMPL_LINK_INLINE_START( WatchWindow, implEndDragHdl, HeaderBar *, pBar )
    1810             : {
    1811             :     (void)pBar;
    1812             : 
    1813           0 :     const sal_Int32 TAB_WIDTH_MIN = 10;
    1814             :     sal_Int32 nMaxWidth =
    1815           0 :         aHeaderBar.GetSizePixel().getWidth() - 2 * TAB_WIDTH_MIN;
    1816             : 
    1817           0 :     sal_Int32 nVariableWith = aHeaderBar.GetItemSize( ITEM_ID_VARIABLE );
    1818           0 :     if( nVariableWith < TAB_WIDTH_MIN )
    1819           0 :         aHeaderBar.SetItemSize( ITEM_ID_VARIABLE, TAB_WIDTH_MIN );
    1820           0 :     else if( nVariableWith > nMaxWidth )
    1821           0 :         aHeaderBar.SetItemSize( ITEM_ID_VARIABLE, nMaxWidth );
    1822             : 
    1823           0 :     sal_Int32 nValueWith = aHeaderBar.GetItemSize( ITEM_ID_VALUE );
    1824           0 :     if( nValueWith < TAB_WIDTH_MIN )
    1825           0 :         aHeaderBar.SetItemSize( ITEM_ID_VALUE, TAB_WIDTH_MIN );
    1826           0 :     else if( nValueWith > nMaxWidth )
    1827           0 :         aHeaderBar.SetItemSize( ITEM_ID_VALUE, nMaxWidth );
    1828             : 
    1829           0 :     if (aHeaderBar.GetItemSize( ITEM_ID_TYPE ) < TAB_WIDTH_MIN)
    1830           0 :         aHeaderBar.SetItemSize( ITEM_ID_TYPE, TAB_WIDTH_MIN );
    1831             : 
    1832           0 :     sal_Int32 nPos = 0;
    1833           0 :     sal_uInt16 nTabs = aHeaderBar.GetItemCount();
    1834           0 :     for( sal_uInt16 i = 1 ; i < nTabs ; ++i )
    1835             :     {
    1836           0 :         nPos += aHeaderBar.GetItemSize( i );
    1837           0 :         aTreeListBox.SetTab( i, nPos, MAP_PIXEL );
    1838             :     }
    1839           0 :     return 0;
    1840             : }
    1841           0 : IMPL_LINK_INLINE_END( WatchWindow, implEndDragHdl, HeaderBar *, pBar )
    1842             : 
    1843             : 
    1844           0 : IMPL_LINK( WatchWindow, EditAccHdl, Accelerator *, pAcc )
    1845             : {
    1846           0 :     switch ( pAcc->GetCurKeyCode().GetCode() )
    1847             :     {
    1848             :         case KEY_RETURN:
    1849             :         {
    1850           0 :             OUString aCurText( aXEdit.GetText() );
    1851           0 :             if ( !aCurText.isEmpty() )
    1852             :             {
    1853           0 :                 AddWatch( aCurText );
    1854           0 :                 aXEdit.SetSelection( Selection( 0, 0xFFFF ) );
    1855           0 :             }
    1856             :         }
    1857           0 :         break;
    1858             :         case KEY_ESCAPE:
    1859             :         {
    1860           0 :             aXEdit.SetText( OUString() );
    1861             :         }
    1862           0 :         break;
    1863             :     }
    1864             : 
    1865           0 :     return 0;
    1866             : }
    1867             : 
    1868           0 : void WatchWindow::UpdateWatches( bool bBasicStopped )
    1869             : {
    1870           0 :     aTreeListBox.UpdateWatches( bBasicStopped );
    1871           0 : }
    1872             : 
    1873             : 
    1874             : 
    1875             : // StackWindow
    1876             : 
    1877             : 
    1878             : 
    1879           0 : StackWindow::StackWindow (Layout* pParent) :
    1880             :     DockingWindow(pParent),
    1881             :     aTreeListBox( this, WB_BORDER | WB_3DLOOK | WB_HSCROLL | WB_TABSTOP ),
    1882           0 :     aStackStr( IDEResId( RID_STR_STACK ) )
    1883             : {
    1884           0 :     aTreeListBox.SetHelpId(HID_BASICIDE_STACKWINDOW_LIST);
    1885           0 :     aTreeListBox.SetAccessibleName(IDEResId(RID_STR_STACKNAME).toString());
    1886           0 :     aTreeListBox.SetPosPixel( Point( DWBORDER, nVirtToolBoxHeight ) );
    1887           0 :     aTreeListBox.SetHighlightRange();
    1888           0 :     aTreeListBox.SetSelectionMode( NO_SELECTION );
    1889           0 :     aTreeListBox.InsertEntry( OUString(), 0, false, TREELIST_APPEND );
    1890           0 :     aTreeListBox.Show();
    1891             : 
    1892           0 :     SetText(IDEResId(RID_STR_STACKNAME).toString());
    1893             : 
    1894           0 :     SetHelpId( HID_BASICIDE_STACKWINDOW );
    1895             : 
    1896             :     // make stack window keyboard accessible
    1897           0 :     GetSystemWindow()->GetTaskPaneList()->AddWindow( this );
    1898           0 : }
    1899             : 
    1900             : 
    1901             : 
    1902           0 : StackWindow::~StackWindow()
    1903             : {
    1904           0 :     GetSystemWindow()->GetTaskPaneList()->RemoveWindow( this );
    1905           0 : }
    1906             : 
    1907             : 
    1908             : 
    1909           0 : void StackWindow::Paint( const Rectangle& )
    1910             : {
    1911           0 :     DrawText( Point( DWBORDER, 7 ), aStackStr );
    1912           0 :     lcl_DrawIDEWindowFrame( this );
    1913           0 : }
    1914             : 
    1915             : 
    1916             : 
    1917           0 : void StackWindow::Resize()
    1918             : {
    1919           0 :     Size aSz = GetOutputSizePixel();
    1920           0 :     Size aBoxSz( aSz.Width() - 2*DWBORDER, aSz.Height() - nVirtToolBoxHeight - DWBORDER );
    1921             : 
    1922           0 :     if ( aBoxSz.Width() < 4 )
    1923           0 :         aBoxSz.Width() = 0;
    1924           0 :     if ( aBoxSz.Height() < 4 )
    1925           0 :         aBoxSz.Height() = 0;
    1926             : 
    1927           0 :     aTreeListBox.SetSizePixel( aBoxSz );
    1928             : 
    1929           0 :     Invalidate();
    1930           0 : }
    1931             : 
    1932           0 : void StackWindow::UpdateCalls()
    1933             : {
    1934           0 :     aTreeListBox.SetUpdateMode(false);
    1935           0 :     aTreeListBox.Clear();
    1936             : 
    1937           0 :     if ( StarBASIC::IsRunning() )
    1938             :     {
    1939           0 :         SbxError eOld = SbxBase::GetError();
    1940           0 :         aTreeListBox.SetSelectionMode( SINGLE_SELECTION );
    1941             : 
    1942           0 :         sal_Int32 nScope = 0;
    1943           0 :         SbMethod* pMethod = StarBASIC::GetActiveMethod( nScope );
    1944           0 :         while ( pMethod )
    1945             :         {
    1946           0 :             OUString aEntry( OUString::number(nScope ));
    1947           0 :             if ( aEntry.getLength() < 2 )
    1948           0 :                 aEntry = " " + aEntry;
    1949           0 :             aEntry += ": "  + pMethod->GetName();
    1950           0 :             SbxArray* pParams = pMethod->GetParameters();
    1951           0 :             SbxInfo* pInfo = pMethod->GetInfo();
    1952           0 :             if ( pParams )
    1953             :             {
    1954           0 :                 aEntry += "(";
    1955             :                 // 0 is the sub's name...
    1956           0 :                 for ( sal_uInt16 nParam = 1; nParam < pParams->Count(); nParam++ )
    1957             :                 {
    1958           0 :                     SbxVariable* pVar = pParams->Get( nParam );
    1959             :                     DBG_ASSERT( pVar, "Parameter?!" );
    1960           0 :                     if ( !pVar->GetName().isEmpty() )
    1961             :                     {
    1962           0 :                         aEntry += pVar->GetName();
    1963             :                     }
    1964           0 :                     else if ( pInfo )
    1965             :                     {
    1966           0 :                         const SbxParamInfo* pParam = pInfo->GetParam( nParam );
    1967           0 :                         if ( pParam )
    1968             :                         {
    1969           0 :                             aEntry += pParam->aName;
    1970             :                         }
    1971             :                     }
    1972           0 :                     aEntry += "=";
    1973           0 :                     SbxDataType eType = pVar->GetType();
    1974           0 :                     if( eType & SbxARRAY )
    1975             :                     {
    1976           0 :                         aEntry += "..." ;
    1977             :                     }
    1978           0 :                     else if( eType != SbxOBJECT )
    1979             :                     {
    1980           0 :                         aEntry += pVar->GetOUString();
    1981             :                     }
    1982           0 :                     if ( nParam < ( pParams->Count() - 1 ) )
    1983             :                     {
    1984           0 :                         aEntry += ", ";
    1985             :                     }
    1986             :                 }
    1987           0 :                 aEntry += ")";
    1988             :             }
    1989           0 :             aTreeListBox.InsertEntry( aEntry, 0, false, TREELIST_APPEND );
    1990           0 :             nScope++;
    1991           0 :             pMethod = StarBASIC::GetActiveMethod( nScope );
    1992           0 :         }
    1993             : 
    1994           0 :         SbxBase::ResetError();
    1995           0 :         if( eOld != SbxERR_OK )
    1996           0 :             SbxBase::SetError( eOld );
    1997             :     }
    1998             :     else
    1999             :     {
    2000           0 :         aTreeListBox.SetSelectionMode( NO_SELECTION );
    2001           0 :         aTreeListBox.InsertEntry( OUString(), 0, false, TREELIST_APPEND );
    2002             :     }
    2003             : 
    2004           0 :     aTreeListBox.SetUpdateMode(true);
    2005           0 : }
    2006             : 
    2007             : 
    2008             : 
    2009             : // ComplexEditorWindow
    2010             : 
    2011             : 
    2012             : 
    2013           0 : ComplexEditorWindow::ComplexEditorWindow( ModulWindow* pParent ) :
    2014             :     Window( pParent, WB_3DLOOK | WB_CLIPCHILDREN ),
    2015             :     aBrkWindow(this, pParent),
    2016             :     aLineNumberWindow(this, pParent),
    2017             :     aEdtWindow(this, pParent),
    2018           0 :     aEWVScrollBar( this, WB_VSCROLL | WB_DRAG )
    2019             : {
    2020           0 :     aEdtWindow.Show();
    2021           0 :     aBrkWindow.Show();
    2022             : 
    2023           0 :     aEWVScrollBar.SetLineSize(nScrollLine);
    2024           0 :     aEWVScrollBar.SetPageSize(nScrollPage);
    2025           0 :     aEWVScrollBar.SetScrollHdl( LINK( this, ComplexEditorWindow, ScrollHdl ) );
    2026           0 :     aEWVScrollBar.Show();
    2027           0 : }
    2028             : 
    2029           0 : void ComplexEditorWindow::Resize()
    2030             : {
    2031           0 :     Size aOutSz = GetOutputSizePixel();
    2032           0 :     Size aSz( aOutSz );
    2033           0 :     aSz.Width() -= 2*DWBORDER;
    2034           0 :     aSz.Height() -= 2*DWBORDER;
    2035           0 :     long nBrkWidth = 20;
    2036           0 :     long nSBWidth = aEWVScrollBar.GetSizePixel().Width();
    2037             : 
    2038           0 :     Size aBrkSz(nBrkWidth, aSz.Height());
    2039             : 
    2040           0 :     Size aLnSz(aLineNumberWindow.GetWidth(), aSz.Height());
    2041             : 
    2042           0 :     if (aLineNumberWindow.IsVisible())
    2043             :     {
    2044           0 :         aBrkWindow.SetPosSizePixel( Point( DWBORDER, DWBORDER ), aBrkSz );
    2045           0 :         aLineNumberWindow.SetPosSizePixel(Point(DWBORDER + aBrkSz.Width() - 1, DWBORDER), aLnSz);
    2046           0 :         Size aEWSz(aSz.Width() - nBrkWidth - aLineNumberWindow.GetWidth() - nSBWidth + 2, aSz.Height());
    2047           0 :         aEdtWindow.SetPosSizePixel( Point( DWBORDER + aBrkSz.Width() + aLnSz.Width() - 1, DWBORDER ), aEWSz );
    2048             :     }
    2049             :     else
    2050             :     {
    2051           0 :         aBrkWindow.SetPosSizePixel( Point( DWBORDER, DWBORDER ), aBrkSz );
    2052           0 :         Size aEWSz(aSz.Width() - nBrkWidth - nSBWidth + 2, aSz.Height());
    2053           0 :         aEdtWindow.SetPosSizePixel(Point(DWBORDER + aBrkSz.Width() - 1, DWBORDER), aEWSz);
    2054             :     }
    2055             : 
    2056           0 :     aEWVScrollBar.SetPosSizePixel( Point( aOutSz.Width() - DWBORDER - nSBWidth, DWBORDER ), Size( nSBWidth, aSz.Height() ) );
    2057           0 : }
    2058             : 
    2059           0 : IMPL_LINK( ComplexEditorWindow, ScrollHdl, ScrollBar *, pCurScrollBar )
    2060             : {
    2061           0 :     if ( aEdtWindow.GetEditView() )
    2062             :     {
    2063             :         DBG_ASSERT( pCurScrollBar == &aEWVScrollBar, "Wer scrollt hier ?" );
    2064           0 :         long nDiff = aEdtWindow.GetEditView()->GetStartDocPos().Y() - pCurScrollBar->GetThumbPos();
    2065           0 :         aEdtWindow.GetEditView()->Scroll( 0, nDiff );
    2066           0 :         aBrkWindow.DoScroll( 0, nDiff );
    2067           0 :         aLineNumberWindow.DoScroll(0, nDiff);
    2068           0 :         aEdtWindow.GetEditView()->ShowCursor(false, true);
    2069           0 :         pCurScrollBar->SetThumbPos( aEdtWindow.GetEditView()->GetStartDocPos().Y() );
    2070             :     }
    2071             : 
    2072           0 :     return 0;
    2073             : }
    2074             : 
    2075           0 : void ComplexEditorWindow::DataChanged(DataChangedEvent const & rDCEvt)
    2076             : {
    2077           0 :     Window::DataChanged(rDCEvt);
    2078           0 :     if (rDCEvt.GetType() == DATACHANGED_SETTINGS
    2079           0 :         && (rDCEvt.GetFlags() & SETTINGS_STYLE) != 0)
    2080             :     {
    2081           0 :         Color aColor(GetSettings().GetStyleSettings().GetFaceColor());
    2082           0 :         const AllSettings* pOldSettings = rDCEvt.GetOldSettings();
    2083           0 :         if (!pOldSettings || aColor != pOldSettings->GetStyleSettings().GetFaceColor())
    2084             :         {
    2085           0 :             SetBackground(Wallpaper(aColor));
    2086           0 :             Invalidate();
    2087             :         }
    2088             :     }
    2089           0 : }
    2090             : 
    2091           0 : void ComplexEditorWindow::SetLineNumberDisplay(bool b)
    2092             : {
    2093           0 :     aLineNumberWindow.Show(b);
    2094           0 :     Resize();
    2095           0 : }
    2096             : 
    2097             : uno::Reference< awt::XWindowPeer >
    2098           0 : EditorWindow::GetComponentInterface(sal_Bool bCreate)
    2099             : {
    2100             :     uno::Reference< awt::XWindowPeer > xPeer(
    2101           0 :         Window::GetComponentInterface(false));
    2102           0 :     if (!xPeer.is() && bCreate)
    2103             :     {
    2104             :         // Make sure edit engine and view are available:
    2105           0 :         if (!pEditEngine)
    2106           0 :             CreateEditEngine();
    2107             : 
    2108           0 :         xPeer = svt::createTextWindowPeer(*GetEditView());
    2109           0 :         SetComponentInterface(xPeer);
    2110             :     }
    2111           0 :     return xPeer;
    2112             : }
    2113             : 
    2114             : 
    2115             : 
    2116             : // WatchTreeListBox
    2117             : 
    2118             : 
    2119             : 
    2120           0 : WatchTreeListBox::WatchTreeListBox( Window* pParent, WinBits nWinBits )
    2121           0 :     : SvHeaderTabListBox( pParent, nWinBits )
    2122           0 : {}
    2123             : 
    2124           0 : WatchTreeListBox::~WatchTreeListBox()
    2125             : {
    2126             :     // Destroy user data
    2127           0 :     SvTreeListEntry* pEntry = First();
    2128           0 :     while ( pEntry )
    2129             :     {
    2130           0 :         delete (WatchItem*)pEntry->GetUserData();
    2131           0 :         pEntry = Next( pEntry );
    2132             :     }
    2133           0 : }
    2134             : 
    2135           0 : void WatchTreeListBox::SetTabs()
    2136             : {
    2137           0 :     SvHeaderTabListBox::SetTabs();
    2138           0 :     sal_uInt16 nTabCount_ = aTabs.size();
    2139           0 :     for( sal_uInt16 i = 0 ; i < nTabCount_ ; i++ )
    2140             :     {
    2141           0 :         SvLBoxTab* pTab = aTabs[i];
    2142           0 :         if( i == 2 )
    2143           0 :             pTab->nFlags |= SV_LBOXTAB_EDITABLE;
    2144             :         else
    2145           0 :             pTab->nFlags &= ~SV_LBOXTAB_EDITABLE;
    2146             :     }
    2147           0 : }
    2148             : 
    2149           0 : void WatchTreeListBox::RequestingChildren( SvTreeListEntry * pParent )
    2150             : {
    2151           0 :     if( !StarBASIC::IsRunning() )
    2152           0 :         return;
    2153             : 
    2154           0 :     if( GetChildCount( pParent ) > 0 )
    2155           0 :         return;
    2156             : 
    2157           0 :     SvTreeListEntry* pEntry = pParent;
    2158           0 :     WatchItem* pItem = (WatchItem*)pEntry->GetUserData();
    2159             : 
    2160           0 :     SbxDimArray* pArray = pItem->mpArray;
    2161           0 :     SbxDimArray* pRootArray = pItem->GetRootArray();
    2162           0 :     bool bArrayIsRootArray = false;
    2163           0 :     if( !pArray && pRootArray )
    2164             :     {
    2165           0 :         pArray = pRootArray;
    2166           0 :         bArrayIsRootArray = true;
    2167             :     }
    2168             : 
    2169           0 :     SbxObject* pObj = pItem->mpObject;
    2170           0 :     if( pObj )
    2171             :     {
    2172           0 :         createAllObjectProperties( pObj );
    2173           0 :         SbxArray* pProps = pObj->GetProperties();
    2174           0 :         sal_uInt16 nPropCount = pProps->Count();
    2175           0 :         pItem->maMemberList.reserve(nPropCount);
    2176             : 
    2177           0 :         for( sal_uInt16 i = 0 ; i < nPropCount - 3 ; i++ )
    2178             :         {
    2179           0 :             SbxVariable* pVar = pProps->Get( i );
    2180             : 
    2181           0 :             pItem->maMemberList.push_back(pVar->GetName());
    2182           0 :             OUString const& rName = pItem->maMemberList.back();
    2183           0 :             SvTreeListEntry* pChildEntry = SvTreeListBox::InsertEntry( rName, pEntry );
    2184           0 :             pChildEntry->SetUserData(new WatchItem(rName));
    2185             :         }
    2186           0 :         if( nPropCount > 0 )
    2187             :         {
    2188           0 :             UpdateWatches();
    2189             :         }
    2190             :     }
    2191           0 :     else if( pArray )
    2192             :     {
    2193           0 :         sal_uInt16 nElementCount = 0;
    2194             : 
    2195             :         // Loop through indices of current level
    2196           0 :         int nParentLevel = bArrayIsRootArray ? pItem->nDimLevel : 0;
    2197           0 :         int nThisLevel = nParentLevel + 1;
    2198             :         sal_Int32 nMin, nMax;
    2199           0 :         pArray->GetDim32( nThisLevel, nMin, nMax );
    2200           0 :         for( sal_Int32 i = nMin ; i <= nMax ; i++ )
    2201             :         {
    2202           0 :             WatchItem* pChildItem = new WatchItem(pItem->maName);
    2203             : 
    2204             :             // Copy data and create name
    2205             : 
    2206           0 :             OUString aIndexStr = "(";
    2207           0 :             pChildItem->mpArrayParentItem = pItem;
    2208           0 :             pChildItem->nDimLevel = nThisLevel;
    2209           0 :             pChildItem->nDimCount = pItem->nDimCount;
    2210           0 :             pChildItem->vIndices.resize(pChildItem->nDimCount);
    2211             :             sal_Int32 j;
    2212           0 :             for( j = 0 ; j < nParentLevel ; j++ )
    2213             :             {
    2214           0 :                 short n = pChildItem->vIndices[j] = pItem->vIndices[j];
    2215           0 :                 aIndexStr += OUString::number( n ) + ",";
    2216             :             }
    2217           0 :             pChildItem->vIndices[nParentLevel] = sal::static_int_cast<short>( i );
    2218           0 :             aIndexStr += OUString::number( i ) + ")";
    2219             : 
    2220           0 :             OUString aDisplayName;
    2221           0 :             WatchItem* pArrayRootItem = pChildItem->GetRootItem();
    2222           0 :             if( pArrayRootItem && pArrayRootItem->mpArrayParentItem )
    2223           0 :                 aDisplayName = pItem->maDisplayName;
    2224             :             else
    2225           0 :                 aDisplayName = pItem->maName;
    2226           0 :             aDisplayName += aIndexStr;
    2227           0 :             pChildItem->maDisplayName = aDisplayName;
    2228             : 
    2229           0 :             SvTreeListEntry* pChildEntry = SvTreeListBox::InsertEntry( aDisplayName, pEntry );
    2230           0 :             nElementCount++;
    2231           0 :             pChildEntry->SetUserData( pChildItem );
    2232           0 :         }
    2233           0 :         if( nElementCount > 0 )
    2234             :         {
    2235           0 :             UpdateWatches();
    2236             :         }
    2237             :     }
    2238             : }
    2239             : 
    2240           0 : SbxBase* WatchTreeListBox::ImplGetSBXForEntry( SvTreeListEntry* pEntry, bool& rbArrayElement )
    2241             : {
    2242           0 :     SbxBase* pSBX = NULL;
    2243           0 :     rbArrayElement = false;
    2244             : 
    2245           0 :     WatchItem* pItem = (WatchItem*)pEntry->GetUserData();
    2246           0 :     OUString aVName( pItem->maName );
    2247             : 
    2248           0 :     SvTreeListEntry* pParentEntry = GetParent( pEntry );
    2249           0 :     WatchItem* pParentItem = pParentEntry ? (WatchItem*)pParentEntry->GetUserData() : NULL;
    2250           0 :     if( pParentItem )
    2251             :     {
    2252           0 :         SbxObject* pObj = pParentItem->mpObject;
    2253             :         SbxDimArray* pArray;
    2254           0 :         if( pObj )
    2255             :         {
    2256           0 :             pSBX = pObj->Find( aVName, SbxCLASS_DONTCARE );
    2257           0 :             if (SbxVariable const* pVar = IsSbxVariable(pSBX))
    2258             :             {
    2259             :                 // Force getting value
    2260           0 :                 SbxValues aRes;
    2261           0 :                 aRes.eType = SbxVOID;
    2262           0 :                 pVar->Get( aRes );
    2263             :             }
    2264             :         }
    2265             :         // Array?
    2266           0 :         else if( (pArray = pItem->GetRootArray()) != NULL )
    2267             :         {
    2268           0 :             rbArrayElement = true;
    2269           0 :             if( pParentItem->nDimLevel + 1 == pParentItem->nDimCount )
    2270           0 :                 pSBX = pArray->Get(pItem->vIndices.empty() ? 0 : &*pItem->vIndices.begin());
    2271             :         }
    2272             :     }
    2273             :     else
    2274             :     {
    2275           0 :         pSBX = StarBASIC::FindSBXInCurrentScope( aVName );
    2276             :     }
    2277           0 :     return pSBX;
    2278             : }
    2279             : 
    2280           0 : bool WatchTreeListBox::EditingEntry( SvTreeListEntry* pEntry, Selection& )
    2281             : {
    2282           0 :     WatchItem* pItem = (WatchItem*)pEntry->GetUserData();
    2283             : 
    2284           0 :     bool bEdit = false;
    2285           0 :     if ( StarBASIC::IsRunning() && StarBASIC::GetActiveMethod() && !SbxBase::IsError() )
    2286             :     {
    2287             :         // No out of scope entries
    2288             :         bool bArrayElement;
    2289           0 :         SbxBase* pSbx = ImplGetSBXForEntry( pEntry, bArrayElement );
    2290           0 :         if (IsSbxVariable(pSbx) || bArrayElement)
    2291             :         {
    2292             :             // Accept no objects and only end nodes of arrays for editing
    2293           0 :             if( !pItem->mpObject && (pItem->mpArray == NULL || pItem->nDimLevel == pItem->nDimCount) )
    2294             :             {
    2295           0 :                 aEditingRes = SvHeaderTabListBox::GetEntryText( pEntry, ITEM_ID_VALUE-1 );
    2296           0 :                 aEditingRes = comphelper::string::strip(aEditingRes, ' ');
    2297           0 :                 bEdit = true;
    2298             :             }
    2299             :         }
    2300             :     }
    2301             : 
    2302           0 :     return bEdit;
    2303             : }
    2304             : 
    2305           0 : bool WatchTreeListBox::EditedEntry( SvTreeListEntry* pEntry, const OUString& rNewText )
    2306             : {
    2307           0 :     OUString aResult = comphelper::string::strip(rNewText, ' ');
    2308             : 
    2309           0 :     sal_uInt16 nResultLen = aResult.getLength();
    2310           0 :     sal_Unicode cFirst = aResult[0];
    2311           0 :     sal_Unicode cLast  = aResult[ nResultLen - 1 ];
    2312           0 :     if( cFirst == '\"' && cLast == '\"' )
    2313           0 :         aResult = aResult.copy( 1, nResultLen - 2 );
    2314             : 
    2315           0 :     return aResult != aEditingRes && ImplBasicEntryEdited(pEntry, aResult);
    2316             : }
    2317             : 
    2318           0 : bool WatchTreeListBox::ImplBasicEntryEdited( SvTreeListEntry* pEntry, const OUString& rResult )
    2319             : {
    2320             :     bool bArrayElement;
    2321           0 :     SbxBase* pSBX = ImplGetSBXForEntry( pEntry, bArrayElement );
    2322             : 
    2323           0 :     if (SbxVariable* pVar = IsSbxVariable(pSBX))
    2324             :     {
    2325           0 :         SbxDataType eType = pVar->GetType();
    2326           0 :         if ( (sal_uInt8)eType != (sal_uInt8)SbxOBJECT
    2327           0 :              && ( eType & SbxARRAY ) == 0 )
    2328             :         {
    2329             :             // If the type is variable, the conversion of the SBX does not matter,
    2330             :             // else the string is converted.
    2331           0 :             pVar->PutStringExt( rResult );
    2332             :         }
    2333             :     }
    2334             : 
    2335           0 :     if ( SbxBase::IsError() )
    2336             :     {
    2337           0 :         SbxBase::ResetError();
    2338             :     }
    2339             : 
    2340           0 :     UpdateWatches();
    2341             : 
    2342             :     // The text should never be taken/copied 1:1,
    2343             :     // as the UpdateWatches will be lost
    2344           0 :     return false;
    2345             : }
    2346             : 
    2347             : 
    2348             : namespace
    2349             : {
    2350             : 
    2351           0 : void implCollapseModifiedObjectEntry( SvTreeListEntry* pParent, WatchTreeListBox* pThis )
    2352             : {
    2353           0 :     pThis->Collapse( pParent );
    2354             : 
    2355           0 :     SvTreeList* pModel = pThis->GetModel();
    2356             :     SvTreeListEntry* pDeleteEntry;
    2357           0 :     while( (pDeleteEntry = pThis->SvTreeListBox::GetEntry( pParent, 0 )) != NULL )
    2358             :     {
    2359           0 :         implCollapseModifiedObjectEntry( pDeleteEntry, pThis );
    2360             : 
    2361           0 :         delete (WatchItem*)pDeleteEntry->GetUserData();
    2362           0 :         pModel->Remove( pDeleteEntry );
    2363             :     }
    2364           0 : }
    2365             : 
    2366           0 : OUString implCreateTypeStringForDimArray( WatchItem* pItem, SbxDataType eType )
    2367             : {
    2368           0 :     OUString aRetStr = getBasicTypeName( eType );
    2369             : 
    2370           0 :     SbxDimArray* pArray = pItem->mpArray;
    2371           0 :     if( !pArray )
    2372           0 :         pArray = pItem->GetRootArray();
    2373           0 :     if( pArray )
    2374             :     {
    2375           0 :         int nDimLevel = pItem->nDimLevel;
    2376           0 :         int nDims = pItem->nDimCount;
    2377           0 :         if( nDimLevel < nDims )
    2378             :         {
    2379           0 :             aRetStr += "(";
    2380           0 :             for( int i = nDimLevel ; i < nDims ; i++ )
    2381             :             {
    2382             :                 short nMin, nMax;
    2383           0 :                 pArray->GetDim( sal::static_int_cast<short>( i+1 ), nMin, nMax );
    2384           0 :                 aRetStr += OUString::number(nMin) + " to "  + OUString::number(nMax);
    2385           0 :                 if( i < nDims - 1 )
    2386           0 :                     aRetStr += ", ";
    2387             :             }
    2388           0 :             aRetStr += ")";
    2389             :         }
    2390             :     }
    2391           0 :     return aRetStr;
    2392             : }
    2393             : 
    2394           0 : void implEnableChildren( SvTreeListEntry* pEntry, bool bEnable )
    2395             : {
    2396           0 :     if( bEnable )
    2397             :     {
    2398             :         pEntry->SetFlags(
    2399           0 :             (pEntry->GetFlags() &
    2400             :             ~(SV_ENTRYFLAG_NO_NODEBMP | SV_ENTRYFLAG_HAD_CHILDREN))
    2401           0 :             | SV_ENTRYFLAG_CHILDREN_ON_DEMAND );
    2402             :     }
    2403             :     else
    2404             :     {
    2405             :         pEntry->SetFlags(
    2406           0 :             (pEntry->GetFlags() & ~(SV_ENTRYFLAG_CHILDREN_ON_DEMAND)) );
    2407             :     }
    2408           0 : }
    2409             : 
    2410             : } // namespace
    2411             : 
    2412           0 : void WatchTreeListBox::UpdateWatches( bool bBasicStopped )
    2413             : {
    2414           0 :     SbMethod* pCurMethod = StarBASIC::GetActiveMethod();
    2415             : 
    2416           0 :     SbxError eOld = SbxBase::GetError();
    2417           0 :     setBasicWatchMode( true );
    2418             : 
    2419           0 :     SvTreeListEntry* pEntry = First();
    2420           0 :     while ( pEntry )
    2421             :     {
    2422           0 :         WatchItem* pItem = (WatchItem*)pEntry->GetUserData();
    2423             :         DBG_ASSERT( !pItem->maName.isEmpty(), "Var? - Must not be empty!" );
    2424           0 :         OUString aWatchStr;
    2425           0 :         OUString aTypeStr;
    2426           0 :         if ( pCurMethod )
    2427             :         {
    2428             :             bool bArrayElement;
    2429           0 :             SbxBase* pSBX = ImplGetSBXForEntry( pEntry, bArrayElement );
    2430             : 
    2431             :             // Array? If no end node create type string
    2432           0 :             if( bArrayElement && pItem->nDimLevel < pItem->nDimCount )
    2433             :             {
    2434           0 :                 SbxDimArray* pRootArray = pItem->GetRootArray();
    2435           0 :                 SbxDataType eType = pRootArray->GetType();
    2436           0 :                 aTypeStr = implCreateTypeStringForDimArray( pItem, eType );
    2437           0 :                 implEnableChildren( pEntry, true );
    2438             :             }
    2439             : 
    2440           0 :             bool bCollapse = false;
    2441           0 :             if (SbxVariable const* pVar = IsSbxVariable(pSBX))
    2442             :             {
    2443             :                 // extra treatment of arrays
    2444           0 :                 SbxDataType eType = pVar->GetType();
    2445           0 :                 if ( eType & SbxARRAY )
    2446             :                 {
    2447             :                     // consider multidimensinal arrays!
    2448           0 :                     if (SbxDimArray* pNewArray = dynamic_cast<SbxDimArray*>(pVar->GetObject()))
    2449             :                     {
    2450           0 :                         SbxDimArray* pOldArray = pItem->mpArray;
    2451             : 
    2452           0 :                         bool bArrayChanged = false;
    2453           0 :                         if( pNewArray != NULL && pOldArray != NULL )
    2454             :                         {
    2455             :                             // Compare Array dimensions to see if array has changed
    2456             :                             // Can be a copy, so comparing pointers does not work
    2457           0 :                             sal_uInt16 nOldDims = pOldArray->GetDims();
    2458           0 :                             sal_uInt16 nNewDims = pNewArray->GetDims();
    2459           0 :                             if( nOldDims != nNewDims )
    2460             :                             {
    2461           0 :                                 bArrayChanged = true;
    2462             :                             }
    2463             :                             else
    2464             :                             {
    2465           0 :                                 for( int i = 0 ; i < nOldDims ; i++ )
    2466             :                                 {
    2467             :                                     short nOldMin, nOldMax;
    2468             :                                     short nNewMin, nNewMax;
    2469             : 
    2470           0 :                                     pOldArray->GetDim( sal::static_int_cast<short>( i+1 ), nOldMin, nOldMax );
    2471           0 :                                     pNewArray->GetDim( sal::static_int_cast<short>( i+1 ), nNewMin, nNewMax );
    2472           0 :                                     if( nOldMin != nNewMin || nOldMax != nNewMax )
    2473             :                                     {
    2474           0 :                                         bArrayChanged = true;
    2475           0 :                                         break;
    2476             :                                     }
    2477             :                                 }
    2478           0 :                             }
    2479             :                         }
    2480           0 :                         else if( pNewArray == NULL || pOldArray == NULL )
    2481             :                         {
    2482           0 :                             bArrayChanged = true;
    2483             :                         }
    2484           0 :                         if( pNewArray )
    2485             :                         {
    2486           0 :                             implEnableChildren( pEntry, true );
    2487             :                         }
    2488             :                         // #i37227 Clear always and replace array
    2489           0 :                         if( pNewArray != pOldArray )
    2490             :                         {
    2491           0 :                             pItem->clearWatchItem();
    2492           0 :                             if( pNewArray )
    2493             :                             {
    2494           0 :                                 implEnableChildren( pEntry, true );
    2495             : 
    2496           0 :                                 pItem->mpArray = pNewArray;
    2497           0 :                                 sal_uInt16 nDims = pNewArray->GetDims();
    2498           0 :                                 pItem->nDimLevel = 0;
    2499           0 :                                 pItem->nDimCount = nDims;
    2500             :                             }
    2501             :                         }
    2502           0 :                         if( bArrayChanged && pOldArray != NULL )
    2503             :                         {
    2504           0 :                             bCollapse = true;
    2505             :                         }
    2506           0 :                         aTypeStr = implCreateTypeStringForDimArray( pItem, eType );
    2507             :                     }
    2508             :                     else
    2509             :                     {
    2510           0 :                         aWatchStr += "<?>";
    2511             :                     }
    2512             :                 }
    2513           0 :                 else if ( (sal_uInt8)eType == (sal_uInt8)SbxOBJECT )
    2514             :                 {
    2515           0 :                     if (SbxObject* pObj = dynamic_cast<SbxObject*>(pVar->GetObject()))
    2516             :                     {
    2517             :                         // Check if member list has changed
    2518           0 :                         bool bObjChanged = false;
    2519           0 :                         if (pItem->mpObject && !pItem->maMemberList.empty())
    2520             :                         {
    2521           0 :                             SbxArray* pProps = pObj->GetProperties();
    2522           0 :                             sal_uInt16 nPropCount = pProps->Count();
    2523           0 :                             for( sal_uInt16 i = 0 ; i < nPropCount - 3 ; i++ )
    2524             :                             {
    2525           0 :                                 SbxVariable* pVar_ = pProps->Get( i );
    2526           0 :                                 OUString aName( pVar_->GetName() );
    2527           0 :                                 if( pItem->maMemberList[i] != aName )
    2528             :                                 {
    2529           0 :                                     bObjChanged = true;
    2530           0 :                                     break;
    2531             :                                 }
    2532           0 :                             }
    2533           0 :                             if( bObjChanged )
    2534             :                             {
    2535           0 :                                 bCollapse = true;
    2536             :                             }
    2537             :                         }
    2538             : 
    2539           0 :                         pItem->mpObject = pObj;
    2540           0 :                         implEnableChildren( pEntry, true );
    2541           0 :                         aTypeStr = getBasicObjectTypeName( pObj );
    2542             :                     }
    2543             :                     else
    2544             :                     {
    2545           0 :                         aWatchStr = "Null";
    2546           0 :                         if( pItem->mpObject != NULL )
    2547             :                         {
    2548           0 :                             bCollapse = true;
    2549           0 :                             pItem->clearWatchItem();
    2550             : 
    2551           0 :                             implEnableChildren( pEntry, false );
    2552             :                         }
    2553             :                     }
    2554             :                 }
    2555             :                 else
    2556             :                 {
    2557           0 :                     if( pItem->mpObject != NULL )
    2558             :                     {
    2559           0 :                         bCollapse = true;
    2560           0 :                         pItem->clearWatchItem();
    2561             : 
    2562           0 :                         implEnableChildren( pEntry, false );
    2563             :                     }
    2564             : 
    2565           0 :                     bool bString = ((sal_uInt8)eType == (sal_uInt8)SbxSTRING);
    2566           0 :                     OUString aStrStr( "\"" );
    2567           0 :                     if( bString )
    2568             :                     {
    2569           0 :                         aWatchStr += aStrStr;
    2570             :                     }
    2571           0 :                     aWatchStr += pVar->GetOUString();
    2572           0 :                     if( bString )
    2573             :                     {
    2574           0 :                         aWatchStr += aStrStr;
    2575           0 :                     }
    2576             :                 }
    2577           0 :                 if( aTypeStr.isEmpty() )
    2578             :                 {
    2579           0 :                     if( !pVar->IsFixed() )
    2580             :                     {
    2581           0 :                         aTypeStr = "Variant/";
    2582             :                     }
    2583           0 :                     aTypeStr += getBasicTypeName( pVar->GetType() );
    2584             :                 }
    2585             :             }
    2586           0 :             else if( !bArrayElement )
    2587             :             {
    2588           0 :                 aWatchStr += "<Out of Scope>";
    2589             :             }
    2590             : 
    2591           0 :             if( bCollapse )
    2592             :             {
    2593           0 :                 implCollapseModifiedObjectEntry( pEntry, this );
    2594             :             }
    2595             : 
    2596             :         }
    2597           0 :         else if( bBasicStopped )
    2598             :         {
    2599           0 :             if( pItem->mpObject || pItem->mpArray )
    2600             :             {
    2601           0 :                 implCollapseModifiedObjectEntry( pEntry, this );
    2602           0 :                 pItem->mpObject = NULL;
    2603             :             }
    2604             :         }
    2605             : 
    2606           0 :         SvHeaderTabListBox::SetEntryText( aWatchStr, pEntry, ITEM_ID_VALUE-1 );
    2607           0 :         SvHeaderTabListBox::SetEntryText( aTypeStr, pEntry, ITEM_ID_TYPE-1 );
    2608             : 
    2609           0 :         pEntry = Next( pEntry );
    2610           0 :     }
    2611             : 
    2612             :     // Force redraw
    2613           0 :     Invalidate();
    2614             : 
    2615           0 :     SbxBase::ResetError();
    2616           0 :     if( eOld != SbxERR_OK )
    2617           0 :         SbxBase::SetError( eOld );
    2618           0 :     setBasicWatchMode( false );
    2619           0 : }
    2620             : 
    2621           0 : CodeCompleteListBox::CodeCompleteListBox( CodeCompleteWindow* pPar )
    2622             : : ListBox(pPar, WB_SORT | WB_BORDER ),
    2623           0 : pCodeCompleteWindow( pPar )
    2624             : {
    2625           0 :     SetDoubleClickHdl(LINK(this, CodeCompleteListBox, ImplDoubleClickHdl));
    2626           0 :     SetSelectHdl(LINK(this, CodeCompleteListBox, ImplSelectHdl));
    2627           0 : }
    2628             : 
    2629           0 : IMPL_LINK_NOARG(CodeCompleteListBox, ImplDoubleClickHdl)
    2630             : {
    2631           0 :     InsertSelectedEntry();
    2632           0 :     return 0;
    2633             : }
    2634             : 
    2635           0 : IMPL_LINK_NOARG(CodeCompleteListBox, ImplSelectHdl)
    2636             : {//give back the focus to the parent
    2637           0 :     pCodeCompleteWindow->pParent->GrabFocus();
    2638           0 :     return 0;
    2639             : }
    2640             : 
    2641           0 : ExtTextView* CodeCompleteListBox::GetParentEditView()
    2642             : {
    2643           0 :     return pCodeCompleteWindow->pParent->GetEditView();
    2644             : }
    2645             : 
    2646           0 : void CodeCompleteListBox::InsertSelectedEntry()
    2647             : {
    2648           0 :     if( !aFuncBuffer.toString().isEmpty() )
    2649             :     {
    2650             :         // if the user typed in something: remove, and insert
    2651           0 :         GetParentEditView()->SetSelection( pCodeCompleteWindow->pParent->GetLastHighlightPortionTextSelection() );
    2652           0 :         GetParentEditView()->DeleteSelected();
    2653             : 
    2654           0 :         if( !((OUString) GetEntry( GetSelectEntryPos() )).isEmpty() )
    2655             :         {//if the user selected something
    2656           0 :             GetParentEditView()->InsertText( (OUString) GetEntry(GetSelectEntryPos()), false );
    2657             :         }
    2658             :     }
    2659             :     else
    2660             :     {
    2661           0 :         if( !((OUString) GetEntry( GetSelectEntryPos() )).isEmpty() )
    2662             :         {//if the user selected something
    2663           0 :             GetParentEditView()->InsertText( (OUString) GetEntry(GetSelectEntryPos()), false );
    2664             :         }
    2665             :     }
    2666           0 :     HideAndRestoreFocus();
    2667           0 : }
    2668             : 
    2669           0 : void CodeCompleteListBox::SetMatchingEntries()
    2670             : {
    2671           0 :     for(sal_uInt16 i=0; i< GetEntryCount(); ++i)
    2672             :     {
    2673           0 :         OUString sEntry = (OUString) GetEntry(i);
    2674           0 :         if( sEntry.startsWithIgnoreAsciiCase( aFuncBuffer.toString() ) )
    2675             :         {
    2676           0 :             SelectEntry(sEntry);
    2677           0 :             break;
    2678             :         }
    2679           0 :     }
    2680           0 : }
    2681             : 
    2682           0 : void CodeCompleteListBox::KeyInput( const KeyEvent& rKeyEvt )
    2683             : {
    2684           0 :     sal_Unicode aChar = rKeyEvt.GetKeyCode().GetCode();
    2685           0 :     if( (( aChar >= KEY_A ) && ( aChar <= KEY_Z ))
    2686           0 :         || ((aChar >= KEY_0) && (aChar <= KEY_9)) )
    2687             :     {
    2688           0 :         aFuncBuffer.append(rKeyEvt.GetCharCode());
    2689           0 :         SetMatchingEntries();
    2690             :     }
    2691             :     else
    2692             :     {
    2693           0 :         switch( aChar )
    2694             :         {
    2695             :             case KEY_ESCAPE: // hide, do nothing
    2696           0 :                 HideAndRestoreFocus();
    2697           0 :                 break;
    2698             :             case KEY_RIGHT:
    2699             :             {
    2700           0 :                 TextSelection aTextSelection( GetParentEditView()->GetSelection() );
    2701           0 :                 if( aTextSelection.GetEnd().GetPara() != pCodeCompleteWindow->GetTextSelection().GetEnd().GetPara()-1 )
    2702             :                 {
    2703           0 :                     HideAndRestoreFocus();
    2704             :                 }
    2705           0 :                 break;
    2706             :             }
    2707             :             case KEY_LEFT:
    2708             :             {
    2709           0 :                 TextSelection aTextSelection( GetParentEditView()->GetSelection() );
    2710           0 :                 if( aTextSelection.GetStart().GetIndex()-1 < pCodeCompleteWindow->GetTextSelection().GetStart().GetIndex() )
    2711             :                 {//leave the cursor where it is
    2712           0 :                     HideAndRestoreFocus();
    2713             :                 }
    2714           0 :                 break;
    2715             :             }
    2716             :             case KEY_TAB:
    2717             :             {
    2718           0 :                 TextSelection aTextSelection = pCodeCompleteWindow->pParent->GetLastHighlightPortionTextSelection();
    2719           0 :                 OUString sTypedText = pCodeCompleteWindow->pParent->GetEditEngine()->GetText(aTextSelection);
    2720           0 :                 if( !aFuncBuffer.isEmpty() )
    2721             :                 {
    2722           0 :                     sal_Int32 nInd = GetSelectEntryPos();
    2723           0 :                     if( nInd != LISTBOX_ENTRY_NOTFOUND )
    2724             :                     {//if there is something selected
    2725           0 :                         bool bFound = false;
    2726           0 :                         if( nInd == GetEntryCount() )
    2727           0 :                             nInd = 0;
    2728           0 :                         for( sal_Int32 i = nInd; i != GetEntryCount(); ++i )
    2729             :                         {
    2730           0 :                             OUString sEntry = (OUString) GetEntry(i);
    2731           0 :                             if( sEntry.startsWithIgnoreAsciiCase( aFuncBuffer.toString() )
    2732           0 :                                 && (aFuncBuffer.toString() != sTypedText) && (i != nInd) )
    2733             :                             {
    2734           0 :                                 SelectEntry( sEntry );
    2735           0 :                                 bFound = true;
    2736           0 :                                 break;
    2737             :                             }
    2738           0 :                         }
    2739           0 :                         if( !bFound )
    2740           0 :                             SetMatchingEntries();
    2741             : 
    2742           0 :                         GetParentEditView()->SetSelection( aTextSelection );
    2743           0 :                         GetParentEditView()->DeleteSelected();
    2744           0 :                         GetParentEditView()->InsertText( GetSelectEntry(), false );
    2745             :                     }
    2746             :                 }
    2747           0 :                 break;
    2748             :             }
    2749             :             case KEY_SPACE:
    2750           0 :                 HideAndRestoreFocus();
    2751           0 :                 break;
    2752             :             case KEY_BACKSPACE: case KEY_DELETE:
    2753           0 :                 if( !aFuncBuffer.toString().isEmpty() )
    2754             :                 {
    2755             :                     //if there was something inserted by tab: add it to aFuncBuffer
    2756           0 :                     TextSelection aSel( GetParentEditView()->GetSelection() );
    2757           0 :                     TextPaM aEnd( GetParentEditView()->CursorEndOfLine(pCodeCompleteWindow->GetTextSelection().GetEnd()) );
    2758           0 :                     GetParentEditView()->SetSelection(TextSelection(pCodeCompleteWindow->GetTextSelection().GetStart(), aEnd ) );
    2759           0 :                     OUString aTabInsertedStr( ((OUString)GetParentEditView()->GetSelected()) );
    2760           0 :                     GetParentEditView()->SetSelection( aSel );
    2761             : 
    2762           0 :                     if( !aTabInsertedStr.isEmpty() && aTabInsertedStr != aFuncBuffer.toString() )
    2763             :                     {
    2764           0 :                         aFuncBuffer.makeStringAndClear();
    2765           0 :                         aFuncBuffer = aFuncBuffer.append(aTabInsertedStr);
    2766             :                     }
    2767           0 :                     aFuncBuffer = aFuncBuffer.remove(aFuncBuffer.getLength()-1, 1);
    2768           0 :                     SetMatchingEntries();
    2769             :                 }
    2770             :                 else
    2771           0 :                     pCodeCompleteWindow->ClearAndHide();
    2772           0 :                 break;
    2773             :             case KEY_RETURN:
    2774           0 :                 InsertSelectedEntry();
    2775           0 :                 break;
    2776             :             case KEY_UP: case KEY_DOWN:
    2777           0 :                 NotifyEvent nEvt( EVENT_KEYINPUT, NULL, &rKeyEvt );
    2778           0 :                 PreNotify(nEvt);
    2779           0 :                 break;
    2780             :         }
    2781             :     }
    2782           0 :     ListBox::KeyInput(rKeyEvt);
    2783           0 : }
    2784             : 
    2785           0 : void CodeCompleteListBox::HideAndRestoreFocus()
    2786             : {
    2787           0 :     pCodeCompleteWindow->Hide();
    2788           0 :     pCodeCompleteWindow->pParent->GrabFocus();
    2789           0 : }
    2790             : 
    2791           0 : CodeCompleteWindow::CodeCompleteWindow( EditorWindow* pPar )
    2792             : : Window( pPar ),
    2793             : pParent( pPar ),
    2794           0 : pListBox( new CodeCompleteListBox(this) )
    2795             : {
    2796           0 :     SetSizePixel( Size(151,151) ); //default, later it changes
    2797           0 :     InitListBox();
    2798           0 : }
    2799             : 
    2800           0 : void CodeCompleteWindow::InitListBox()
    2801             : {
    2802           0 :     pListBox->SetSizePixel( Size(150,150) ); //default, this will adopt the line length
    2803           0 :     pListBox->Show();
    2804           0 :     pListBox->EnableQuickSelection( false );
    2805           0 : }
    2806             : 
    2807           0 : void CodeCompleteWindow::InsertEntry( const OUString& aStr )
    2808             : {
    2809           0 :     pListBox->InsertEntry( aStr );
    2810           0 : }
    2811             : 
    2812           0 : void CodeCompleteWindow::ClearListBox()
    2813             : {
    2814           0 :     pListBox->Clear();
    2815           0 :     pListBox->aFuncBuffer.makeStringAndClear();
    2816           0 : }
    2817             : 
    2818           0 : void CodeCompleteWindow::SetTextSelection( const TextSelection& aSel )
    2819             : {
    2820           0 :     aTextSelection = aSel;
    2821           0 : }
    2822             : 
    2823           0 : const TextSelection& CodeCompleteWindow::GetTextSelection() const
    2824             : {
    2825           0 :     return aTextSelection;
    2826             : }
    2827             : 
    2828           0 : void CodeCompleteWindow::ResizeAndPositionListBox()
    2829             : {
    2830           0 :     if( pListBox->GetEntryCount() >= 1 )
    2831             :     {// if there is at least one element inside
    2832             :         // calculate basic position: under the current line
    2833           0 :         Rectangle aRect = ( (TextEngine*) pParent->GetEditEngine() )->PaMtoEditCursor( pParent->GetEditView()->GetSelection().GetEnd() , false );
    2834           0 :         long nViewYOffset = pParent->GetEditView()->GetStartDocPos().Y();
    2835           0 :         Point aPos = aRect.BottomRight();// this variable will be used later (if needed)
    2836           0 :         aPos.Y() = (aPos.Y() - nViewYOffset) + nBasePad;
    2837             : 
    2838           0 :         OUString aLongestEntry = pListBox->GetEntry( 0 );// grab the longest one: max search
    2839           0 :         for( sal_Int32 i=1; i< pListBox->GetEntryCount(); ++i )
    2840             :         {
    2841           0 :             if( ((OUString) pListBox->GetEntry( i )).getLength() > aLongestEntry.getLength() )
    2842           0 :                 aLongestEntry = pListBox->GetEntry( i );
    2843             :         }
    2844             :         // get column/line count
    2845           0 :         const sal_uInt16& nColumns = aLongestEntry.getLength();
    2846           0 :         const sal_uInt16  nLines = static_cast<sal_uInt16>( std::min( (sal_Int32) 6, pListBox->GetEntryCount() ));
    2847             : 
    2848           0 :         Size aSize = pListBox->CalcBlockSize( nColumns, nLines );
    2849             :         //set the size
    2850           0 :         SetSizePixel( aSize );
    2851             :         //1 px smaller, to see the border
    2852           0 :         aSize.setWidth( aSize.getWidth() - 1 );
    2853           0 :         aSize.setHeight( aSize.getHeight() - 1 );
    2854           0 :         pListBox->SetSizePixel( aSize );
    2855             : 
    2856             :         //calculate position
    2857           0 :         const Rectangle aVisArea( pParent->GetEditView()->GetStartDocPos(), pParent->GetOutputSizePixel() );//the visible area
    2858           0 :         const Point& aBottomPoint = aVisArea.BottomRight();
    2859             : 
    2860           0 :         if( aVisArea.TopRight().getY() + aPos.getY() + aSize.getHeight() > aBottomPoint.getY() )
    2861             :         {//clipped at the bottom: move it up
    2862           0 :             const long& nParentFontHeight = pParent->GetEditEngine()->GetFont().GetHeight();//parent's font (in the IDE): needed for height
    2863           0 :             aPos.Y() -= aSize.getHeight() + nParentFontHeight + nCursorPad;
    2864             :         }
    2865             : 
    2866           0 :         if( aVisArea.TopLeft().getX() + aPos.getX() + aSize.getWidth() > aBottomPoint.getX() )
    2867             :         {//clipped at the right side, move it a bit left
    2868           0 :             aPos.X() -= aSize.getWidth() + aVisArea.TopLeft().getX();
    2869             :         }
    2870             :         //set the position
    2871           0 :         SetPosPixel( aPos );
    2872             :     }
    2873           0 : }
    2874             : 
    2875           0 : void CodeCompleteWindow::SelectFirstEntry()
    2876             : {
    2877           0 :     if( pListBox->GetEntryCount() > 0 )
    2878             :     {
    2879           0 :          pListBox->SelectEntryPos( 0 );
    2880             :     }
    2881           0 : }
    2882             : 
    2883           0 : void CodeCompleteWindow::ClearAndHide()
    2884             : {
    2885           0 :     ClearListBox();
    2886           0 :     pListBox->HideAndRestoreFocus();
    2887           0 : }
    2888             : 
    2889           0 : UnoTypeCodeCompletetor::UnoTypeCodeCompletetor( const std::vector< OUString >& aVect, const OUString& sVarType )
    2890           0 : : bCanComplete( true )
    2891             : {
    2892           0 :     if( aVect.size() == 0 || sVarType.isEmpty() )
    2893             :     {
    2894           0 :         bCanComplete = false;//invalid parameters, nothing to code complete
    2895           0 :         return;
    2896             :     }
    2897             : 
    2898             :     try
    2899             :     {
    2900             :         // Get the base class for reflection:
    2901           0 :         xClass = css::reflection::theCoreReflection::get(
    2902           0 :             comphelper::getProcessComponentContext())->forName(sVarType);
    2903             :     }
    2904           0 :     catch( const Exception& )
    2905             :     {
    2906           0 :         bCanComplete = false;
    2907           0 :         return;
    2908             :     }
    2909             : 
    2910           0 :     unsigned int j = 1;//start from aVect[1]: aVect[0] is the variable name
    2911           0 :     OUString sMethName;
    2912             : 
    2913           0 :     while( j != aVect.size() )
    2914             :     {
    2915           0 :         sMethName = aVect[j];
    2916             : 
    2917           0 :         if( CodeCompleteOptions::IsExtendedTypeDeclaration() )
    2918             :         {
    2919           0 :             if( !CheckMethod(sMethName) && !CheckField(sMethName) )
    2920             :             {
    2921           0 :                 bCanComplete = false;
    2922           0 :                 break;
    2923             :             }
    2924             :         }
    2925             :         else
    2926             :         {
    2927           0 :             if( !CheckField(sMethName) )
    2928             :             {
    2929           0 :                 bCanComplete = false;
    2930           0 :                 break;
    2931             :             }
    2932             :         }
    2933             : 
    2934           0 :         ++j;
    2935           0 :     }
    2936             : }
    2937             : 
    2938           0 : std::vector< OUString > UnoTypeCodeCompletetor::GetXIdlClassMethods() const
    2939             : {
    2940           0 :     std::vector< OUString > aRetVect;
    2941           0 :     if( bCanComplete && ( xClass != NULL ) )
    2942             :     {
    2943           0 :         Sequence< Reference< reflection::XIdlMethod > > aMethods = xClass->getMethods();
    2944           0 :         if( aMethods.getLength() != 0 )
    2945             :         {
    2946           0 :             for(sal_Int32 l = 0; l < aMethods.getLength(); ++l)
    2947             :             {
    2948           0 :                 aRetVect.push_back( OUString(aMethods[l]->getName()) );
    2949             :             }
    2950           0 :         }
    2951             :     }
    2952           0 :     return aRetVect;//this is empty when cannot code complete
    2953             : }
    2954             : 
    2955           0 : std::vector< OUString > UnoTypeCodeCompletetor::GetXIdlClassFields() const
    2956             : {
    2957           0 :     std::vector< OUString > aRetVect;
    2958           0 :     if( bCanComplete && ( xClass != NULL ) )
    2959             :     {
    2960           0 :         Sequence< Reference< reflection::XIdlField > > aFields = xClass->getFields();
    2961           0 :         if( aFields.getLength() != 0 )
    2962             :         {
    2963           0 :             for(sal_Int32 l = 0; l < aFields.getLength(); ++l)
    2964             :             {
    2965           0 :                 aRetVect.push_back( OUString(aFields[l]->getName()) );
    2966             :             }
    2967           0 :         }
    2968             :     }
    2969           0 :     return aRetVect;//this is empty when cannot code complete
    2970             : }
    2971             : 
    2972           0 : bool UnoTypeCodeCompletetor::CanCodeComplete() const
    2973             : {
    2974           0 :     return bCanComplete;
    2975             : }
    2976             : 
    2977           0 : bool UnoTypeCodeCompletetor::CheckField( const OUString& sFieldName )
    2978             : {// modifies xClass!!!
    2979           0 :     Reference< reflection::XIdlField> xField = xClass->getField( sFieldName );
    2980           0 :     if( xField != NULL )
    2981             :     {
    2982           0 :         xClass = xField->getType();
    2983           0 :         if( xClass != NULL )
    2984             :         {
    2985           0 :             return true;
    2986             :         }
    2987             :     }
    2988           0 :     return false;
    2989             : }
    2990             : 
    2991           0 : bool UnoTypeCodeCompletetor::CheckMethod( const OUString& sMethName )
    2992             : {// modifies xClass!!!
    2993           0 :     Reference< reflection::XIdlMethod> xMethod = xClass->getMethod( sMethName );
    2994           0 :     if( xMethod != NULL ) //method OK, check return type
    2995             :     {
    2996           0 :         xClass = xMethod->getReturnType();
    2997           0 :         if( xClass != NULL )
    2998             :         {
    2999           0 :             return true;
    3000             :         }
    3001             :     }
    3002           0 :     return false;
    3003             : }
    3004             : 
    3005             : } // namespace basctl
    3006             : 
    3007             : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */

Generated by: LCOV version 1.10